[Gambas-user] Rule to set form Height

[Safiur Rahman]

Hi

In a module (Module1):

Private $DeskHeight As Integer = 1150 ''1200 ''1386 ''1100

Public Sub SetFromSize(frm As Form)

  Print CStr(Now()) & " : " & $DeskHeight
  frm.Height = $DeskHeight
  frm.Width = Screen.AvailableWidth
  frm.Left = 0
  frm.Top = 0

End

In a form:

Public Sub Form_Resize()

  Module1.SetFromSize(Me)

End

If form Height =1150 or 1200 then the procedure runs several times
If form Height = 1100 or 1386 then the process runs one or two times.

Is there any rule to set form height? I am using QT5.


-- 
Regards
Safiur Rahman
-------------- next part --------------
A non-text attachment was scrubbed...
Name: wrkspace.zip
Type: application/zip
Size: 14194 bytes
Desc: not available
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20210430/0415f067/attachment-0001.zip>