muß mich wieder mal als relativer Anfänger outen ...
Ich möchte in einem Dialogfenster ein Menü integrieren. Mit dem Beispiel in der Hilfe komme ich leider nicht weiter. Ich habs mal mit folgendem Code versucht, leider ohne Erfolg. Das Menü erscheint im Dialogfenster nicht ...
Kann mir bitte mal jemand auf die Sprünge helfen?
Danke!
Code: Alles auswählen
FUNCTION OPTIONEN_xxx( )
oDlg := XbpDialog():new( SetAppWindow():drawingArea , , , {500,300} , , .T. )
oDlg:taskList := .T.
oDlg:close := {|| oDlg:destroy() }
oDlg:title := "xxx"
oDlg:icon := ICON_APPLICATION
oDlg:create()
drawingArea := oDlg:drawingArea
drawingArea:setFontCompoundName( "10.Arial" )
CenterControl( oDlg )
SetAppFocus( oDlg )
// Create XbpMenubar in the dialog
oMenuBar := oDlg:menuBar()
// Create submenu and specify the menu bar as parent
oMenu := XbpMenu():New( oMenuBar ):create()
oMenu:title := "~SubMenu"
oMenu:addItem( { "~löschen ", {|| DELETE_xxx() } } )
oMenu:addItem( { "~drucken", {|| PRINT_xxx()} } )
// Attach submenu to menu bar
oMenubar:addItem( { oMenu, NIL } )
DO WHILE nEvent != xbeP_Close
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:HandleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN(NIL)
// ENDFUNCTION OPTIONEN_xxx()