De nada, you're welcome.

-Stefan

>Vielen Dank; I'll pass this on to my friend.
>
>>Hil Hilmar -
>>Top-level forms work well, but you can have "SDI" menus also inside forms with .ShowWindow=0 (in screen), or 1 (in top-level), as long as form.Desktop=.T.
>>
>>
>>hth
>>-Stefan
>>
>>
>>

>>PUBLIC oForm
>>oForm = CREATEOBJECT('TestForm')
>>*!*	oForm.Show()
>>oForm.Show(1) && SDI menu in modal form with ShowWindow=0
>>RETURN
>>
>>DEFINE CLASS TestForm as Form
>>
>>*!*		ShowWindow = 2
>>* or
>>	Desktop = .T.
>>
>>	AutoCenter = .T.
>>	cMenuName = SYS(2015)
>>
>>	PROCEDURE Init
>>		This.SDIMenu()
>>	ENDPROC
>>
>>	PROCEDURE SDIMenu
>>		DEFINE MENU (This.cMenuName) ;
>>			IN (Thisform.Name) BAR
>>
>>		DEFINE PAD testpad OF (This.cMenuName) ;
>>			PROMPT "testpad" COLOR SCHEME 3 ;
>>			KEY ALT+T, ""
>>		ON PAD testpad OF (This.cMenuName) ;
>>			ACTIVATE POPUP testpop
>>
>>		DEFINE POPUP testpop MARGIN RELATIVE ;
>>			SHADOW COLOR SCHEME 4
>>		DEFINE BAR 1 OF testpop PROMPT "Green"
>>		ON SELECTION BAR 1 OF testpop _screen.ActiveForm.BackColor = 4259584
>>		DEFINE BAR 2 OF testpop PROMPT "Blue"
>>		ON SELECTION BAR 2 OF testpop _screen.ActiveForm.BackColor = 16711680
>>
>>		ACTIVATE MENU (This.cMenuName) NOWAIT
>>	ENDPROC
>>ENDDEFINE
>>