Mini Kabibi Habibi

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

)VERSION =   3.00dataenvironmentdataenvironmentDatanavigationILeft = 1
Top = 220
Width = 520
Height = 200
Name = "Datanavigation"
11formsetformsetFormset1&AutoRelease = .T.
Name = "Formset1"
formformfrmleftFormset1�ScaleMode = 3
Top = 36
Left = 12
Height = 106
Width = 262
DoCreate = .T.
BorderStyle = 1
Caption = "Left Form"
ControlBox = .F.
Closable = .F.
MaxButton = .F.
HelpContextID = 170
Name = "frmleft"
1PROCEDURE Deactivate
IF TYPE("THISFORMSET.frmRight.c_solutions1") = "O" THEN
	THISFORMSET.frmRight.c_solutions1.restoreHelp
ENDIF
ENDPROC
PROCEDURE Activate
THISFORMSET.frmRight.c_solutions1.saveHelp
ENDPROC
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)


ENDPROC
�� ����%_C�UL5%�C�!THISFORMSET.frmRight.c_solutions1b�O��E��������UTHISFORMSETFRMRIGHTC_SOLUTIONS1RESTOREHELP������UTHISFORMSETFRMRIGHTC_SOLUTIONS1SAVEHELP	�%�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�����UTHISSETALL
Deactivate,��Activate���Init���1QA22d	��A�3����&	)�textboxtextboxtxtInputFormset1.frmleft�FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Value = User Input
Height = 24
InputMask = "XXXXXXXXXXXXXXXXXXXXXXX"
Left = 24
Top = 12
Width = 216
Name = "txtInput"

commandbutton
commandbuttoncmdClearFormset1.frmleft�Top = 72
Left = 132
Height = 23
Width = 110
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Clea\<r"
TabIndex = 4
Name = "cmdClear"
�PROCEDURE Click
ThisForm.txtInput.Value = ""
ThisForm.txtInput.FontBold = .F.
ThisForm.txtInput.FontItalic = .F.
ThisForm.chkItalic.Value = .F.
ThisForm.chkBold.Value = .F.

ENDPROC
N�� 55Kh%����UZT�������T����-��T����-��T����-��T����-��UTHISFORMTXTINPUTVALUEFONTBOLD
FONTITALIC	CHKITALICCHKBOLDClick,��112�)5checkboxcheckbox	chkItalicFormset1.frmleft�Top = 48
Left = 24
Height = 15
Width = 45
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
BackStyle = 0
Caption = "\<Italics"
Value = .F.
Name = "chkItalic"
QPROCEDURE InteractiveChange
ThisForm.txtInput.FontItalic = This.Value
ENDPROC
��� ��Q�%v���UT��������UTHISFORMTXTINPUT
FONTITALICTHISVALUEInteractiveChange,��1a1F)�checkboxcheckboxchkBoldFormset1.frmleft�Top = 48
Left = 84
Height = 15
Width = 39
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
BackStyle = 0
Caption = "\<Bold"
Value = .F.
Name = "chkBold"
TPROCEDURE InteractiveChange
This.Parent.txtInput.FontBold = This.Value

ENDPROC
��� ���%u���UT���������UTHISPARENTTXTINPUTFONTBOLDVALUEInteractiveChange,��1�2I)�behindscenes..\solution.vcx
commandbuttonbehindscenesFormset1.frmleftBTop = 72
Left = 24
Picture = ..\bts.bmp
Name = "behindscenes"
formformfrmrightFormset1�ScaleMode = 3
Top = 11
Left = 339
Height = 187
Width = 210
DoCreate = .T.
BorderStyle = 1
Caption = "Right Form"
ControlBox = .F.
Closable = .F.
MaxButton = .F.
HelpContextID = 170
Name = "frmright"
PROCEDURE Activate
THIS.c_solutions1.saveHelp
ENDPROC
PROCEDURE Deactivate
IF TYPE("THIS.c_solutions1") = "O" THEN
	THIS.c_solutions1.restoreHelp
ENDIF
ENDPROC
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)


ENDPROC
��� ��<�%�'�U
�����UTHISC_SOLUTIONS1SAVEHELP9%%�C�THIS.c_solutions1b�O��2�
������UTHISC_SOLUTIONS1RESTOREHELP	�%�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�����UTHISSETALLActivate,��
Deactivate^��Init���1�2Q�A2d	��A�3.O���	)�
commandbutton
commandbuttoncmdCaption1Formset1.frmright�Top = 9
Left = 15
Height = 23
Width = 180
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Change \<Left Form Caption"
TabIndex = 1
Name = "cmdCaption1"
iPROCEDURE Click
ThisFormSet.frmLeft.Caption = ALLTRIM(ThisFormSet.frmLeft.txtInput.Value)


ENDPROC
��� ���%����U!T����C�������UTHISFORMSETFRMLEFTCAPTIONTXTINPUTVALUEClick,��1�3^)�
commandbutton
commandbuttoncmdCaption2Formset1.frmright�AutoSize = .F.
Top = 45
Left = 15
Height = 23
Width = 180
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Change \<This Form's Caption"
TabIndex = 2
Name = "cmdCaption2"
^PROCEDURE Click
ThisForm.Caption = ALLTRIM(ThisFormSet.frmLeft.txtInput.Value)


ENDPROC
��� ��#�%����UT���C�������UTHISFORMCAPTIONTHISFORMSETFRMLEFTTXTINPUTVALUEClick,��1�3S)�
commandbutton
commandbutton
cmdChgBoldFormset1.frmright�Top = 81
Left = 15
Height = 23
Width = 180
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Change \<Bold Setting"
TabIndex = 3
Name = "cmdChgBold"
�PROCEDURE Click
ThisFormSet.frmLeft.chkBold.Value = NOT ThisFormSet.frmLeft.chkBold.Value
ThisFormSet.frmLeft.chkBold.InteractiveChange

ENDPROC
�� ���h%����U3 T���������
��������UTHISFORMSETFRMLEFTCHKBOLDVALUEINTERACTIVECHANGEClick,��12�)�
commandbutton
commandbuttoncmdQuitFormset1.frmright�Top = 152
Left = 15
Height = 23
Width = 180
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Close"
TabIndex = 5
Name = "cmdQuit"
1PROCEDURE Click
release thisformset

ENDPROC
��� ���k%G\V�U
<��UTHISFORMSETClick,��1q2&)�
commandbutton
commandbuttoncmdHideShowFormset1.frmright�Top = 119
Left = 15
Height = 23
Width = 180
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Hide Left Form"
TabIndex = 4
Name = "cmdHideShow"
�PROCEDURE Click
#define SHOW_LOC "\<Show Left Form"
#define HIDE_LOC "\<Hide Left Form"

IF ThisFormSet.frmLeft.Visible
	ThisFormSet.frmLeft.Hide
	This.Caption = SHOW_LOC
ELSE
	ThisFormSet.frmLeft.Show
	This.Caption = HIDE_LOC
ENDIF

ENDPROC
i�� PPf�%�	��U|%������@�
����� T����\<Show Left Form���u�
����� T����\<Hide Left Form���UTHISFORMSETFRMLEFTVISIBLEHIDETHISCAPTIONSHOWClick,��14���A2�)Pc_solutions..\solution.vcxcustomC_solutions1Formset1.frmright<Top = 0
Left = 0
centerform = .F.
Name = "C_solutions1"
JArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
?AutoRelease = .T.
Name = "Formset1"

HelpContextID = 1231558�ScaleMode = 3
Top = 36
Left = 12
Height = 106
Width = 262
DoCreate = .T.
BorderStyle = 1
Caption = "Left Form"
ControlBox = .F.
Closable = .F.
MaxButton = .F.
HelpContextID = 1231558
Name = "frmleft"
�ScaleMode = 3
Top = 11
Left = 339
Height = 187
Width = 210
DoCreate = .T.
BorderStyle = 1
Caption = "Right Form"
ControlBox = .F.
Closable = .F.
MaxButton = .F.
HelpContextID = 1231558
Name = "frmright"