Example for change menu system from Xbpmenu to eXpress DC...

[Victorio]

Hi,

I tried create menu by Xbase example childwin, which use Xbpmenu.

My questions :
1. How can I change font in this example ?
2. Is possible in XBPMENU vertical title so as eXpress OWNERDRAW parameter ?
3. How can I modify this example childwin to using eXpress DCMENU ?
I want call menu same as in example from Appsys() with AppMenu(oDlg:menuBar())
I still have error duplicate declararion oMenuBar in AppMenu function that is made with


Here is source code childwin :

//////////////////////////////////////////////////////////////////////
//
// CHILDWIN.PRG
//
// Copyright:
// Alaska Software, (c) 1997-2009. All rights reserved.
//
// Contents:
// The program demonstrates how to define or change parent-child
// relationships between windows (XbaseParts).
//
//////////////////////////////////////////////////////////////////////

#include "Appevent.ch"
#include "Common.ch"
#include "Font.ch"
#include "Gra.ch"
#include "Xbp.ch"


/*
* Define an XbpDialog window as application window
*/
PROCEDURE AppSys
LOCAL oDlg, aPos[2], aSize

aSize := SetAppWindow():currentSize()

* toto je pozícia, kde sa umiestni okno, teda lavy dolny roh
* teda vypočítané ako 0.1 z aSize ktoré je zase zistené cez currentSize
aPos[1] := 0.05 * aSize[1]
aPos[2] := 0.05 * aSize[2]

* pokus o úpravu veľkosti, lebo tu je napevno nastavena velkost
* vyssie currentsize je pouzite iba pre vypocet pozicie umiestnenia okna
*aSize[1] := 640
*aSize[2] := 400

* tu nastavujem, zeby sa zobrazilo okno o velkosti 0,9 x max. rozmer okna
*aSize[1] := aSize[1]*0.9
*aSize[2] := aSize[2]*0.9

* tu je priklad ak sa zobrazi na celu plochu obrazovky, ale pozor,
* treba upravit aj umiestnenie okna
*aSize[1] := aSize[1]*1
*aSize[2] := aSize[2]*1

* teda lepsie bude nie cela plocha, pripadne pozicia dole vyssie ako je lista
aSize[1] := aSize[1]*0.95
aSize[2] := aSize[2]*0.95


oDlg := XbpDialog():new( ,, aPos, aSize )
oDlg:title := "MDI window"
oDlg:taskList := .T.
oDlg:close := {|| PostAppEvent( xbeP_Quit ) }
oDlg:create()
oDlg:drawingArea:setFontCompoundName( FONT_HELV_SMALL )

AppMenu( oDlg:menuBar() )

SetAppWindow( oDlg )
SetAppFocus( oDlg )
RETURN



/*
* Menu must exist in the MDI application window
*/
PROCEDURE AppMenu( oMenuBar )
LOCAL oMenu := XbpMenu():new( oMenuBar )
oMenu:title := "Application"
oMenu:create()

oMenu:addItem( { "Quit", {|| PostAppEvent( xbeP_Quit ) } } )

oMenuBar:addItem( { oMenu, } )
RETURN



/*
* Create pushbuttons in the application window
*/
PROCEDURE Main

LOCAL nEvent := NIL, mp1 := NIL, mp2 := NIL, oXbp := NIL, drawingArea

/*
* Since the window will contain child windows, :clipSiblings
* must be set .T. (Child windows are siblings of the pushbuttons)
*/
drawingArea := SetAppWindow():drawingArea
oXbp := XbpPushbutton():new( drawingArea ,,{12,12}, {100,30} )
oXbp:caption := ":create()"
oXbp:clipSiblings := .T.
oXbp:activate := {|| CreateChildWindow() }
oXbp:create()

oXbp := XbpPushbutton():new( drawingArea ,,{124,12}, {100,30} )
oXbp:caption := "Quit"
oXbp:clipSiblings := .T.
oXbp:activate := {|| PostAppEvent( xbeP_Quit ) }
oXbp:create()

DO WHILE nEvent <> xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO

RETURN



/*
* Create a child window
*/
PROCEDURE CreateChildWindow
STATIC snCount := 1
LOCAL oParent, oDlg
#ifdef __OS2__
LOCAL oXbp
#endif

/*
* This program uses an XbpDialog window as application window.
* Therefore, the parent must be :drawingArea
*/
oParent := SetAppWindow():drawingArea

oDlg := XbpDialog():new( oParent, , {48,48}, {240,180} )
oDlg:title := "Child window #" + Ltrim(Str( snCount++ ) )
oDlg:taskList := .F.
oDlg:close := {|mp1,mp2,obj| obj:destroy() }
oDLg:clipSiblings := .T.
oDlg:create()
oDlg:drawingArea:setFontCompoundName( FONT_HELV_SMALL )

/*
* Create pushbutton in the drawing area of the child window
*/
#ifdef __OS2__
oParent := oDlg:drawingArea
oXbp := XbpPushbutton():new(oParent,,{12,12}, {100,30} )
oXbp:caption := "Toggle Parent"
oXbp:activate := {|mp1,mp2,obj| ToDesktop( obj ) }
oXbp:create()
#endif
RETURN



/*
* Move MDI child window to the desktop
*/
PROCEDURE ToDesktop( oPushButton )
LOCAL oDlg, oParent

oPushButton:activate := {|mp1,mp2,obj| ToMDIwindow( obj ) }

/*
* Determine the XbpDialog window which contains this pushbutton
* from the parent-child relationship
*/
oDlg := oPushButton:setParent() // drawing area
oDlg := oDlg:setParent() // XbpDialog

/*
* The desktop window becomes the parent
*/
oParent := AppDesktop()
oDlg:setParent( oParent )
oDlg:setOwner( oParent )

RETURN



/*
* Move previous MDI child window back to application window
*/
PROCEDURE ToMDIwindow( oPushButton )
LOCAL oDlg, oParent

oPushButton:activate := {|mp1,mp2,obj| ToDesktop( obj ) }

/*
* Determine the XbpDialog window which contains this pushbutton
* from the parent-child relationship
*/
oDlg := oPushButton:setParent() // drawing area
oDlg := oDlg:setParent() // XbpDialog

/*
* The parent window is :drawingArea again
*/
oParent := SetAppwindow():drawingArea
oDlg:setParent( oParent )
oDlg:setOwner( oParent )

RETURN

[Victorio]

.... problem is solved. I must delete command AppMenu, SetAppWindows, SetAppFocus and all modify to use DCxxx commands to create window, menu, toolbar...

[Eugene Lutsenko]

Maybe you fit option of the main menu organization, implemented in my system?

http://lc.kubagro.ru/Dima/a.doc