com a versao fwh1912 acontece isto:
com a versao fwh1903 funciona normal
tbtnbig.prg
#include "FiveWin.ch"
function Main()
local oDlg
DEFINE DIALOG oDlg FROM 4, 4 TO 10, 28 TITLE "test"
@ 1, 1 BTNBMP OF oDlg SIZE 40, 13 PIXEL 2007 NOBORDER PROMPT "Imprimir" LEFT RESOURCE "BMP_PRIN" ACTION (alert("teste"), oDlg:End()) // size 40 bmpBIG(fhw1912) # (fhw1903 OK)
@ 20, 1 BTNBMP OF oDlg SIZE 42, 13 PIXEL 2007 NOBORDER PROMPT "Imprimir" LEFT RESOURCE "BMP_PRIN" ACTION (alert("teste"), oDlg:End()) // size 42 OK
ACTIVATE DIALOG oDlg CENTERED
return nil
tbtnbig.rc
BMP_PRIN BITMAP "prin.bmp"
#include "fivewin.ch"
function Main()
local oDlg
DEFINE DIALOG oDlg FROM 4, 4 TO 10, 28 TITLE FWVERSION
@ 1, 1 BTNBMP OF oDlg SIZE 40, 13 PIXEL 2007 NOBORDER PROMPT "Imprimir" LEFT RESOURCE "BMP_PRIN" ACTION (alert("teste"), oDlg:End()) // size 40 bmpBIG(fhw1912) # (fhw1903 OK)
@ 20, 1 BTNBMP OF oDlg SIZE 42, 13 PIXEL 2007 NOBORDER PROMPT "Imprimir" LEFT RESOURCE "BMP_PRIN" ACTION (alert("teste"), oDlg:End()) // size 42 OK
ACTIVATE DIALOG oDlg CENTERED
return nil
BMP_PRIN BITMAP "c:\fwh\bitmaps\print3.bmp"
if Len( aBmpRect ) > 4
uResize := aBmpRect[ 5 ]
endif
aBmpRect := oBtnRect:Modify( aBmpRect ):aRect
AEval( aBmpRect, { |n,i| If( n != nil .and. n < 1.0, aBmpRect[ i ] := ROUND( n, 0 ), nil ) } )
if Len( aBmpRect ) > 4
uResize := aBmpRect[ 5 ]
endif
AEval( aBmpRect, { |n,i| If( n != nil .and. n < 1.0, aBmpRect[ i ] := ROUND( n, 0 ), nil ) } )
aBmpRect := oBtnRect:Modify( aBmpRect ):aRect
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 42 guests