>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 >