' Gambas class file

PUBLIC SUB Form_Open()

   ' adjust button size according to it's font size
   btnHelp.Width = btnHelp.Font.Width(btnHelp.Text) + 20
   btnClose.Width = btnClose.Font.Width(btnClose.Text) + 20
   btnCheck.Width = btnCheck.Font.Width(btnCheck.Text) + 20
   hbxBottom.Height = btnClose.Font.Height(btnClose.Text) + 12

   ' adjust height of tlbMessage
   tlbMessage.Adjust
   ' then adjust main form height
   FUpdate.Height = pbxIcon.Height + tlbMessage.Height + hbxBottom.Height + FUpdate.Padding * 2 + FUpdate.Spacing * 2
   ' set focus
   btnCheck.SetFocus
   ' position window center
   ME.Center
   
END

PUBLIC SUB btnCheck_Click()

   FMain.hMenuCheck_Click()
   ME.Close
   
END


PUBLIC SUB btnHelp_Click()

   FMain.hMenuHelp_Click()

END

PUBLIC SUB btnClose_Click()

   ME.Close

END