Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ffc/
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ffc/getfilex.sct
"�VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentLLeft = 251
Top = 242
Width = 520
Height = 200
Name = "Dataenvironment"
12frmsolution..\solution.vcxformFrmsolution1�Height = 294
Width = 360
DoCreate = .T.
Caption = "Use the New Openfile Dialog"
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 264
C_solutions1.Left = 48
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 264
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 20
Behindscenes1.ZOrderSet = 3
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 60
Shape2.Width = 336
Shape2.ZOrderSet = 4
Shape2.Name = "Shape2"
Label1.Caption = "You can add the latest style Windows Openfile dialog with Places bar to you applications. There are many valuable options you can set with this Windows API call."
Label1.Height = 42
Label1.Left = 24
Label1.Top = 24
Label1.Width = 312
Label1.TabIndex = 2
Label1.ZOrderSet = 5
Label1.Name = "Label1"
Label4.TabIndex = 1
Label4.ZOrderSet = 6
Label4.Name = "Label4"
Cmdclose1.Top = 264
Cmdclose1.Left = 276
Cmdclose1.TabIndex = 19
Cmdclose1.ZOrderSet = 7
Cmdclose1.Name = "Cmdclose1"
[PROCEDURE RightClick
PRIVATE oTHISForm
oTHISForm=THIS
THIS.oMenu.ShowMenu()

ENDPROC
��� ��Q�%y���U'5��
T�������C�����U	OTHISFORMTHISOMENUSHOWMENU
RightClick,��1q�2P)�
commandbutton
commandbuttoncmdShowFrmsolution1zTop = 264
Left = 132
Height = 23
Width = 72
FontSize = 8
Caption = "\<Show Dialog"
TabIndex = 18
Name = "cmdShow"
iPROCEDURE Click

THISFORM._COMDLG.nHwndOwner = _SCREEN.Hwnd

THISFORM._COMDLG.cTitlebarText = ALLTRIM(THISFORM.txtCaption.Value)

THISFORM._COMDLG.cTitlebarText = ALLTRIM(THISFORM.txtCaption.Value)
THISFORM._COMDLG.cFileName = ALLTRIM(THISFORM.txtDefaultFile.Value)
THISFORM._COMDLG.cDefaultExtension = ALLTRIM(THISFORM.txtDefExt.Value)
THISFORM._COMDLG.cInitialDirectory = ALLTRIM(THISFORM.txtInitDir.Value)

THISFORM._COMDLG.ClearFilters()
IF !EMPTY(ALLTRIM(THISFORM.txtFilters.Value))
	THISFORM._COMDLG.AddFilter(ALLTRIM(THISFORM.txtFilters.Value))
ENDIF

THISFORM._COMDLG.ShowDialog()

ENDPROC
��� hh��%�
�U�T�����9���T����C������T����C������T����C������T���	�C��
����T����C��������C���
��%�CC�����
������CC������������C�����UTHISFORM_COMDLG
NHWNDOWNERHWND
CTITLEBARTEXT
TXTCAPTIONVALUE	CFILENAMETXTDEFAULTFILECDEFAULTEXTENSION	TXTDEFEXTCINITIALDIRECTORY
TXTINITDIRCLEARFILTERS
TXTFILTERS	ADDFILTER
SHOWDIALOGClick,��1R�������A2^)h_comdlg..\..\..\ffc\_system.vcxcustom_comdlgFrmsolution1(Top = 264
Left = 72
Name = "_comdlg"
checkboxcheckboxchkMultiSelectFrmsolution1�Top = 84
Left = 12
Height = 15
Width = 142
FontName = "MS Sans Serif"
AutoSize = .T.
Caption = "Allow \<multiple file selection"
Value = .F.
TabIndex = 3
Name = "chkMultiSelect"
MPROCEDURE Click
THISFORM._COMDLG.lAllowMultiSelect = THIS.Value

ENDPROC
�� ��4S%|���UT��������UTHISFORM_COMDLGLALLOWMULTISELECTTHISVALUEClick,��1a2B)�checkboxcheckbox
chkSaveButtonFrmsolution1�Top = 100
Left = 12
Height = 15
Width = 98
FontName = "MS Sans Serif"
AutoSize = .T.
Caption = "Use Sa\<ve button"
Value = .F.
TabIndex = 4
Name = "chkSaveButton"
GPROCEDURE Click
THISFORM._COMDLG.lSaveDialog = THIS.Value

ENDPROC
�� ����%v���UT��������UTHISFORM_COMDLGLSAVEDIALOGTHISVALUEClick,��1a2<)�checkboxcheckboxchkReadonlyFrmsolution1�Top = 84
Left = 192
Height = 15
Width = 138
FontName = "MS Sans Serif"
AutoSize = .T.
Caption = "Show \<readonly checkbox"
Value = .F.
TabIndex = 6
Name = "chkReadonly"
JPROCEDURE Click
THISFORM._COMDLG.lHideReadonly = !THIS.Value

ENDPROC
�� ��G�%y���UT������
��UTHISFORM_COMDLG
LHIDEREADONLYTHISVALUEClick,��1q2?)�checkboxcheckboxchkFileMustExistFrmsolution1�Top = 100
Left = 192
Height = 15
Width = 83
FontName = "MS Sans Serif"
AutoSize = .T.
Caption = "File must \<exist"
Value = .F.
TabIndex = 7
Name = "chkFileMustExist"
JPROCEDURE Click
THISFORM._COMDLG.lFileMustExist = THIS.Value

ENDPROC
�� ��G�%y���UT��������UTHISFORM_COMDLGLFILEMUSTEXISTTHISVALUEClick,��1a2?)�textboxtextbox
txtCaptionFrmsolution1yFontSize = 8
Value = My Open Dialog
Height = 23
Left = 72
TabIndex = 9
Top = 144
Width = 276
Name = "txtCaption"
labellabelLabel3Frmsolution1tFontSize = 8
Caption = "\<Caption:"
Height = 17
Left = 12
Top = 148
Width = 40
TabIndex = 8
Name = "Label3"
textboxtextboxtxtDefaultFileFrmsolution1xFontSize = 8
Value = test.txt
Height = 23
Left = 72
TabIndex = 11
Top = 168
Width = 132
Name = "txtDefaultFile"
labellabelLabel2Frmsolution1zFontSize = 8
Caption = "\<Default file:"
Height = 16
Left = 12
Top = 172
Width = 56
TabIndex = 10
Name = "Label2"
textboxtextbox
txtInitDirFrmsolution1tFontSize = 8
Value = (HOME())
Height = 23
Left = 72
TabIndex = 15
Top = 192
Width = 276
Name = "txtInitDir"
labellabelLabel5Frmsolution1�AutoSize = .F.
FontSize = 8
Caption = "\<Initial Dir::"
Height = 16
Left = 12
Top = 196
Width = 47
TabIndex = 14
Name = "Label5"
textboxtextbox	txtDefExtFrmsolution1nFontSize = 8
Value = TXT
Height = 23
Left = 276
TabIndex = 13
Top = 168
Width = 72
Name = "txtDefExt"
labellabelLabel6Frmsolution1�AutoSize = .T.
FontSize = 8
Caption = "E\<xtension:"
Height = 16
Left = 217
Top = 172
Width = 52
TabIndex = 12
Name = "Label6"
textboxtextbox
txtFiltersFrmsolution1�FontSize = 8
Value = My VFP files (*.prg, etc.)", "*.PRG;*.H;*.VCX;*.PJX
Height = 23
Left = 72
TabIndex = 17
Top = 216
Width = 276
Name = "txtFilters"
labellabelLabel7Frmsolution1uFontSize = 8
Caption = "\<Filters:"
Height = 16
Left = 12
Top = 220
Width = 34
TabIndex = 16
Name = "Label7"
checkboxcheckbox
chkHidePlacesFrmsolution1�Top = 116
Left = 12
Height = 15
Width = 93
FontName = "MS Sans Serif"
AutoSize = .T.
Caption = "\<Hide Places bar"
Value = .F.
TabIndex = 5
Name = "chkHidePlaces"
HPROCEDURE Click
THISFORM._COMDLG.lNoPlacesBar = THIS.Value

ENDPROC
�� ��i�%w���UT��������UTHISFORM_COMDLGLNOPLACESBARTHISVALUEClick,��1a2=)��Arial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 0, 8, 5, 14, 11, 30, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0