Imagem em BTNBMP

[Sistem]

com a versao fwh1912 acontece isto:

com a versao fwh1903 funciona normal

[nageswaragunupudi]

Can you give the source code for creating of this BTNBMP?

[Sistem]

Code: Select all

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"
 

rename prin.bmp

[nageswaragunupudi]

Thanks. We will look into this now.

[nageswaragunupudi]

Tried with this program:

Code: Select all

#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

rc file

Code: Select all

BMP_PRIN  BITMAP "c:\fwh\bitmaps\print3.bmp"

result:


We are not able to reproduce the problem with this sample.
Can you please modify the test program or rc file suitable to help us to reproduce the problem and solve the issue.

[Sistem]

nageswaragunupudi
<= use this file... rename to prin.bmp with paint... save as BMP

[nageswaragunupudi]

Instead, can you please send me the actual bmp file to me?

nageswaragunupudi <at> gmail <dot> com

[nageswaragunupudi]

Yes, I am able to reproduce the problem.
We will study and come back to you.

[Sistem]

ok, thank you
BMP_PRIN BITMAP "E:\fwh1912\bitmaps\16dbgbrk.bmp"

[nageswaragunupudi]

The problem is narrowed down to be between 1903 and 1906.
We are looking into.

[nageswaragunupudi]

Thanks for pointing out this bug. Fixed for the next release.

For versions FWH1906, FWH1912 and FWH2002 we request the users to apply this fix to the btnbmp.prg:

Please locate these lines in the method PaintBitmap()

Code: Select all

   if Len( aBmpRect ) > 4
      uResize  := aBmpRect[ 5 ]
   endif
   aBmpRect    := oBtnRect:Modify( aBmpRect ):aRect
 

You will find these lines at line No.1635 in FWH2002 and FWH1912 and at line No.1624 in FWH1906.

Please insert this line of code:

Code: Select all

   AEval( aBmpRect, { |n,i| If( n != nil .and. n < 1.0, aBmpRect[ i ] := ROUND( n, 0 ), nil ) } )
 

in between "endif" and "aBmpRect := ..."

After insertion, the revised code should look like this:

Code: Select all

   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
 

Regret the inconvenience.