by Silvio.Falconi » Wed Jan 20, 2016 11:20 am
Local oImageList, oReBar,oHand
Local nColore_ToolBar:= RGB( 244, 245, 245 ) //2015...
DEFINE CURSOR oHand HAND
DEFINE IMAGELIST oImageList SIZE 32,30
oImageList:AddMasked( TBitmap():Define( "TOOLBAR_ESERCIZI",, ::oWndMain ), nColore_ToolBar )
oImageList:AddMasked( TBitmap():Define( "TOOLBAR_ATTIVITA",, ::oWndMain ), nColore_ToolBar )
oImageList:AddMasked( TBitmap():Define( "TOOLBAR_APUNTES",, ::oWndMain ), nColore_ToolBar )
oReBar = TReBar():New( ::oWndMain )
DEFINE TOOLBAR ::oBar OF oReBar SIZE 36,36 IMAGELIST oImageList
::oBar:lTTBalloon:=.t.
::oBar:oCursor:= oHand
oReBar:InsertBand( ::oBar )
::oBar:nHeight -= 2
DEFINE TBBUTTON OF ::oBar ;
ACTION NIL ;
TOOLTIP i18n( "Gestione Esercizi" ) ;
MESSAGE i18n( "Gestione Esercizi." )
DEFINE TBBUTTON OF ::oBar ;
ACTION NIL ;
TOOLTIP i18n( "Gestione Attività" ) ;
MESSAGE i18n( "Gestione Attività." )
DEFINE TBSEPARATOR OF ::oBar
DEFINE TBBUTTON OF ::oBar ;
ACTION NIL ;
TOOLTIP i18n( "Gestione Movimenti" ) ;
MESSAGE i18n( "Gestione Movimenti." )
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com