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/sditbar.vct


�VERSION =   3.00!Arial, 0, 9, 5, 15, 12, 13, 3, 0
sditb1PixelsClass5toolbarsditb1�� ��%n�}�UT����C�����^��UTHISFORMOFORMREF	BACKCOLORClick,��1�1;)�FPROCEDURE Click
THISFORM.oFormRef.backcolor = RGB(255,0,0)
ENDPROC
oTop = 6
Left = 75
Height = 23
Width = 24
Caption = "4"
Default = .F.
ForeColor = 255,0,0
Name = "cmd4"
sditb1cmd4
commandbutton
commandbutton�� ��%n�}�UT����C������^��UTHISFORMOFORMREF	BACKCOLORClick,��1�1=)�HPROCEDURE Click
THISFORM.oFormRef.backcolor = RGB(255,255,0)
ENDPROC
qTop = 6
Left = 52
Height = 23
Width = 24
Caption = "3"
Default = .F.
ForeColor = 255,255,0
Name = "cmd3"
sditb1cmd3
commandbutton
commandbutton�� ��%n�}�UT����C�����^��UTHISFORMOFORMREF	BACKCOLORClick,��1�1;)�FPROCEDURE Click
THISFORM.oFormRef.backcolor = RGB(0,0,255)
ENDPROC
oTop = 6
Left = 29
Height = 23
Width = 24
Caption = "2"
Default = .F.
ForeColor = 0,0,255
Name = "cmd2"
sditb1cmd2
commandbutton
commandbutton�� ��%n�}�UT����C�����^��UTHISFORMOFORMREF	BACKCOLORClick,��1�1;)�FPROCEDURE Click
THISFORM.oFormRef.backcolor = RGB(0,255,0)
ENDPROC
nTop = 6
Left = 6
Height = 23
Width = 24
Caption = "1"
Default = .F.
ForeColor = 0,255,0
Name = "cmd1"
sditb1cmd1
commandbutton
commandbutton
oformref
s�� ZZ�y%��U�4��:%�C�m.oFormb�O�C�
���C��f�FORM����B��C�6You must pass a form reference to create this toolbar.�x��B�-���T������UOFORM	BASECLASSTHISOFORMREFInit,��1r�!qA1)Z PROCEDURE Init
#DEFINE ERR_NOFORMPARM_LOC	"You must pass a form reference to create this toolbar."
PARAMETER oForm


IF TYPE("m.oForm")#"O" OR ISNULL(m.oForm) OR UPPER(oForm.BaseClass) # "FORM" 
	MESSAGEBOX(ERR_NOFORMPARM_LOC)
	RETURN .F.
ENDIF

THIS.oFormRef = oForm
ENDPROC
toolbarfCaption = "Toolbar1"
Height = 32
Left = 46
Top = 10
Width = 103
ShowWindow = 1
Name = "sditb1"