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)
>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
>
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)
