Menus . . . 1

[ShyFox]

Hy,
Does anyone know how to make a foxpro menu with two columns?
Just like XP Start Menu?
Is it possible?
Regards

As I go deeper the road seems to go further. We're just simply pasangers on the road of knowledge.

 

[Mike Gagnon]

ShyFox

Can you explain what "Just like XP Start Menu" is? Do you mean the submenus that appear when you click on the start button? Create sub-menu items, here is an example you can run in a program and see if that is what you are looking for (Take a look at the file tab):

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _10p0c5tul OF _MSYSMENU PROMPT "System" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _10p0c5tum OF _MSYSMENU PROMPT "File" COLOR SCHEME 3 ;
	KEY ALT+F, ""
DEFINE PAD _10p0c5tun OF _MSYSMENU PROMPT "Windows" COLOR SCHEME 3 ;
	KEY ALT+W, ""
ON PAD _10p0c5tum OF _MSYSMENU ACTIVATE POPUP file

DEFINE POPUP file MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF file PROMPT "File #2"
DEFINE BAR 2 OF file PROMPT "File #3"
ON BAR 2 OF file ACTIVATE POPUP file3

DEFINE POPUP file3 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF file3 PROMPT "Sub File #1"

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[ShyFox]

Mike,
You gave me a ordinary menu example ... this I know how to build.
I want a shortcut menu, that would rise from a button, looking like this:
__________________
| Link0 | Link7 |
| Link1 | Link8 |
| Link2 | Link9 |
| Link3 | submenu1|
| Link4 | submenu1|
| Link5 | submenu1|
| Link6 | submenu1|
------------------
Regards

As I go deeper the road seems to go further. We're just simply pasangers on the road of knowledge.

 

[Mike Gagnon]

You gave me a ordinary menu example ... this I know how to build.
I want a shortcut menu

Sorry I didn't notice you mentionned shortcut in your original post. ;-)
The shortcut menu in VFP will only go up, if there is no room to go down. Try the following in a program and run it.

Try this:

PUBLIC oform1
oform1=NEWOBJECT("form1")
oform1.Show
RETURN
DEFINE CLASS form1 AS form
	Top = 600
	Left = 1
	Height = 27
	Width = 663
	DoCreate = .T.
	Caption = "Form1"
	TitleBar = 0
	Name = "Form1"
	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 0, ;
		Left = 0, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "Start", ;
		Name = "Command1"
	PROCEDURE popup
		DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
		DEFINE BAR 1 OF shortcut PROMPT "Link1"
		DEFINE BAR 2 OF shortcut PROMPT "Link2"
		DEFINE BAR 3 OF shortcut PROMPT "Link3"
		DEFINE BAR 4 OF shortcut PROMPT "Link4"
		ON BAR 4 OF shortcut ACTIVATE POPUP link4
		DEFINE POPUP link4 SHORTCUT RELATIVE
		DEFINE BAR 1 OF link4 PROMPT "subLink1"
		DEFINE BAR 2 OF link4 PROMPT "SubLink2"
        	ACTIVATE POPUP shortcut
	ENDPROC
	PROCEDURE Init
	ENDPROC
	PROCEDURE command1.Click
		thisform.popup 
	ENDPROC
ENDDEFINE

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[ShyFox]

Mike,
Thank you, for your help. Although it's not what I wanted I really apreciate your help. From your example I understand that I can achieve only a copy of Win 98 Start Menu type.
Star.
Regards

As I go deeper the road seems to go further. We're just simply pasangers on the road of knowledge.