FiveTech Support Forums

#include "FiveWin.ch"

static oReBar, oToolBar

function Main()

   local oDlg, oImageList, oPages

   DEFINE DIALOG oDlg RESOURCE "Dlg_Page" TITLE "FWH - Testing Win32 Toolbars"
      
   // First we build an ImageList with all the bitmaps 
   DEFINE IMAGELIST oImageList SIZE 32, 32

   DEFINE IMGBITMAP OF oImageList NAME "new"      COLOR nRGB( 255, 0, 255 )
   DEFINE IMGBITMAP OF oImageList NAME "open"     COLOR nRGB( 255, 0, 255 )
   DEFINE IMGBITMAP OF oImageList NAME "check"    COLOR nRGB( 255, 0, 255 )
   DEFINE IMGBITMAP OF oImageList NAME "search"   COLOR nRGB( 255, 0, 255 )
   DEFINE IMGBITMAP OF oImageList NAME "print"    COLOR nRGB( 255, 0, 255 )
   DEFINE IMGBITMAP OF oImageList NAME "internet" COLOR nRGB( 255, 0, 255 )
   DEFINE IMGBITMAP OF oImageList NAME "keys"     COLOR nRGB( 255, 0, 255 )
   DEFINE IMGBITMAP OF oImageList NAME "quit"     COLOR nRGB( 255, 0, 255 )

   REDEFINE PAGES oPages ID 102 OF oDlg DIALOGS "dlg1"

   ACTIVATE DIALOG oDlg CENTERED ON INIT Barra(oDlg, oImageList)
   
   oImageList:End()

return nil

FUNCTION Barra(oDlg, oImageList)
// Now we create the rebar
DEFINE REBAR oReBar OF oDlg
   
DEFINE TOOLBAR oToolBar OF oReBar SIZE 45, 34 ; // 50, 50 ; ancho/alto
      IMAGELIST oImageList BALLOON // tooltips balloon style
   
   //oToolBar:SetTextRows( 2 )
   
   DEFINE TBBUTTON OF oToolBar ;
      ACTION  MsgInfo( "Menu" );
      TOOLTIP "New" ;
         
   DEFINE TBBUTTON OF oToolBar ;
      ACTION  MsgInfo( "Menu" );
      TOOLTIP "Open" ;
            
   DEFINE TBSEPARATOR OF oToolBar
   
   DEFINE TBBUTTON OF oToolBar ;
      ACTION  MsgInfo( "Menu" ) ;
      TOOLTIP "Menu" ;
               
   DEFINE TBBUTTON OF oToolBar ;
      ACTION  MsgInfo( "Menu" );
      TOOLTIP "Search" ;
      
   DEFINE TBBUTTON OF oToolBar ;
      ACTION  MsgInfo( "Menu" );
      TOOLTIP "Print a report" ;
      
   DEFINE TBSEPARATOR OF oToolBar
      
   DEFINE TBBUTTON OF oToolBar ;
      ACTION  MsgInfo( "Menu" );
      TOOLTIP "Search for new versions" ;
            
   DEFINE TBBUTTON OF oToolBar ;
      ACTION MsgInfo( "Users" ) ;
      TOOLTIP "Users management" ;
      
   DEFINE TBSEPARATOR OF oToolBar

   DEFINE TBBUTTON OF oToolBar ;
      ACTION  oDlg:End() ;
      TOOLTIP "End Application" ;
            
      
   oToolBar:nWidth = 200
   oReBar:InsertBand( oToolBar )
  
RETURN NIL

#ifdef __FLAT__
   1 24 "./WinXP/WindowsXP.Manifest"
#endif

#define DIALOG_1	1
new      BITMAP "./bitmaps/32x32/new.bmp"
open     BITMAP "./bitmaps/32x32/open.bmp"
check    BITMAP "./bitmaps/32x32/check.bmp"
search   BITMAP "./bitmaps/32x32/search.bmp"
print    BITMAP "./bitmaps/32x32/print.bmp"
internet BITMAP "./bitmaps/32x32/internet.bmp"
keys     BITMAP "./bitmaps/32x32/keys.bmp"
quit     BITMAP "./bitmaps/32x32/quit.bmp"


DLG_PAGE DIALOG 23, 25, 457, 304
STYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME
FONT 8, "MS Sans Serif"
{
 EDITTEXT 101, 96, 41, 77, 11, ES_LEFT | ES_UPPERCASE | ES_READONLY | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_TABSTOP
 CONTROL "TPages", 102, "TPages", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 6, 60, 445, 242
 RTEXT "#", 200, 7, 41, 84, 10
 LTEXT "", 201, 392, 38, 57, 9
}

dlg1 DIALOG 18, 18, 142, 67
STYLE WS_CHILD | 4
{
 PUSHBUTTON "&First", 104, 93, 26, 32, 12
}