fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2012-04-03 11:26 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
* contrib/hbxbp/tests/demoxbp.prg
    ! Fixed: visibility of sub-menu's was off and thus main menu was 
       not being displayed, reported by Zoran.
This commit is contained in:
Pritpal Bedi
2012-04-03 18:30:46 +00:00
parent 84f840ea71
commit 5b43e2debd
2 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -16,6 +16,11 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-04-03 11:26 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbxbp/tests/demoxbp.prg
! Fixed: visibility of sub-menu's was off and thus main menu was
not being displayed, reported by Zoran.
2012-04-03 19:02 UTC+0200 Viktor Szakats (harbour syenar.net)
* package/harb_win.mft
! managed to mess up an UTF8 char in prev commit

7
harbour/contrib/hbxbp/tests/demoxbp.prg
View File

@@ -327,14 +327,13 @@ STATIC FUNCTION GuiStdDialog( cTitle )
STATIC FUNCTION Build_MenuBar( oDlg )
LOCAL oMenuBar, oSubMenu
//oMenuBar := XbpMenuBar():new( oDlg ):create()
oMenuBar := SetAppWindow():MenuBar()
/* Define submenu in procedural style.
* The numeric index of the selected menu item
* is passed to the Callback code block -> mp1
*/
oSubMenu := XbpMenu():new( oMenuBar ):create()
oSubMenu := XbpMenu():new( oMenuBar ):create( , , .t. )
//
oSubMenu:title := "~Procedural"
oSubMenu:addItem( { "Play Charge ~1", } )
@@ -348,7 +347,7 @@ STATIC FUNCTION Build_MenuBar( oDlg )
/* Define submenu in the functional style:
* A menu item executes a code block that calls a function
*/
oSubMenu := XbpMenu():new( oMenuBar ):create()
oSubMenu := XbpMenu():new( oMenuBar ):create( , , .t. )
oSubMenu:title := "~Functional"
oSubMenu:addItem( { "Play Opening ~1"+chr(K_TAB)+"Ctrl+U", {|| MyFunctionXbp( 1 ) } } )
oSubMenu:addItem( { "Play Closing ~2" , {|| MyFunctionXbp( 2 ) } } )
@@ -377,7 +376,7 @@ STATIC FUNCTION Build_MenuBar( oDlg )
#endif
oMenuBar:addItem( { oSubMenu, NIL } )
oSubMenu := XbpMenu():new( oMenuBar ):create()
oSubMenu := XbpMenu():new( oMenuBar ):create( , , .t. )
oSubMenu:title := "~Miscellaneous"
oSubMenu:addItem( { "Convert Images - XbpBitmap()", {|| Build_Bitmap( oDlg ) } } )
oSubMenu:addItem( { "ConfirmBox()" , {|| Build_ConfirmBox( oDlg ) } } )