Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ffc/
Upload File :
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ffc/environ.sct

*eVERSION =   3.00dataenvironmentdataenvironmentDataenvironmentLLeft = 251
Top = 242
Width = 520
Height = 200
Name = "Dataenvironment"
12frmsolution..\solution.vcxformFrmsolution1*Height = 224
Width = 459
DoCreate = .T.
Caption = "Handle Application Environment Tasks"
Visible = .T.
HelpContextID = 218
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 192
C_solutions1.Left = 48
C_solutions1.Height = 14
C_solutions1.Width = 16
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 192
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 7
Behindscenes1.ZOrderSet = 4
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 60
Shape2.Width = 432
Shape2.ZOrderSet = 5
Shape2.Name = "Shape2"
Label1.Caption = "These utilties should be used with your applications for saving/restoring critical state settings and handling common application operations."
Label1.Height = 42
Label1.Left = 24
Label1.Top = 24
Label1.Width = 408
Label1.TabIndex = 8
Label1.ZOrderSet = 6
Label1.Name = "Label1"
Label4.TabIndex = 10
Label4.ZOrderSet = 7
Label4.Name = "Label4"
Cmdclose1.Top = 192
Cmdclose1.Left = 372
Cmdclose1.TabIndex = 9
Cmdclose1.ZOrderSet = 8
Cmdclose1.Name = "Cmdclose1"
>PROCEDURE Release
DODEFAULT()
RELEASE oObjState

ENDPROC
�� ��D%Ng_�U	��C��<��U	OOBJSTATERelease,��1�q23)�shapeshapeShape4Frmsolution1cTop = 72
Left = 300
Height = 49
Width = 144
SpecialEffect = 0
ZOrderSet = 0
Name = "Shape4"
shapeshapeShape3Frmsolution1cTop = 72
Left = 156
Height = 96
Width = 144
SpecialEffect = 0
ZOrderSet = 1
Name = "Shape3"
shapeshapeShape1Frmsolution1bTop = 72
Left = 12
Height = 96
Width = 144
SpecialEffect = 0
ZOrderSet = 2
Name = "Shape1"
shapeshapeShape5Frmsolution1dTop = 121
Left = 300
Height = 47
Width = 144
SpecialEffect = 0
ZOrderSet = 0
Name = "Shape5"

commandbutton
commandbuttoncmdHideSysTbarsFrmsolution1�Top = 84
Left = 24
Height = 27
Width = 120
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Hide System Toolbars"
TabIndex = 1
ZOrderSet = 10
Name = "cmdHideSysTbars"
HPROCEDURE Click
THISFORM._sysToolbars.HideSystemToolbars()

ENDPROC
�� ���%o�~�U��C�����UTHISFORM_SYSTOOLBARSHIDESYSTEMTOOLBARSClick,��12=)�
commandbutton
commandbuttoncmdShowSysTbarsFrmsolution1�Top = 132
Left = 24
Height = 27
Width = 120
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Show System Toolbars"
TabIndex = 2
ZOrderSet = 11
Name = "cmdShowSysTbars"
HPROCEDURE Click
THISFORM._sysToolbars.ShowSystemToolbars()

ENDPROC
�� ���%o�~�U��C�����UTHISFORM_SYSTOOLBARSSHOWSYSTEMTOOLBARSClick,��12=)�_systoolbars..\..\..\ffc\_app.vcxcustom_systoolbarsFrmsolution1FTop = 192
Left = 72
Height = 14
Width = 18
Name = "_systoolbars"

commandbutton
commandbuttonCommand1Frmsolution1�Top = 84
Left = 168
Height = 27
Width = 120
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Object State"
TabIndex = 3
ZOrderSet = 13
Name = "Command1"
8PROCEDURE Click
#DEFINE C_NOCLASS_LOC "Objstate class library (_APP.VCX) not found."
#DEFINE C_OBJSTATECAPTION_LOC	"Object State Set"
#DEFINE C_OBJSTATE_LOC	"The Object State utility is useful for saving/restoring "+;
	"object state. In this example, the Caption property is restored when object is "+;
	"released. The BackColor property, however, is intentionally left permanently changed."

MESSAGEBOX(C_OBJSTATE_LOC)

LOCAL lcFile
lcfile = HOME()+("FFC\_app.vcx")
IF NOT FILE(lcfile)
	WAIT WINDOW C_NOCLASS_LOC TIMEOUT 3
	RETURN .F.
ENDIF

PUBLIC oObjState
oObjState= newobject("_objectstate",lcFile,"",THISFORM)
oObjState.Set('Caption',C_OBJSTATECAPTION_LOC, .T.)	&& will restore when oObjState releases
oObjState.Set('BackColor',GETCOLOR())		&& will not restore when oObjState releases


ENDPROC
��� ��*�%5^
D�U����C�8The Object State utility is useful for saving/restoring �Oobject state. In this example, the Caption property is restored when object is �Ureleased. The BackColor property, however, is intentionally left permanently changed.�x�����T��C�Q�FFC\_app.vcx��%�C�0
��h�<R,�����,Objstate class library (_APP.VCX) not found.��B�-���7��&T��C�_objectstate������+��C�Caption�Object State Seta������C�	BackColorC�����ULCFILE	OOBJSTATETHISFORMSETClick,��1r��qAra��3-)�
commandbutton
commandbuttonCommand2Frmsolution1�Top = 132
Left = 168
Height = 27
Width = 120
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Reset Object State"
TabIndex = 4
ZOrderSet = 14
Name = "Command2"
-PROCEDURE Click
RELEASE oObjState
ENDPROC
��� ���%EZT�U
<��U	OOBJSTATEClick,��1q1")�
commandbutton
commandbutton
cmdSessionFrmsolution1�Top = 84
Left = 312
Height = 27
Width = 120
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Data Session Forms"
TabIndex = 5
ZOrderSet = 15
Name = "cmdSession"
�PROCEDURE Click
#DEFINE C_DSESSION_LOC	"The Data Session Object can be used on data "+;
	"input forms to handle saving/reverting of buffered data. "+;
	"Try changing data in one of the forms and closing that form."

MESSAGEBOX(C_DSESSION_LOC)

DO FORM dSession Name Session1
DO FORM dSession Name Session2
Session2.Left = Session1.Left + 20
Session2.Top = Session1.Top + 20

ENDPROC
�� ���p%g�v�U���C�,The Data Session Object can be used on data �9input forms to handle saving/reverting of buffered data. �<Try changing data in one of the forms and closing that form.�x���dSessionJ���dSessionJ��T��������T��������UDSESSIONSESSION1SESSION2LEFTTOPClick,��1UBAqq2�)�
commandbutton
commandbuttoncmdTimerFrmsolution1�Top = 132
Left = 312
Height = 27
Width = 120
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Trace Aware Timer"
TabIndex = 6
ZOrderSet = 15
Name = "cmdTimer"
�PROCEDURE Click
#DEFINE C_TRTIMER_LOC	"The Trace Aware Timer is a smart timer which "+;
 "can be used in applications to prevent Timer events from occurring when "+;
 "the debugger is open. Open the Debugger to see the Timer event slow from "+;
 "listing output to the screen every second to every 5 seconds."

IF ThisForm._traceawaretimer.Interval = 0
	MESSAGEBOX(C_TRTIMER_LOC)
	ThisForm._traceawaretimer.Interval = 1000
ELSE
	ThisForm._traceawaretimer.Interval = 0
ENDIF
ENDPROC
7�� _%����U`%�������>���C�-The Trace Aware Timer is a smart timer which �Hcan be used in applications to prevent Timer events from occurring when �Ithe debugger is open. Open the Debugger to see the Timer event slow from �=listing output to the screen every second to every 5 seconds.�x��T���������Y�T��������UTHISFORM_TRACEAWARETIMERINTERVALClick,��1v1A�1A1�)_objectstate..\..\..\ffc\_app.vcxcustom_objectstateFrmsolution1FTop = 192
Left = 96
Height = 14
Width = 18
Name = "_objectstate"
_traceawaretimer..\..\..\ffc\_app.vcxtimer_traceawaretimerFrmsolution1bTop = 192
Left = 120
Height = 24
Width = 24
itraceinterval = 5000
Name = "_traceawaretimer"
YPROCEDURE Timer
DODEFAULT()
ACTI SCREEN
? "Timer event!  "+STR(SECONDS())

ENDPROC
�� ����%`yo�U0	��C��t&����Timer event!  CC�Z��UTimer,��1�Q�2N)�JArial, 0, 9, 5, 15, 12, 21, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
.Height = 224
Width = 459
DoCreate = .T.
Caption = "Handle Application Environment Tasks"
Visible = .T.
HelpContextID = 1231604
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 192
C_solutions1.Left = 48
C_solutions1.Height = 14
C_solutions1.Width = 16
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 192
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 7
Behindscenes1.ZOrderSet = 4
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 60
Shape2.Width = 432
Shape2.ZOrderSet = 5
Shape2.Name = "Shape2"
Label1.Caption = "These utilties should be used with your applications for saving/restoring critical state settings and handling common application operations."
Label1.Height = 42
Label1.Left = 24
Label1.Top = 24
Label1.Width = 408
Label1.TabIndex = 8
Label1.ZOrderSet = 6
Label1.Name = "Label1"
Label4.TabIndex = 10
Label4.ZOrderSet = 7
Label4.Name = "Label4"
Cmdclose1.Top = 192
Cmdclose1.Left = 372
Cmdclose1.TabIndex = 9
Cmdclose1.ZOrderSet = 8
Cmdclose1.Name = "Cmdclose1"