Resize Method
Class: tstextform
Expand/Collapse source code of procedure Resize Source Code
*-- (c) Microsoft Corporation 1995

*-- Dynamically size all controls on the form based on 
*-- the form's dimensions
thisform.LockScreen = .T.
thisform.edtText.Width = thisform.Width
thisform.edtText.Height = thisform.Height - 54
thisform.cmdClose.Left = INT(thisform.Width / 4)
thisform.cmdPrint.Left = INT(thisform.Width / 1.75)
thisform.cmdClose.Top = thisform.Height - 42
thisform.cmdPrint.Top = thisform.cmdClose.Top
thisform.LockScreen = .F.