FiveTech Software tech support forums

oPreview:oZoom:hBitmap1 = FWBitmap( "Zoom2" )
oPreview:oZoom:hBitmap2 = FWBitmap( "OnePage2" )
oPreview:oZoom:bBmpNo = { || If( oPreview:lZoom, 2, 1 ) }


How I can converte it ? How I can change the images with mine pngs ?

... IIf(oBrowse:lGetBar, oBrowse:aCols[ 1 ]:oBarGet:setfocus(),) not run !!!!! I don't see the cursor flashing in the get then I not see the bitmap zoom2 on the get , why ? :aCols[ 1 ]:cBarGetBmp := hBmp not run !!! Any solution please ?

... This is the original size of ER. https://mybergland.com/FWForum/zoom1.jpg Here with zoom on. https://mybergland.com/FWForum/zoom2.jpg

There is a picture. It is larger than the screen (so I show it in TImage stretch to full screen) . I would like to cut a larger or smaller rectangle of the picture and stretch it to fit the window (something similar is done in the example zoom2.prg)

Added ZOOM on buttonaction.
is it the solution, You are looking for`?





best regards
Uwe

... UNZOOM BITMAP "/DESARRO/ZERUSGES/PLUSCAJA/imagenes/recursos_2/res17.bmp" UNZOOM2 BITMAP "/DESARRO/ZERUSGES/PLUSCAJA/imagenes/recursos_2/res18.bmp" ZOOM BITMAP "/DESARRO/ZERUSGES/PLUSCAJA/imagenes/recursos_2/res19.bmp" ...

... ) ) 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( ...

... ) ) 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( ...

... 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( ...

... "&Four" OF oWnd; BITMAPS "..\bitmaps\16x16\people.bmp", "..\bitmaps\16x16\open2.bmp",; "..\bitmaps\16x16\print.bmp", "..\bitmaps\16x16\zoom2.bmp" ; ACTION f_tab(oTabs2:nOption,oPanel,oPanel2) oWnd:oTop = oTabs2 oPanel := TPanel():New( 18, 0, 75, oWnd:nWidth(), oWnd ) oWnd:oCilent := ...

... "&Four" OF oWnd; BITMAPS "..\bitmaps\16x16\people.bmp", "..\bitmaps\16x16\open2.bmp",; "..\bitmaps\16x16\print.bmp", "..\bitmaps\16x16\zoom2.bmp" ; ACTION f_tab(oTabs2:nOption,oPanel,oPanel2) oWnd:oTop = oTabs2 oPanel := TPanel():New( 18, 0, 75, oWnd:nWidth(), oWnd ) DEFINE BUTTONBAR ...