FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour ERROR ON RBTN - REVERSE IMAGE
Posts: 401
Joined: Tue Jan 05, 2010 02:33 PM
ERROR ON RBTN - REVERSE IMAGE
Posted: Sat Aug 07, 2010 09:16 PM
Compile this tminimal est sample and click on button

select a new image and look the button

you'll see a reverse image .....WHY ?


Code (fw): Select all Collapse
#include "fivewin.ch"
#include "ribbon.ch"


Function test()

Local oWnd
Local oBtn1 ,cBmp

DEFINE WINDOW oWnd TITLE "RibbonBar Test " + FWVERSION from 1,1 to 600,600 pixel


 DEFINE RIBBONBAR oRBar WINDOW oWnd PROMPT "Configuración" HEIGHT 133 TOPMARGIN 25

 ADD GROUP oGr RIBBON oRBar TO OPTION 1 PROMPT "Clipboard" width 130
 


@ 2,5 ADD BUTTON oBtn1 PROMPT "Paste" BITMAP ".\bitmaps\PASTE32.BMP"  SIZE 70,70 GROUP oGr ;
                       ACTION ( cBmp:=cGetFile( "*.bmp","Select a bitmap ", 1, , .t. ),;
                                                  oBtn1:hBitmap1:=ReadBitmap( 0, cBmp ),oBtn1:Refresh())
ACTIVATE WINDOW oWnd

ACTIVATE DIALOG oDLg 
RETU NIL
FWH .. BC582.. xharbour

Continue the discussion