Mini Kabibi Habibi

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

6MVERSION =   3.00dataenvironmentdataenvironmentDataenvironmentName = "Dataenvironment"
12formformForm1�DataSession = 2
Height = 278
Width = 259
DoCreate = .T.
AutoCenter = .T.
BorderStyle = 2
Caption = "Disable or Display a Check Beside a Menu Item"
MaxButton = .F.
HelpContextID = 20
Name = "Form1"
TPROCEDURE Deactivate
IF TYPE('THIS.c_solutions1') = "O" THEN
	THIS.c_solutions1.restoreHelp
ENDIF
ENDPROC
PROCEDURE Activate
THISFORM.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)

DO chkmenu.mpr

ENDPROC
PROCEDURE Destroy
RELEASE PAD chkPad OF _MSYSMENU

ENDPROC
�� ��%|Z�U9%%�C�THIS.c_solutions1b�O��2�
������UTHISC_SOLUTIONS1RESTOREHELP
�����UTHISFORM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������chkmenu.mpr�UTHISSETALLCHKMENUMPR<�����UCHKPAD
Deactivate,��Activate���Init���Destroy���1Q�A2�2d	��A�"3�2d���
	(I)�checkboxcheckboxchk1Form1�Top = 129
Left = 69
Height = 15
Width = 47
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
BackStyle = 0
Caption = "Item \<1"
Value = .F.
TabIndex = 8
Name = "chk1"
~PROCEDURE InteractiveChange
SET MARK OF BAR 1 OF checkitems TO THIS.Value
THISFORM.imgCheck1.visible = THIS.VALUE
ENDPROC
�� �%����U2G:�����(�����T��������U
CHECKITEMSTHISVALUETHISFORM	IMGCHECK1VISIBLEInteractiveChange,��1�a1s)checkboxcheckboxchk2Form1�Top = 145
Left = 69
Height = 15
Width = 47
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
BackStyle = 0
Caption = "Item \<2"
Value = .F.
TabIndex = 9
Name = "chk2"
~PROCEDURE InteractiveChange
SET MARK OF BAR 2 OF checkitems TO THIS.Value
THISFORM.imgCheck2.visible = THIS.VALUE
ENDPROC
�� �%����U2G:�����(�����T��������U
CHECKITEMSTHISVALUETHISFORM	IMGCHECK2VISIBLEInteractiveChange,��1�a1s)checkboxcheckboxchk3Form1�Top = 169
Left = 69
Height = 15
Width = 47
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
BackStyle = 0
Caption = "Item \<3"
Value = .F.
TabIndex = 10
Name = "chk3"
�PROCEDURE InteractiveChange
* Because the separation bar of the menu is bar 3, set mark of bar 4
SET MARK OF BAR 4 OF checkitems TO THIS.Value
THISFORM.imgCheck3.visible = THIS.VALUE
ENDPROC
�� �%����U2G:�����(�����T��������U
CHECKITEMSTHISVALUETHISFORM	IMGCHECK3VISIBLEInteractiveChange,��1�a1�)checkboxcheckboxchk4Form1�Top = 184
Left = 69
Height = 15
Width = 47
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
BackStyle = 0
Caption = "Item \<4"
Value = .F.
TabIndex = 11
Name = "chk4"
~PROCEDURE InteractiveChange
SET MARK OF BAR 5 OF checkitems TO THIS.Value
THISFORM.imgCheck4.visible = THIS.VALUE
ENDPROC
�� �%����U2G:�����(�����T��������U
CHECKITEMSTHISVALUETHISFORM	IMGCHECK4VISIBLEInteractiveChange,��1�a1s)checkboxcheckboxchk5Form1�Top = 199
Left = 69
Height = 15
Width = 47
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
BackStyle = 0
Caption = "Item \<5"
Value = .F.
TabIndex = 12
Name = "chk5"
~PROCEDURE InteractiveChange
SET MARK OF BAR 6 OF checkitems TO THIS.Value
THISFORM.imgCheck5.visible = THIS.VALUE
ENDPROC
�� �%����U2G:�����(�����T��������U
CHECKITEMSTHISVALUETHISFORM	IMGCHECK5VISIBLEInteractiveChange,��1�a1s)behindscenes..\solution.vcx
commandbutton
Behindscenes1Form1=Top = 245
Left = 11
TabIndex = 13
Name = "Behindscenes1"
cmdclose..\solution.vcx
commandbutton	Cmdclose2Form1:Top = 245
Left = 175
TabIndex = 15
Name = "Cmdclose2"
c_solutions..\solution.vcxcustomC_solutions1Form1WTop = 205
Left = 4
Height = 18
Width = 25
centerform = .F.
Name = "C_solutions1"
checkboxcheckboxchkEnabled1Form1�Top = 129
Left = 43
Height = 15
Width = 18
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
BackStyle = 0
Caption = ""
Value = .T.
TabIndex = 2
Name = "chkEnabled1"
|PROCEDURE InteractiveChange
SET SKIP OF BAR 1 OF checkitems !THIS.Value
THISFORM.imgItem1.visible = !THIS.value
ENDPROC
�� �%����U3GN��������
��T������
��U
CHECKITEMSTHISVALUETHISFORMIMGITEM1VISIBLEInteractiveChange,��1�q1q)labellabelLabel2Form1�FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "\<Enabled"
Height = 18
Left = 16
Top = 111
Width = 49
TabIndex = 1
Name = "Label2"
checkboxcheckboxchkEnabled2Form1�Top = 145
Left = 43
Height = 15
Width = 18
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
BackStyle = 0
Caption = ""
Value = .T.
TabIndex = 3
Name = "chkEnabled2"
|PROCEDURE InteractiveChange
SET SKIP OF BAR 2 OF checkitems !THIS.Value
THISFORM.imgItem2.visible = !THIS.value
ENDPROC
�� �%����U3GN��������
��T������
��U
CHECKITEMSTHISVALUETHISFORMIMGITEM2VISIBLEInteractiveChange,��1�q1q)checkboxcheckboxchkEnabled3Form1�Top = 169
Left = 43
Height = 15
Width = 18
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
BackStyle = 0
Caption = ""
Value = .T.
TabIndex = 4
Name = "chkEnabled3"
|PROCEDURE InteractiveChange
SET SKIP OF BAR 4 OF checkitems !THIS.Value
THISFORM.imgItem3.visible = !THIS.value
ENDPROC
�� �%����U3GN��������
��T������
��U
CHECKITEMSTHISVALUETHISFORMIMGITEM3VISIBLEInteractiveChange,��1�q1q)checkboxcheckboxchkEnabled4Form1�Top = 184
Left = 43
Height = 15
Width = 18
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
BackStyle = 0
Caption = ""
Value = .T.
TabIndex = 5
Name = "chkEnabled4"
|PROCEDURE InteractiveChange
SET SKIP OF BAR 5 OF checkitems !THIS.Value
THISFORM.imgItem4.visible = !THIS.value
ENDPROC
�� �%����U3GN��������
��T������
��U
CHECKITEMSTHISVALUETHISFORMIMGITEM4VISIBLEInteractiveChange,��1�q1q)checkboxcheckboxchkEnabled5Form1�Top = 199
Left = 43
Height = 15
Width = 18
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
BackStyle = 0
Caption = ""
Value = .T.
TabIndex = 6
Name = "chkEnabled5"
|PROCEDURE InteractiveChange
SET SKIP OF BAR 6 OF checkitems !THIS.Value
THISFORM.imgItem5.visible = !THIS.value
ENDPROC
�� �%����U3GN��������
��T������
��U
CHECKITEMSTHISVALUETHISFORMIMGITEM5VISIBLEInteractiveChange,��1�q1q)
commandbutton
commandbuttoncmdOpenMenuForm1�Top = 245
Left = 55
Height = 23
Width = 72
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Show Menu"
TabIndex = 14
Name = "cmdOpenMenu"
@PROCEDURE Click
ACTIVATE MENU _MSYSMENU PAD chkPad

ENDPROC
��� ��Ix%F[U�Ut����UCHKPADClick,��1�25)�shapeshapeShape2Form1bTop = 14
Left = 10
Height = 73
Width = 238
BackStyle = 0
SpecialEffect = 0
Name = "Shape2"
labellabelLabel3Form1 FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
Caption = "A 'Check Items' menu has been added to the menu bar.  Enable, disable, check and uncheck the menu items by clicking the check boxes below."
Height = 56
Left = 20
Top = 25
Width = 219
TabIndex = 0
Name = "Label3"
labellabelLabel4Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " Instructions "
Height = 15
Left = 18
Top = 8
Width = 62
TabIndex = 0
Name = "Label4"
textboxtextbox
txtPreviewForm1�Enabled = .F.
Height = 132
Left = 148
TabIndex = 0
Top = 100
Width = 100
BackColor = 128,128,128
DisabledBackColor = 128,128,128
Name = "txtPreview"
imageimageImage1Form1YPicture = preview.bmp
Height = 108
Left = 163
Top = 110
Width = 71
Name = "Image1"
imageimage	imgCheck1Form1hPicture = check.bmp
Height = 11
Left = 166
Top = 132
Visible = .F.
Width = 10
Name = "imgCheck1"
imageimage	imgCheck2Form1hPicture = check.bmp
Height = 11
Left = 166
Top = 146
Visible = .F.
Width = 10
Name = "imgCheck2"
imageimage	imgCheck3Form1hPicture = check.bmp
Height = 11
Left = 166
Top = 171
Visible = .F.
Width = 10
Name = "imgCheck3"
imageimage	imgCheck4Form1hPicture = check.bmp
Height = 11
Left = 166
Top = 186
Visible = .F.
Width = 10
Name = "imgCheck4"
imageimage	imgCheck5Form1hPicture = check.bmp
Height = 11
Left = 166
Top = 200
Visible = .F.
Width = 10
Name = "imgCheck5"
imageimageimgItem1Form1gPicture = item1.bmp
Height = 13
Left = 177
Top = 132
Visible = .F.
Width = 33
Name = "imgItem1"
imageimageimgItem2Form1gPicture = item2.bmp
Height = 14
Left = 177
Top = 146
Visible = .F.
Width = 33
Name = "imgItem2"
imageimageimgItem3Form1gPicture = item3.bmp
Height = 14
Left = 177
Top = 170
Visible = .F.
Width = 33
Name = "imgItem3"
imageimageimgItem4Form1gPicture = item4.bmp
Height = 14
Left = 177
Top = 185
Visible = .F.
Width = 33
Name = "imgItem4"
imageimageimgItem5Form1gPicture = item5.bmp
Height = 14
Left = 177
Top = 200
Visible = .F.
Width = 33
Name = "imgItem5"
labellabelLabel5Form1�FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "\<Checked"
Height = 18
Left = 68
Top = 111
Width = 49
TabIndex = 7
Name = "Label5"
JArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
�DataSession = 2
Height = 278
Width = 259
DoCreate = .T.
AutoCenter = .T.
BorderStyle = 2
Caption = "Disable or Display a Check Beside a Menu Item"
MaxButton = .F.
HelpContextID = 1231503
Name = "Form1"