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/output.sct
�VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentaTop = 242
Left = 251
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
cursorcursorCursor1Dataenvironment�Top = 20
Left = 10
Height = 90
Width = 95
Alias = "customer"
Database = ..\..\data\testdata.dbc
CursorSource = "customer"
Name = "Cursor1"
22frmsolution..\solution.vcxformFrmsolution1Height = 227
Width = 334
DoCreate = .T.
Caption = "Display Data Reporting Output Options"
Visible = .T.
HelpContextID = 1231612
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 192
C_solutions1.Left = 48
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 192
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 4
Behindscenes1.ZOrderSet = 3
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 60
Shape2.Width = 312
Shape2.ZOrderSet = 4
Shape2.Name = "Shape2"
Label1.Caption = "This highly versatile output dialog allows for a variety of reporting output. It is subclassed from a generic output object. The text viewer is handy for viewing text files."
Label1.Height = 42
Label1.Left = 24
Label1.Top = 24
Label1.Width = 288
Label1.TabIndex = 6
Label1.ZOrderSet = 5
Label1.Name = "Label1"
Label4.TabIndex = 8
Label4.ZOrderSet = 6
Label4.Name = "Label4"
Cmdclose1.Top = 192
Cmdclose1.Left = 252
Cmdclose1.TabIndex = 7
Cmdclose1.ZOrderSet = 7
Cmdclose1.Name = "Cmdclose1"
shapeshapeShape3Frmsolution1bTop = 72
Left = 12
Height = 96
Width = 156
SpecialEffect = 0
ZOrderSet = 0
Name = "Shape3"
shapeshapeShape1Frmsolution1cTop = 72
Left = 168
Height = 96
Width = 156
SpecialEffect = 0
ZOrderSet = 1
Name = "Shape1"
checkboxcheckbox	chkSourceFrmsolution1�Top = 120
Left = 24
Height = 15
Width = 134
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
Caption = "Prevent \<source changes"
Value = .F.
TabIndex = 2
Name = "chkSource"
checkboxcheckboxchkScopeFrmsolution1�Top = 144
Left = 24
Height = 15
Width = 131
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
Caption = "Prevent s\<cope changes"
Value = .F.
TabIndex = 3
Name = "chkScope"

commandbutton
commandbuttoncmdShowtextFrmsolution1�Top = 84
Left = 192
Height = 23
Width = 108
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Text..."
TabIndex = 5
ZOrderSet = 11
Name = "cmdShowtext"
�PROCEDURE Click
LOCAL loForm
loForm = NewObject("_showtext",HOME()+"FFC\_reports.vcx","",GETFILE("txt,prg"))
IF VARTYPE(loForm) # "O"
	RETURN
ENDIF
loForm.Show(1)

ENDPROC
5�� Ƶ%����Uv���?T��C�	_showtextC�Q�FFC\_reports.vcx�C�txt,prg����%�C����O��_�B����C�����ULOFORMSHOWClick,��1q�QAA2�)
commandbutton
commandbutton	cmdOutputFrmsolution1�Top = 84
Left = 36
Height = 23
Width = 108
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Output..."
TabIndex = 1
ZOrderSet = 11
Name = "cmdOutput"
/PROCEDURE Click
LOCAL loForm
loForm = NewObject("_outputdialog",HOME()+"FFC\_reports.vcx")
IF VARTYPE(loForm) # "O"
	RETURN
ENDIF
WITH loForm
	.cAlias = ALIAS()
	.lPreventSourceChanges=THISFORM.chkSource.Value
	.lPreventScopeChanges=THISFORM.chkScope.Value
ENDWITH
loForm.Show(1)

ENDPROC
�� ��ͽ%Js
Y�U����4T��C�
_outputdialogC�Q�FFC\_reports.vcx���%�C����O��T�B��
�������
T��C��T�������T�����������C�����U	LOFORMCALIASLPREVENTSOURCECHANGESTHISFORM	CHKSOURCEVALUELPREVENTSCOPECHANGESCHKSCOPESHOWClick,��1qAQAA��AAA2$)�JArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0