FiveTech Software tech support forums

... 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,"&","") ...

... lTwoPages := !lTwoPages MessageBeep() SetResources(hOldRes) RETU nil endif if lZoom Zoom(.T.) endif if ! IsAppThemed() oTwoPages:FreeBitmaps() oTwoPages:LoadBitmaps("One_Page") oTwoPages:cMsg := TXT_PREVIEW_ON_ONE_PAGE oTwoPages:cTooltip := StrTran(TXT_ONEPAGE,"&","") else ...

... ::oImageList:End() ENDIF RETURN Super:Destroy() BtnBmp.prg In the method LoadBitmaps there's no call to FreeBitmaps, so if you change the bitmaps at run-time it will open the new bitmaps without closing the others. xBrowse.prg Sometimes the method End ...

Antonio Linares wrote:Clemerson,

oButtonBar:aControls[ 3 ]:FreeBitmaps()
oButtonBar:aControls[ 3 ]:LoadBitmaps( <cResName>,, [<cBmpFile>] )
oButtonBar:aControls[ 3 ]:Refresh()

Antonio/Clemerson
A similar working approach is in Function Zoom() of RPREVIEW.PRG

Kind regards
Evans

Clemerson,

oButtonBar:aControls[ 3 ]:FreeBitmaps()
oButtonBar:aControls[ 3 ]:LoadBitmaps( <cResName>,, [<cBmpFile>] )
oButtonBar:aControls[ 3 ]:Refresh()