tbmenu
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Fri Sep 19, 2008 9:03 am
by Silvio
why I cannot insert a variable oItem on this command ?
DEFINE
TBMENU ::oItem OF oBar ;
MENU ::Multi()
give this error
[1]:Harbour.Exe rpreview.prg /m /n /es2 /iC:\work\FWH\include /ic:\work\xHarbour\Include /iinclude;c:\work\fwh\include;c:\work\xHarbour\include /oObj\rpreview.c
xHarbour Compiler build 0.99.71 (SimpLex)
Copyright 1999-2007,
http://www.xharbour.org http://www.harbour-project.org/
Compiling 'test.prg'...
rpreview.prg(376) Error E0030 Syntax error: "parse error at '
TBMENU'"
rpreview.prg(383) Error E0030 Syntax error: "parse error at 'TBBUTTON'"
I need to inizialize the ::oItem
thanks
thanks
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Fri Sep 19, 2008 9:16 am
by Antonio Linares
Silvio,
You can't because the ToolBar object does not manage buttons as objects.
You can access its properties from its index into oToolBar:aButtons
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Fri Sep 19, 2008 9:22 am
by Silvio
Sorry Antonio
I stay to modify my preview there is some error
Look it please
- Code: Select all Expand view
if IsAppThemed() .and. ! l2007
DEFINE IMAGELIST oImageList SIZE 16, 16
oImageList:AddMasked( TBitmap():Define( "top2",, ::oWnd ), nRGB( 192, 192, 192 ) )
oImageList:AddMasked( TBitmap():Define( "previous2",, ::oWnd ), nRGB( 192, 192, 192 ) )
oImageList:AddMasked( TBitmap():Define( "next2",, ::oWnd ), nRGB( 192, 192, 192 ) )
oImageList:AddMasked( TBitmap():Define( "bottom2",, ::oWnd ), nRGB( 192, 192, 192 ) )
oImageList:AddMasked( TBitmap():Define( "zoom2",, ::oWnd ), nRGB( 192, 192, 192 ) )
oImageList:AddMasked( TBitmap():Define( "Two_pages2",, ::oWnd ), nRGB( 192, 192, 192 ) )
oImageList:AddMasked( TBitmap():Define( "printer2",, ::oWnd ), nRGB( 255, 0, 255 ) )
oImageList:AddMasked( TBitmap():Define( "exit2",, ::oWnd ), nRGB( 192, 192, 192 ) )
oImageList:AddMasked( TBitmap():Define( "unzoom2",, ::oWnd ), nRGB( 192, 192, 192 ) )
oImageList:AddMasked( TBitmap():Define( "one_page2",, ::oWnd ), nRGB( 192, 192, 192 ) )
::oImageList = oImageList
oReBar = TReBar():New( ::oWnd )
DEFINE TOOLBAR oBar OF oReBar SIZE 25, 25 IMAGELIST oImageList
::oBar = oBar
oReBar:InsertBand( oBar )
oBar:nHeight -= 2
DEFINE TBBUTTON OF oBar ;
ACTION ::TopPage() ;
TOOLTIP Strtran( TXT_FIRST, "&", "" ) ;
MESSAGE TXT_GOTO_FIRST_PAGE
DEFINE TBBUTTON OF oBar ;
ACTION ::PrevPage() ;
TOOLTIP Strtran( TXT_PREVIOUS, "&", "" ) ;
MESSAGE TXT_GOTO_PREVIOUS_PAGE
DEFINE TBBUTTON OF oBar ;
ACTION ::NextPage() ;
TOOLTIP Strtran( TXT_NEXT, "&", "" ) ;
MESSAGE TXT_GOTO_NEXT_PAGE
DEFINE TBBUTTON OF oBar ;
ACTION ::BottomPage() ;
TOOLTIP Strtran( TXT_LAST, "&", "" ) ;
MESSAGE TXT_GOTO_LAST_PAGE
DEFINE TBSEPARATOR OF oBar
DEFINE TBBUTTON OF oBar ;
ACTION ::Zoom() ;
TOOLTIP Strtran( TXT_ZOOM, "&", "" ) ;
MESSAGE TXT_ZOOM_THE_PREVIEW
IF ::lMulti
DEFINE TBMENU ::oMultipages OF oBar ;
MENU ::MultiPopup() ;
TOOLTIP StrTran( Strtran( TXT_TWOPAGES, "&", "" ), "á", "a" ) ;
MESSAGE TXT_PREVIEW_ON_TWO_PAGES
ELSE
DEFINE TBBUTTON ::oTwoPages OF oBar ;
ACTION ::TwoPages() ;
TOOLTIP StrTran( Strtran( TXT_TWOPAGES, "&", "" ), "á", "a" ) ;
MESSAGE TXT_PREVIEW_ON_TWO_PAGES
ENDIF
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Fri Sep 19, 2008 9:25 am
by Silvio
How I must make ?
DEFINE TBMENU oBar:oMultipages OF oBar ????
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Fri Sep 19, 2008 9:44 am
by Antonio Linares
Silvio,
Please review fwh\samples\ToolBar1.prg
Look for TBMENU use in it.
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Fri Sep 19, 2008 9:51 am
by Silvio
yes I found it the test but I must inizialize the oMultipages variable
If lmulti
Tbbmenu ::omultipage
ELSE
tbutton ::twopages
endif
because
My modifies run error when I write
if ! IsAppThemed()
::oMultiPages:FreeBitmaps() ::oMultiPages:LoadBitmaps("One_Page")
::oMultiPages:cMsg := TXT_PREVIEW_ON_ONE_PAGE
::oMultiPages:cTooltip := StrTran(TXT_ONEPAGE,"&","")
else
::oBar:ChangeBitmap( 6, 14 )
::oBar:SetTooltip( 6, StrTran(TXT_ONEPAGE,"&","") )
::oBar:SetMessage( 6, TXT_PREVIEW_ON_ONE_PAGE )
endif
on this line there is an error
Time from start: 0 hours 1 mins 32 secs
Error occurred at: 09/19/08, 09:01:26
Error description: Error BASE/1004 Class: 'NIL' has no exported method: FREEBITMAPS
Args:
[ 1] = U
Stack Calls
===========
Called from: => FREEBITMAPS(0)
Called from: rpreview.prg => TPREVIEW:MULTIPAGES(2145)
Called from: rpreview.prg => (b)TPREVIEW:BUILDMENU(812)
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Fri Sep 19, 2008 10:03 am
by Silvio
if I make
- Code: Select all Expand view
IF ::lMulti
DEFINE TBMENU OF oBar ;
MENU ::MultiPopup() ;
TOOLTIP StrTran( Strtran( TXT_TWOPAGES, "&", "" ), "á", "a" ) ;
MESSAGE TXT_PREVIEW_ON_TWO_PAGES
ELSE
DEFINE TBBUTTON OF oBar ;
ACTION ::TwoPages() ;
TOOLTIP StrTran( Strtran( TXT_TWOPAGES, "&", "" ), "á", "a" ) ;
MESSAGE TXT_PREVIEW_ON_TWO_PAGES
ENDIF
run ok
but when I must chanche the bitmaps run error
- Code: Select all Expand view
if ! IsAppThemed()
::oMultiPages:FreeBitmaps()
::oMultiPages:LoadBitmaps("One_Page")
::oMultiPages:cMsg := TXT_PREVIEW_ON_ONE_PAGE
::oMultiPages:cTooltip := StrTran(TXT_ONEPAGE,"&","")
else
::oBar:ChangeBitmap( 6, 14 )
::oBar:SetTooltip( 6, StrTran(TXT_ONEPAGE,"&","") )
::oBar:SetMessage( 6, TXT_PREVIEW_ON_ONE_PAGE )
endif
because it not found ::oMultiPages
But Now perhaps I resolve it now