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/newmenu.sct
HVERSION =   3.00dataenvironmentdataenvironmentDataenvironmentLLeft = 251
Top = 242
Width = 520
Height = 200
Name = "Dataenvironment"
12frmsolution..\solution.vcxformFrmsolution1�Height = 158
Width = 337
DoCreate = .T.
Caption = "Add Shortcut Menus to Objects"
Visible = .T.
HelpContextID = 225
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 120
C_solutions1.Left = 48
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 120
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 5
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 = "Create easy to build context sensitive menus. To try, right-click on form. The menu class supports separators, bold, disabled, marked and cascading menus."
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 = 120
Cmdclose1.Left = 252
Cmdclose1.TabIndex = 7
Cmdclose1.ZOrderSet = 7
Cmdclose1.Name = "Cmdclose1"
�PROCEDURE handlemenu
#DEFINE SELECT_LOC	"You selected :"
LPARAMETER tcPopup,tnBar
WAIT WINDOW SELECT_LOC+PRMBAR(tcPopup,tnBar) TIMEOUT 1
ENDPROC
PROCEDURE RightClick
PRIVATE oTHISForm
oTHISForm=THIS
THIS.oMenu.ShowMenu()

ENDPROC
m�� TT:�%����U6����(R,�����You selected :C�����UTCPOPUPTNBAR'5��
T�������C�����U	OTHISFORMTHISOMENUSHOWMENU
handlemenu,��
RightClickv��1��2q�2���)T*handlemenu 

_shortcutmenu..\..\..\ffc\_menu.vcxcustomoMenuFrmsolution1&Top = 120
Left = 84
Name = "oMenu"
�PROCEDURE setmenu
LPARAMETERS toobject
LOCAL oMenu2
oMenu2= THIS.NewMenu()
WITH oMenu2
	.AddMenuBar("AAA","oTHISForm.HandleMenu(POPUP(),BAR())")
	.AddMenuBar("BBB","oTHISForm.HandleMenu(POPUP(),BAR())")
	.AddMenuBar("CCC","oTHISForm.HandleMenu(POPUP(),BAR())")
	.AddMenuBar("DDD","oTHISForm.HandleMenu(POPUP(),BAR())")
	.AddMenuBar("EEE","oTHISForm.HandleMenu(POPUP(),BAR())")
ENDWITH

WITH THIS
	.AddMenuBar("XXX","oTHISForm.HandleMenu(POPUP(),BAR())")
	.AddMenuSeparator()
	.AddMenuBar("YYY",oMenu2)
	.AddMenuBar("ZZZ","oTHISForm.HandleMenu(POPUP(),BAR())")
	.AddMenuBar("QQQ","oTHISForm.HandleMenu(POPUP(),BAR())")
	.AddMenuBar("PPP","oTHISForm.HandleMenu(POPUP(),BAR())",,,.T.)
	.AddMenuBar("WWW","oTHISForm.HandleMenu(POPUP(),BAR())",,,,.T.)
	.AddMenuBar("GGG","oTHISForm.HandleMenu(POPUP(),BAR())",,,,,.T.)
ENDWITH

ENDPROC
PROCEDURE Init
DODEFAULT()
this.SetMenu()

ENDPROC
+�� ��%h���U�������T��C����
�����?�7��C�AAA�#oTHISForm.HandleMenu(POPUP(),BAR())���7��C�BBB�#oTHISForm.HandleMenu(POPUP(),BAR())���7��C�CCC�#oTHISForm.HandleMenu(POPUP(),BAR())���7��C�DDD�#oTHISForm.HandleMenu(POPUP(),BAR())���7��C�EEE�#oTHISForm.HandleMenu(POPUP(),BAR())�����
�������7��C�XXX�#oTHISForm.HandleMenu(POPUP(),BAR())�����C�����C�YYY����7��C�ZZZ�#oTHISForm.HandleMenu(POPUP(),BAR())���7��C�QQQ�#oTHISForm.HandleMenu(POPUP(),BAR())���:��C�PPP�#oTHISForm.HandleMenu(POPUP(),BAR())��a���;��C�WWW�#oTHISForm.HandleMenu(POPUP(),BAR())���a���<��C�GGG�#oTHISForm.HandleMenu(POPUP(),BAR())����a�����UTOOBJECTOMENU2THISNEWMENU
ADDMENUBARADDMENUSEPARATOR	��C��
��C����UTHISSETMENUsetmenu,��Init<��1qq�qqqqqA�q�Qqq���A3��2Kf�)JArial, 0, 9, 5, 15, 12, 21, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
Height = 158
Width = 337
DoCreate = .T.
Caption = "Add Shortcut Menus to Objects"
Visible = .T.
HelpContextID = 1231611
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 120
C_solutions1.Left = 48
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 120
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 5
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 = "Create easy to build context sensitive menus. To try, right-click on form. The menu class supports separators, bold, disabled, marked and cascading menus."
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 = 120
Cmdclose1.Left = 252
Cmdclose1.TabIndex = 7
Cmdclose1.ZOrderSet = 7
Cmdclose1.Name = "Cmdclose1"