FiveTech Support Forums

#INCLUDE "FiveWin.ch"

FUNCTION Main()
local oWnd, oReBar, oToolBar, oImageList, oExtBtn

   DEFINE WINDOW oWnd PIXEL FROM 0, 0 TO 610,664

   DEFINE STATUSBAR OF oWnd PROMPT ""

   DEFINE IMAGELIST oImageList SIZE 16, 16

   oImageList:AddMasked( TBitmap():Define( "BTN_TOP"    , , oWnd ), nRGB( 192, 192, 192 ) )
   oImageList:AddMasked( TBitmap():Define( "BTN_PRIOR"  , , oWnd ), nRGB( 192, 192, 192 ) )
   oImageList:AddMasked( TBitmap():Define( "BTN_NEXT"   , , oWnd ), nRGB( 192, 192, 192 ) )
   oImageList:AddMasked( TBitmap():Define( "BTN_LAST"   , , oWnd ), nRGB( 192, 192, 192 ) )

   oReBar = TReBar():New( oWnd )
   oToolBar = TToolBar():New( oReBar, 30, 30, oImageList )

   DEFINE TBBUTTON OF oToolBar ACTION MsgInfo(1)
   DEFINE TBBUTTON OF oToolBar ACTION MsgInfo(1)
   DEFINE TBBUTTON OF oToolBar ACTION MsgInfo(1)
   DEFINE TBBUTTON OF oToolBar ACTION MsgInfo(1)

   DEFINE TBSEPARATOR OF oToolBar

   @ 3,339 BUTTON oExtBtn PROMPT "Test" ;
           SIZE 70,24 ;
           ACTION MsgInfo('Clicked') ;
           OF oToolBar ;
           PIXEL

   oReBar:InsertBand( oToolBar )

   ACTIVATE WINDOW oWnd VALID (oImageList:End(), .T. )

RETURN NIL

   @ 3,339 BUTTON oExtBtn PROMPT "Test" ;
           SIZE 70,24 ;
           ACTION If( Left( ProcName( 6 ), 6 ) == "TREBAR", MsgInfo( "Clicked" ), nil ) ;
           OF oToolBar ;
           PIXEL