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/whandler.sct

(HVERSION =   3.00dataenvironmentdataenvironmentDataenvironmentLLeft = 251
Top = 242
Width = 520
Height = 200
Name = "Dataenvironment"
12frmsolution..\solution.vcxformFrmsolution1zHeight = 248
Width = 457
DoCreate = .T.
Caption = "Handle Common Windowing Tasks"
Visible = .T.
HelpContextID = 229
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 216
C_solutions1.Left = 49
C_solutions1.Height = 14
C_solutions1.Width = 16
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 216
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 = "This utility can help clean up messy desktops by arranging and cascading forms and windows. Use this in both _SCREEN and top-level form applications. WindowHandler also has other useful functions for top-level form applications."
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 = 216
Cmdclose1.Left = 372
Cmdclose1.TabIndex = 9
Cmdclose1.ZOrderSet = 8
Cmdclose1.Name = "Cmdclose1"
!^xx[1,0] 
^yy[1,0] 
^zz[1,0] 
shapeshapeShape4Frmsolution1dTop = 84
Left = 300
Height = 120
Width = 144
SpecialEffect = 0
ZOrderSet = 0
Name = "Shape4"
shapeshapeShape3Frmsolution1dTop = 84
Left = 156
Height = 120
Width = 144
SpecialEffect = 0
ZOrderSet = 1
Name = "Shape3"
shapeshapeShape1Frmsolution1cTop = 84
Left = 12
Height = 120
Width = 144
SpecialEffect = 0
ZOrderSet = 2
Name = "Shape1"

commandbutton
commandbuttoncmdHideSysTbarsFrmsolution1�Top = 96
Left = 24
Height = 27
Width = 120
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Display Windows"
TabIndex = 1
ZOrderSet = 10
Name = "cmdHideSysTbars"
,PROCEDURE Click
LOCAL ii

DIMENSION THISFORM.xx[5]
DIMENSION THISFORM.yy[6]
DIMENSION THISFORM.zz[7]

FOR ii = 1 TO ALEN(THISFORM.xx)
   THISFORM.xx[ii] = CREATEOBJECT("form")
   WITH THISFORM.xx[ii]
	   .left = rand()*500
	   .top = rand()*500
	   .width = 200
	   .height = 200
	   .backcolor = rgb(0,255,0)  
	   .caption = .caption+" #"+TRANS(ii)
	   .Name = "XX"
	   .Show()
   ENDWITH
ENDFOR   
FOR ii = 1 TO ALEN(THISFORM.yy)
   THISFORM.yy[ii] = CREATEOBJECT("form")
   WITH THISFORM.yy[ii]
	   .left = rand()*100
	   .top = rand()*100
	   .width = 400
	   .height = 150
	   .backcolor = rgb(255,255,0)  
	   .caption = .caption+" #"+TRANS(ii)
	   .Name = "YY"
	   .Show()
   ENDWITH
ENDFOR   
FOR ii = 1 TO ALEN(THISFORM.zz)
   THISFORM.zz[ii] = CREATEOBJECT("form")
	WITH THISFORM.zz[ii]
		.left = rand()*250
		.top = rand()*250
		.width = 200
		.height = 150
		.backcolor = rgb(0,255,255)  
		.caption = .caption+" #"+TRANS(ii)
		.Name = "ZZ"
		.Show()   
	ENDWITH
ENDFOR

THISFORM.AlwaysOnTop = .T.
ENDPROC
�� ��%����U3%�CC������O��,���C������UTHISFORMXXCUSWINDOWHANDLERCASCADEFORMINSTANCESClick,��1�A1k)�'�� ��%����U@%�CC������O��9���CC����������UTHISFORMXXCUSWINDOWHANDLERCASCADEFORMINSTANCESNAMEClick,��1��A1~)'�� ��%����U@%�CC������O��9���CC����������UTHISFORMYYCUSWINDOWHANDLERCASCADEFORMINSTANCESNAMEClick,��1��A1~)�� ���B%Wlf�U'$��C���
_mwi_arran�_mwindow]��UClick,��1A2?)�_windowhandler..\..\..\ffc\_ui.vcxcustomcusWindowHandlerFrmsolution1JTop = 216
Left = 72
Height = 22
Width = 24
Name = "cusWindowHandler"

commandbutton
commandbuttonCommand4Frmsolution1�Top = 132
Left = 312
Height = 27
Width = 120
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Arrange All"
TabIndex = 6
ZOrderSet = 11
Name = "Command4"
JPROCEDURE Click
SYS(1500,"_mwi_arran","_mwindow")           

ENDPROC
JArial, 0, 9, 5, 15, 12, 21, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
Frmsolution1Label5labellabelFrmsolution1Label3labellabelLabel2
commandbutton
commandbuttoncmdShowSysTbarsFrmsolution1�Top = 96
Left = 168
Height = 27
Width = 120
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Cascade \<Blues"
TabIndex = 2
ZOrderSet = 11
Name = "cmdShowSysTbars"
�PROCEDURE Click
IF VARTYPE(THISFORM.zz[1]) = "O"
	THISFORM.cusWindowHandler.CascadeFormInstances(THISFORM.zz[1].Name)
ENDIF
ENDPROC
'�� ��%����U@%�CC������O��9���CC����������UTHISFORMZZCUSWINDOWHANDLERCASCADEFORMINSTANCESNAMEClick,��1��A1~)
commandbutton
commandbuttonCommand1Frmsolution1�Top = 132
Left = 168
Height = 27
Width = 120
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Cascade \<Yellows"
TabIndex = 3
ZOrderSet = 11
Name = "Command1"
�PROCEDURE Click
IF VARTYPE(THISFORM.yy[1]) = "O"
	THISFORM.cusWindowHandler.CascadeFormInstances(THISFORM.yy[1].Name)
ENDIF
ENDPROC
�FontName = "MS Sans Serif"
FontSize = 8
Caption = "3."
Height = 15
Left = 312
Top = 79
Width = 11
TabIndex = 13
Name = "Label5"
�FontName = "MS Sans Serif"
FontSize = 8
Caption = "2."
Height = 15
Left = 168
Top = 79
Width = 11
TabIndex = 12
Name = "Label3"
label
commandbutton
commandbuttonCommand2Frmsolution1�Top = 168
Left = 168
Height = 27
Width = 120
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Cascade \<Greens"
TabIndex = 4
ZOrderSet = 11
Name = "Command2"
�PROCEDURE Click
IF VARTYPE(THISFORM.xx[1]) = "O"
	THISFORM.cusWindowHandler.CascadeFormInstances(THISFORM.xx[1].Name)
ENDIF
ENDPROC
�FontName = "MS Sans Serif"
FontSize = 8
Caption = "1."
Height = 15
Left = 24
Top = 78
Width = 11
TabIndex = 11
Name = "Label2"
Frmsolution1labelvPROCEDURE Click
IF VARTYPE(THISFORM.xx[1]) = "O"
	THISFORM.cusWindowHandler.CascadeFormInstances()
ENDIF
ENDPROC

commandbutton
commandbuttonCommand3Frmsolution1�Top = 96
Left = 312
Height = 27
Width = 120
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Cascade All"
TabIndex = 5
ZOrderSet = 11
Name = "Command3"
L�� 33��%�.��U���������������������������(�C�����T������C�form�N����C������T��C�����T��C�����T�����T�����T�	�C�����^��T�
��
� #C�_��T���XX����C������������(�C������T������C�form�N����C�������T��C��d��T��C��d��T������T������T�	�C������^��T�
��
� #C�_��T���YY����C������������(�C������T������C�form�N����C�������T��C�����T��C�����T�����T������T�	�C������^��T�
��
� #C�_��T���ZZ����C�������T��
�a��UIITHISFORMXXYYZZLEFTTOPWIDTHHEIGHT	BACKCOLORCAPTIONNAMESHOWALWAYSONTOPClick,��1q��Q!!��q��AA��Q��q��AA��Q��q��AA�1!)3~Height = 248
Width = 457
DoCreate = .T.
Caption = "Handle Common Windowing Tasks"
Visible = .T.
HelpContextID = 1231615
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 216
C_solutions1.Left = 49
C_solutions1.Height = 14
C_solutions1.Width = 16
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 216
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 = "This utility can help clean up messy desktops by arranging and cascading forms and windows. Use this in both _SCREEN and top-level form applications. WindowHandler also has other useful functions for top-level form applications."
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 = 216
Cmdclose1.Left = 372
Cmdclose1.TabIndex = 9
Cmdclose1.ZOrderSet = 8
Cmdclose1.Name = "Cmdclose1"