Full screen in visual foxpro

Question

when i run foxpro program screen size is small , how can i run in full screen

Answer 1

Hi aditi1999,
in addition to Lakshmi's answer there is another option to maximize the form.
The following code example shows 2 different MAX-windows.
Version 1 = Doubleclick into the Form-header or Singleclick on the Max-button.
Version 2 = Doubleclick into the form.
The code uses a form so you don't get your _screen messed up as the .WindowState property is available in _screen and in forms.
PUBLIC oForm
oForm = CREATEOBJECT([MyForm])
oForm.Visible = .T.
DEFINE CLASS MyForm AS Form
AlwaysOnTop = .T.
BorderStyle = 0
ShowWindow = 2
TitleBar = 1
Caption = []
Top = 0
Left = 0
Width = 300
Height = 300
PROCEDURE Init
This.MinHeight = This.Width
This.MinWidth = This.Height
ENDPROC
PROCEDURE LostFocus
This.ToggleFullScreen()
ENDPROC
PROCEDURE DblClick
This.ToggleFullScreen()
ENDPROC
PROCEDURE ToggleFullScreen
IF This.TitleBar = 1
This.TitleBar = 0
This.Width = SYSMETRIC(1)
This.Height = SYSMETRIC(2)
This.Top = 0
This.Left = 0
ELSE
This.TitleBar = 1
This.Height = This.MinHeight
This.Width = This.MinWidth
ENDIF
ENDPROC
ENDDEFINE
Gruss / Best regards
-Tom
Debugging is twice as hard as writing the code in the first place.
Therefore, if you write the code as cleverly as possible,
you are, by definition, not smart enough to debug it. 010101100100011001010000011110000101001001101111011000110110101101110011