Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/forms/
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/forms/launch.sct
VERSION =   3.00dataenvironmentdataenvironmentDatanavigationILeft = 72
Top = 56
Width = 581
Height = 266
Name = "Datanavigation"
12formformfrmlauncher�DataSession = 2
ScaleMode = 3
Top = 39
Left = 54
Height = 120
Width = 387
DoCreate = .T.
BorderStyle = 2
Caption = "Run Multiple Instances of a Form"
MaxButton = .F.
MinButton = .F.
AlwaysOnTop = .T.
HelpContextID = 171
Name = "frmlauncher"
:PROCEDURE Deactivate
IF TYPE("THIS.c_solutions1") = "O" THEN
	THIS.c_solutions1.restoreHelp
ENDIF
ENDPROC
PROCEDURE Activate
THIS.c_solutions1.saveHelp
ENDPROC
PROCEDURE Load
THIS.Top = 50
THIS.Left = 450
ENDPROC
PROCEDURE Init
IF  fontmetric(1, 'MS Sans Serif', 8, '') # 13 OR ;
	fontmetric(4, 'MS Sans Serif', 8, '') # 2 OR ;
	fontmetric(6, 'MS Sans Serif', 8, '') # 5 OR ;
	fontmetric(7, 'MS Sans Serif', 8, '') # 11
	this.setall('fontname', 'Tahoma')  
ELSE
	this.setall('fontname','MS Sans Serif')
ENDIF
this.setall('fontsize',8)


ENDPROC
�� ����%tR�U9%%�C�THIS.c_solutions1b�O��2�
������UTHISC_SOLUTIONS1RESTOREHELP
�����UTHISC_SOLUTIONS1SAVEHELP$T����2��T�������UTHISTOPLEFT	�%�C��
MS Sans Serif���$�
�!C��
MS Sans Serif���$��!C��
MS Sans Serif���$��!C��
MS Sans Serif���$�����!��C�fontname�Tahoma�������(��C�fontname�
MS Sans Serif�������C�fontsize�����UTHISSETALL
Deactivate,��Activate���Load���Init���1Q�A2�22d	��A�3d����	
�/
)�^aforms[1,0] 

commandbutton
commandbutton	cmdLaunchfrmlauncher�Top = 44
Left = 306
Height = 23
Width = 72
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Run Form"
TabIndex = 1
Name = "cmdLaunch"
"PROCEDURE Click
#define INSTANCE_LOC "Instance "
LOCAL nFormLeft, nFormTop, cFormCaption
nInstance = ALEN(THISFORM.aForms)


*Set the Top and Left Properties to Cascade the new Forms
IF nInstance > 1 AND TYPE('THISFORM.aForms[nInstance -1]') = 'O' ;
		AND NOT ISNULL(THISFORM.aForms[nInstance -1])
	nFormTop = THISFORM.aForms[nInstance -1].Top + 20
	nFormLeft = THISFORM.aForms[nInstance -1].Left + 10
ELSE
	nFormTop = 1
	nFormLeft = 1
ENDIF

*Set the caption to reflect the instance number
cFormCaption = INSTANCE_LOC + ALLTRIM(STR(nInstance))


* Run the form and assign the object variable to the array element
* The Linked keyword indicates that all instances will be released when
* the array is released. Without 'LINKED', the multiple instance forms
* would persist after the array is released
DO FORM Multi NAME THISFORM.aForms[nInstance] WITH ;
     nFormTop, nFormLeft, cFormCaption LINKED

*Redimension the array so that more instances of the form can be launched		
DIMENSION THISFORM.aforms[nInstance + 1]

ENDPROC
A�� ((�%����U2�����T��C����Q%����(C�THISFORM.aForms[nInstance -1]b�O	�CC�����
	����T��C��������T��C������
�����
T�����
T������T���	Instance CC�Z���'�MultiJ�����������������U		NFORMLEFTNFORMTOPCFORMCAPTION	NINSTANCETHISFORMAFORMSTOPLEFTMULTIClick,��1�!�����A�xC2)(cmdclose..\solution.vcx
commandbutton	Cmdclose1frmlauncher8Top = 84
Left = 306
TabIndex = 2
Name = "Cmdclose1"
c_solutions..\solution.vcxcustomC_solutions1frmlaunchernTop = 188
Left = 68
Height = 18
Width = 25
centerform = .F.
autosetdefault = .T.
Name = "C_solutions1"
behindscenes..\solution.vcx
commandbutton
Behindscenes2frmlauncher<Top = 12
Left = 353
TabIndex = 3
Name = "Behindscenes2"
shapeshapeShape2frmlauncherbTop = 11
Left = 10
Height = 98
Width = 285
BackStyle = 0
SpecialEffect = 0
Name = "Shape2"
labellabelLabel5frmlauncheruFontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
Caption = ("You can view a different record in each instance of a form by setting the DataSession property of the form to Private Data Session." + CHR(13) + CHR(13) + "Click Run Form several times to run multiple instances of a form.")
Height = 82
Left = 20
Top = 21
Width = 271
TabIndex = 0
Name = "Label5"
labellabelLabel6frmlauncher�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " Instructions "
Height = 15
Left = 18
Top = 5
Width = 62
TabIndex = 0
Name = "Label6"
c_solutions..\solution.vcxcustomC_solutions2frmlauncher-Top = 11
Left = 316
Name = "C_solutions2"
JArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
DataSession = 2
ScaleMode = 3
Top = 39
Left = 54
Height = 120
Width = 387
DoCreate = .T.
BorderStyle = 2
Caption = "Run Multiple Instances of a Form"
MaxButton = .F.
MinButton = .F.
AlwaysOnTop = .T.
HelpContextID = 1231559
Name = "frmlauncher"