'reset font size to 1.0
'override user setting in control panel
Sub Process_Globals
Public access As Accessiblity
End Sub
'reset all fonts in a panel
Sub ResetUserFontScale(p As Panel) 'ignore
For Each v As View In p
If v Is Panel Then
ResetUserFontScale(v)
Else If v Is Label Then
Dim lbl As Label = v
lbl.TextSize = lbl.TextSize / access.GetUserFontScale
Else If v Is Spinner Then
Dim s As Spinner = v
s.TextSize = s.TextSize / access.GetUserFontScale
End If
Next
End Sub