Popup menu
Posted: Mon Aug 08, 2011 8:05 am
I think if you have only 1 item in a popup menu the width of the popup is wrong.
Could someone please check this.
Thanks in advance
Otto
Could someone please check this.
Thanks in advance
Otto
Code: Select all
// Defining ButtonBar buttons which uses Bitmaps files from disk
#include "FiveWin.ch"
static oWnd
//----------------------------------------------------------------------------//
function Main()
local oBar
local oBrush
local oPopup
DEFINE BRUSH oBrush COLOR nRGB( 12, 129, 87 )
DEFINE WINDOW oWnd FROM 1, 10 TO 20, 60 ;
TITLE "Testing Buttons from disk" ;
BRUSH oBrush
DEFINE BUTTONBAR oBar OF oWnd _3D
MENU oPopup oPopup
MENUITEM "Test" ACTION msginfo( "Test" )
ENDMENU
DEFINE BUTTON OF oBar FILE "..\bitmaps\16x16\exit.bmp" ;
ACTION MsgInfo( FWVERSION ) ;
MESSAGE "You can place..." GROUP;
MENU oPopup
DEFINE BUTTON OF oBar FILE "..\bitmaps\16x16\Open.bmp" ;
ACTION MsgInfo( FWVERSION ) ;
MESSAGE "Any BMP File here..."
DEFINE BUTTON OF oBar FILE "..\bitmaps\16x16\Cut.bmp" ;
ACTION MsgInfo( FWVERSION ) ;
MESSAGE "Reading it from disk !!!"
SET MESSAGE OF oWnd TO FWVERSION + " " + FWCOPYRIGHT
ACTIVATE WINDOW oWnd
return nil
//----------------------------------------------------------------------------//