Mini Kabibi Habibi

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


VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentLLeft = 251
Top = 242
Width = 520
Height = 200
Name = "Dataenvironment"
cursorcursorCursor1Dataenvironment�Left = 10
Top = 20
Width = 173
Height = 136
Alias = "customer"
BufferModeOverride = 5
Database = ..\..\data\testdata.dbc
CursorSource = "customer"
Name = "Cursor1"
22frmsolution..\solution.vcxformFrmsolution1=Height = 249
Width = 335
DoCreate = .T.
Caption = "Add Miscellaneous Form Buttons"
Visible = .T.
HelpContextID = 207
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 216
C_solutions1.Left = 48
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 216
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 9
Behindscenes1.ZOrderSet = 2
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 72
Shape2.Width = 312
Shape2.ZOrderSet = 3
Shape2.Name = "Shape2"
Label1.Caption = "Here are some buttons you can use for common application operations such as launching applications, sending mail, running forms or previewing reports. Use the Shell Execute class for launching a non FoxPro document."
Label1.Height = 57
Label1.Left = 24
Label1.Top = 24
Label1.Width = 288
Label1.TabIndex = 10
Label1.ZOrderSet = 4
Label1.Name = "Label1"
Label4.TabIndex = 12
Label4.ZOrderSet = 5
Label4.Name = "Label4"
Cmdclose1.Top = 216
Cmdclose1.Left = 252
Cmdclose1.TabIndex = 11
Cmdclose1.ZOrderSet = 6
Cmdclose1.Name = "Cmdclose1"
_cmdhelp..\..\..\ffc\_miscbtns.vcx
commandbutton	_cmdhelp1Frmsolution1�Top = 168
Left = 96
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
TabIndex = 5
ZOrderSet = 7
Name = "_cmdhelp1"

_cmdlaunch..\..\..\ffc\_miscbtns.vcx
commandbutton_cmdlaunch1Frmsolution1�Top = 96
Left = 12
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
TabIndex = 1
ZOrderSet = 8
Name = "_cmdlaunch1"
�PROCEDURE Click
#DEFINE C_SELECTFILE_LOC	"Select a File to Run"
THIS.cFileName= GETFILE("APP,EXE",'','',0,C_SELECTFILE_LOC)
IF FILE(THIS.cFileName)
	DODEFAULT()
ENDIF

ENDPROC
�� sN%����U[9T���C�APP,EXE����Select a File to Run���%�C��0��T�	��C���UTHIS	CFILENAMEClick,��1�!�A2�)_cmdok..\..\..\ffc\_miscbtns.vcx
commandbutton_cmdok1Frmsolution1�Top = 96
Left = 96
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
TabIndex = 3
ZOrderSet = 9
Name = "_cmdok1"

_cmdcancel..\..\..\ffc\_miscbtns.vcx
commandbutton_cmdcancel1Frmsolution1�Top = 132
Left = 96
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
TabIndex = 4
ZOrderSet = 10
Name = "_cmdcancel1"
_cmdrunform..\..\..\ffc\_miscbtns.vcx
commandbutton_cmdrunform1Frmsolution1�Top = 96
Left = 180
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
TabIndex = 6
ZOrderSet = 11
cfilename = (HOME()+'samples\solution\ffc\datanav.scx')
lsetcaption = .F.
Name = "_cmdrunform1"

_cmdrunreport..\..\..\ffc\_miscbtns.vcx
commandbutton_cmdrunreport1Frmsolution1�Top = 132
Left = 180
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
TabIndex = 7
ZOrderSet = 12
cfilename = ..\Reports\Colors.frx
lsetcaption = .F.
loutputdialogpreventsource = .T.
Name = "_cmdrunreport1"
ePROCEDURE Click
LOCAL lcSaveArea
lcSaveArea = SELECT()
DODEFAULT()
SELECT (lcSaveArea)
ENDPROC
�� ���N%e�t�U)���T��CW��	��C��
F����U
LCSAVEAREAClick,��1q���1Z)�_mailbtn..\..\..\ffc\_miscbtns.vcx	container	_mailbtn1Frmsolution1gTop = 96
Left = 288
Width = 25
Height = 25
TabIndex = 8
ZOrderSet = 13
Name = "_mailbtn1"
cmdMail.Name = "cmdMail"
oleMmess.Top = -1000
oleMmess.Left = -1000
oleMmess.Height = 100
oleMmess.Width = 100
oleMmess.Name = "oleMmess"
olemSess.Top = -1000
olemSess.Left = -1000
olemSess.Height = 100
olemSess.Width = 100
olemSess.Name = "olemSess"

commandbutton
commandbuttoncmdShellFrmsolution1�Top = 132
Left = 12
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Shell Exec..."
TabIndex = 2
ZOrderSet = 13
Name = "cmdShell"
�PROCEDURE Click
LOCAL lcFile
lcFile = GETFILE("HTM")
IF FILE(lcFile)
	THIS.Parent._ShellExecute.ShellExecute(lcFile)
ENDIF
ENDPROC
(�� .�%����UF���T��C�HTM���%�C�0��?���C��������ULCFILETHISPARENT
_SHELLEXECUTESHELLEXECUTEClick,��1q!�qA1)
_shellexecute..\..\..\ffc\_environ.vcxcustom
_shellexecuteFrmsolution1.Top = 216
Left = 72
Name = "_shellexecute"
JArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
AHeight = 249
Width = 335
DoCreate = .T.
Caption = "Add Miscellaneous Form Buttons"
Visible = .T.
HelpContextID = 1231593
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 216
C_solutions1.Left = 48
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 216
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 9
Behindscenes1.ZOrderSet = 2
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 72
Shape2.Width = 312
Shape2.ZOrderSet = 3
Shape2.Name = "Shape2"
Label1.Caption = "Here are some buttons you can use for common application operations such as launching applications, sending mail, running forms or previewing reports. Use the Shell Execute class for launching a non FoxPro document."
Label1.Height = 57
Label1.Left = 24
Label1.Top = 24
Label1.Width = 288
Label1.TabIndex = 10
Label1.ZOrderSet = 4
Label1.Name = "Label1"
Label4.TabIndex = 12
Label4.ZOrderSet = 5
Label4.Name = "Label4"
Cmdclose1.Top = 216
Cmdclose1.Left = 252
Cmdclose1.TabIndex = 11
Cmdclose1.ZOrderSet = 6
Cmdclose1.Name = "Cmdclose1"