scaling of controls
Hi
A small procedure for resizing all controls (it isn't the best solution but ...)
' from QVGA to VGA
SkalujForm("Form1", 2)
SkalujForm("Form2", 2)
..................
Sub SkalujForm(sform,i)
mycontrols()=GetControls(sform)
For n=0 To ArrayLen(mycontrols())-1
Control(mycontrols(n)).Top=Control(mycontrols(n)).Top*i
Control(mycontrols(n)).Left=Control(mycontrols(n)).Left*i
Control(mycontrols(n)).Height=Control(mycontrols(n)).Height*i
Control(mycontrols(n)).Width=Control(mycontrols(n)).Width*i
If ControlType(mycontrols(n))="Image" Then
Else
Control(mycontrols(n)).FontSize=Control(mycontrols(n)).FontSize*i
End If
Next
Control(sform).Refresh
End Sub