Mini Kabibi Habibi

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

*VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentName = "Dataenvironment"
12formformForm1�DataSession = 2
Top = 3
Left = 4
Height = 226
Width = 423
DoCreate = .T.
Caption = "Customize the Open Dialog Box"
MaxButton = .F.
HelpContextID = 197
Name = "Form1"
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)

* Check to see if OCX installed and loaded.
IF TYPE("THIS.oleCommDlog") # "O" OR ISNULL(THIS.oleCommDlog)
	RETURN .F.
ENDIF
ENDPROC
PROCEDURE Activate
THIS.c_solutions1.saveHelp
ENDPROC
PROCEDURE Deactivate
IF TYPE("THIS.c_solutions1") = "O" THEN
	THIS.c_solutions1.restoreHelp
ENDIF
ENDPROC
��� ����%uS�UD�%�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�����0%�C�THIS.oleCommDlogb�O�	C�����=�B�-���UTHISSETALLOLECOMMDLOG
�����UTHISC_SOLUTIONS1SAVEHELP9%%�C�THIS.c_solutions1b�O��2�
������UTHISC_SOLUTIONS1RESTOREHELPInit,��Activate���
Deactivate���1d	��A�qA2�2Q�A1��
&t)�shapeshapeShape1Form1bTop = 69
Left = 10
Height = 54
Width = 404
BackStyle = 0
SpecialEffect = 0
Name = "Shape1"
labellabelLabel2Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " \<Options "
Height = 15
Left = 18
Top = 63
Width = 44
TabIndex = 1
Name = "Label2"
behindscenes..\solution.vcx
commandbutton
Behindscenes1Form1<Top = 194
Left = 11
TabIndex = 8
Name = "Behindscenes1"
cmdclose..\solution.vcx
commandbutton	Cmdclose2Form1:Top = 194
Left = 342
TabIndex = 10
Name = "Cmdclose2"
c_solutions..\solution.vcxcustomC_solutions1Form1FTop = 198
Left = 52
Height = 18
Width = 25
Name = "C_solutions1"
checkboxcheckboxchkReadForm1�Top = 79
Left = 115
Height = 15
Width = 118
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
Caption = "\<Read-Only checkbox"
Value = .T.
TabIndex = 3
Name = "chkRead"
checkboxcheckboxchkMultiForm1�Top = 79
Left = 18
Height = 15
Width = 75
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
Caption = "\<Multiple files"
Value = .F.
TabIndex = 2
Name = "chkMulti"

olecontrol
olecontrololeCommDlogForm1GTop = 191
Left = 78
Height = 100
Width = 100
Name = "oleCommDlog"

��ࡱ�>��	������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Root Entry��������`�m/�@OleObjectData����\AccessObjSiteData&������������\ChangedProps�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<����+/I�!C4OO�<� \$828C4C820-401A-101B-A3C9-08002B2F49FB�A,OLEObject = C:\WINNT\system32\COMDLG32.OCX
editboxeditboxedtFilesForm1�FontName = "MS Sans Serif"
FontSize = 8
Height = 51
Left = 10
ReadOnly = .T.
TabIndex = 7
Top = 134
Width = 404
Name = "edtFiles"

commandbutton
commandbuttoncmdFilesForm1�Top = 194
Left = 264
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Try It..."
TabIndex = 9
Name = "cmdFiles"
jPROCEDURE Click
#DEFINE ALLFILES1_LOC	"All files (*.*)|*.*|Forms (*.scx)|*.scx|Reports(*.frx)|*.frx"
#DEFINE ALLFILES2_LOC	"All files (*.*)|*.*|Text (*.txt)|*.txt|Pictures(*.bmp;*.ico)|*.bmp;*.ico"

LOCAL nFlags
nFlags = 0
IF VAL(OS(3)) > 4
	nFlags = 0x00080000
ENDIF

* Read-only checkbox flag
IF !thisform.chkRead.Value
	m.nFlags = m.nFlags + 4
ENDIF

* Multiple files flag
IF thisform.chkMulti.Value
	m.nFlags = m.nFlags + 512
ENDIF

* Help button flag
IF thisform.chkHelp.Value
	m.nFlags = m.nFlags + 16
ENDIF

* Enforce file existence flag
IF thisform.chkMulti.Value
	m.nFlags = m.nFlags + 4096
ENDIF

thisform.oleCommDlog.Flags = m.nFlags

* Check for Fox filter
IF thisform.chkFox.Value
	thisform.oleCommDlog.FileName = "*.*"
	thisform.olecommdlog.filter = ALLFILES1_LOC
ELSE
	thisform.oleCommDlog.FileName = "*.*"
	thisform.olecommdlog.filter = ALLFILES2_LOC
ENDIF

* Display file dialog
thisform.oleCommDlog.ShowOpen()

IF thisform.oleCommDlog.FileName = "*.*"
	thisform.edtFiles.Value = "" 
ELSE
	thisform.edtFiles.Value = thisform.oleCommDlog.FileName 
ENDIF

ENDPROC
��� ����%W!�U_���
T�����%�CC�Jg���9�T���
���%����
��f�T�
���
�����%��������T�
���
�����%��������T�
���
�����%��������T�
���
�����T�����
���%������}�T���	��*.*��OT���
��<All files (*.*)|*.*|Forms (*.scx)|*.scx|Reports(*.frx)|*.frx�����T���	��*.*��[T���
��HAll files (*.*)|*.*|Text (*.txt)|*.txt|Pictures(*.bmp;*.ico)|*.bmp;*.ico�����C�����%����	�*.*��7�T��������X�T�������	���U
NFLAGSTHISFORMCHKREADVALUECHKMULTICHKHELPOLECOMMDLOGFLAGSCHKFOXFILENAMEFILTERSHOWOPENEDTFILESClick,��1t�QACQA3aA3QA3aAR3a��a�A�1��A2_)�checkboxcheckbox
chkEnforceForm1�Top = 100
Left = 115
Height = 15
Width = 96
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
Caption = "\<Enforce valid file"
Value = .T.
TabIndex = 6
Name = "chkEnforce"
checkboxcheckboxchkHelpForm1�Top = 100
Left = 18
Height = 15
Width = 73
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
Caption = "\<Help button"
Value = .F.
TabIndex = 5
Name = "chkHelp"
checkboxcheckboxchkFoxForm1�Top = 79
Left = 272
Height = 15
Width = 125
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
Caption = "\<Visual FoxPro files filter"
Value = .T.
TabIndex = 4
Name = "chkFox"
shapeshapeShape2Form1bTop = 12
Left = 10
Height = 46
Width = 404
BackStyle = 0
SpecialEffect = 0
Name = "Shape2"
labellabelLabel1Form1:FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
Caption = "The Common dialog control can offer some additional features not found in the Visual FoxPro native Getfile() function.  Select options below, and then click Try It."
Height = 32
Left = 16
Top = 23
Width = 396
TabIndex = 0
Name = "Label1"
labellabelLabel5Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " Instructions "
Height = 15
Left = 18
Top = 6
Width = 62
TabIndex = 0
Name = "Label5"
JArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
�DataSession = 2
Top = 3
Left = 4
Height = 226
Width = 423
DoCreate = .T.
Caption = "Customize the Open Dialog Box"
MaxButton = .F.
HelpContextID = 1231583
Name = "Form1"