Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/wizards/
Upload File :
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/wizards/appwiz.sct

�VERSION =   3.00	appbldr.hdataenvironmentdataenvironmentDataenvironmentName = "Dataenvironment"
11formform	frmAppWiz�Height = 197
Width = 341
DoCreate = .T.
AutoCenter = .T.
BorderStyle = 2
Caption = "Application Wizard"
MaxButton = .F.
MinButton = .F.
WindowType = 1
HelpContextID = 22990006
Name = "frmAppWiz"
>PROCEDURE finish
LOCAL lcOutFile, lcProjectName, llCreateDir

lcOutFile = ALLTRIM(THIS._folder1.txtProjectFile.Value)
lcProjectName = ALLTRIM(THIS._folder1.txtProjectName.Value)
llCreateDir = THIS._folder1.chkCreateProjDir.Value

IF EMPTY(lcProjectName) OR	EMPTY(lcOutFile)
	RETURN .F.
ENDIF

* If file exists, prompt to overwrite
IF FILE(lcOutFile) AND MESSAGEBOX(C_PJXEXISTS_LOC,36)#6
	RETURN .F.
ENDIF

IF VARTYPE(THIS.oSettings) # "O"
	RETURN
ENDIF

THIS.oSettings.AddProperty("cOutFile",lcOutFile)
THIS.oSettings.AddProperty("cProjectName",lcProjectName)
THIS.oSettings.AddProperty("lCreateDir",llCreateDir)

ENDPROC
PROCEDURE Init
LPARAMETERS p1,p2,p3,p4,p5,p6,p7,p8,p9

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', 'Arial')
ELSE
	this.setall('fontname','MS Sans Serif')
ENDIF
this.setall('fontsize',8)

IF VARTYPE(m.p1) = "O"
	THIS.oSettings = m.p1
ENDIF

ENDPROC
��� pp<1%���Uj�����T��C�������T��C�������T��������%�C���C����t�B�-���a%�C�0�OC�AThis project name already exists, would you like to overwrite it?�$�x�	����B�-���%�C��	���O���B����C�cOutFile���	�
��#��C�cProjectName���	�
��!��C�
lCreateDir���	�
��U	LCOUTFILE
LCPROJECTNAMELLCREATEDIRTHIS_FOLDER1TXTPROJECTFILEVALUETXTPROJECTNAMECHKCREATEPROJDIR	OSETTINGSADDPROPERTY\'������������%�C��
MS Sans Serif���$�
�!C��
MS Sans Serif���$��!C��
MS Sans Serif���$��!C��
MS Sans Serif���$����� ��C�fontname�Arial�	�
���
�(��C�fontname�
MS Sans Serif�	�
�����C�fontsize��	�
��%�C�
����O��U�T�	���
����UP1P2P3P4P5P6P7P8P9THISSETALL	OSETTINGSfinish,��Init"��1���a�qAqA�AA�13qe	��A�r!A2|�3)posettings
*finish 
_folderapphook.vcx	container_folder1	frmAppWizTop = 24
Left = 3
Name = "_folder1"
lblProjectName.Name = "lblProjectName"
txtProjectName.Name = "txtProjectName"
lblProjectFile.Name = "lblProjectFile"
txtProjectFile.Name = "txtProjectFile"
cmdProjectFile.Name = "cmdProjectFile"
chkCreateProjDir.Name = "chkCreateProjDir"

commandbutton
commandbuttoncmdOK	frmAppWiz�Top = 166
Left = 191
Height = 23
Width = 66
FontName = "MS Sans Serif"
FontSize = 8
Caption = "OK"
Default = .T.
TabIndex = 2
Name = "cmdOK"
WPROCEDURE Click
IF !THISFORM.Finish()
	RETURN
ENDIF
THISFORM.Release()

ENDPROC
�� ���g%u���U*%�C��
���B��
��C����UTHISFORMFINISHRELEASEClick,��1!AA�2L)�
commandbutton
commandbutton	cmdCancel	frmAppWiz�Top = 166
Left = 263
Height = 23
Width = 66
FontName = "MS Sans Serif"
FontSize = 8
Cancel = .T.
Caption = "Cancel"
TabIndex = 3
Name = "cmdCancel"
.PROCEDURE Click
THISFORM.Release()
ENDPROC
�� ���%Shb�U
��C����UTHISFORMRELEASEClick,��1�1#)�labellabelLabel1	frmAppWiz�FontName = "MS Sans Serif"
FontSize = 8
Caption = "Select a file name and location for your new application:"
Height = 15
Left = 13
Top = 12
Width = 313
Name = "Label1"
JArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
	appbldr.h�]Y)