Display Alpha channel 32 bit BMP on ButtonBMP (Solved)

[Antonio Linares]

Anser,

The class changes are exactly the ones that I commented you at the beginning of this thread:

use ABPaint() instead of DrawMasked() in Method Paint(). Thats all

[anserkk]

Anser,

The class changes are exactly the ones that I commented you at the beginning of this thread:

use ABPaint() instead of DrawMasked() in Method Paint(). Thats all

Yes Mr.Antonio, you are right. Unfortunately in between I got into trouble with the wrong .RES file issue and I was totally confused after that and went in the wrong direction.

Really appreciate your support

One more question. Do I have to follow the similiar steps in METHOD PAINT of TBitMap to display AlphaChannel BMP on a BITMAP control ? Or is there any other control available to display AlphaChannel BMP on a Dialog/Window/Folder ?

Code: Select all  Expand view  RUN

@04,14 BITMAP oBmp SIZE 43,55 of oFolder:aDialogs[1] RESOURCE "User76x112"

Regards

Anser

[Antonio Linares]

Anser,

It is the same issue:

Just modify Class TBitmap Method Paint() to use ABPaint()

[anserkk]

Dear Mr.Antonio,

Just modify Class TBitmap Method Paint() to use ABPaint()

Which one should I replace with ABPaint
Is it

Code: Select all  Expand view  RUN

PalBmpDraw( ::hDC, ::nX, ::nY, ::hBitmap, ::hPalette,;
                        Super:nWidth(), Super:nHeight(),, ::lTransparent, ::nClrPane )

or

Code: Select all  Expand view  RUN

TransBmp( ::hBitmap, ::nWidth(), ::nHeight(), nZeroZeroClr, ::hDC,;
                         ::nX, ::nY, ::nWidth(), ::nHeight() )

Would have been nice If we could control this from our PRG itself without modifying the original class

Regards

Anser

[anserkk]

I tried,

Code: Select all  Expand view  RUN

@04,14 BITMAP oBmp SIZE 43,55 of oFolder:aDialogs[1] RESOURCE "User76x112"
oBmp:bPainted:={ || ABPaint( oBmp:hDC, 0, 0, oBmp:hBitmap, 220 )}

But did't get the expected result

Regards

Anser

[Antonio Linares]

Anser,

The idea is to modify the class, but if you want to test it that way then try it like this:

oBmp:bPainted:={ | hDC | ABPaint( hDC, 0, 0, oBmp:hBitmap, 220 ) }

[anserkk]

Dear MR.Antonio,

Thankyou, solved



Had to replace both PalBmpDraw() and TransBmp() with ABPaint() in the Method Paint()

Code: Select all  Expand view  RUN

IF ! ::lBmpAlpha  // New Data  .T. or .F.
  TransBmp( ::hBitmap, ::nWidth(), ::nHeight(), nZeroZeroClr, ::hDC,;
       ::nX, ::nY, Super:nWidth(), Super:nHeight() )
Else
   ABPaint( ::hDC, ::nX, ::nY, ::hBitmap, 220 )
Endif

Code: Select all  Expand view  RUN

IF ! ::lBmpAlpha  // New Data  .T. or .F.
    PalBmpDraw( ::hDC, ::nX, ::nY, ::hBitmap, ::hPalette,;
            ::nWidth(), ::nHeight(),, ::lTransparent, ::nClrPane )
Else
    ABPaint( ::hDC, ::nX, ::nY, ::hBitmap, 220 )
Endif

For Aesthetic purpose it is better to have a choice to use AlphaBmp's. Is it possible to include these changes in the future FWH updates with a Logical DATA to decide whether to display or not the AlphaChannel so that it does not effect backward compatibility.

Regards

Anser

[James Bott]

>For Aesthetic purpose it is better to have a choice to use AlphaBmp's. Is it possible to include these changes in the future FWH updates with a Logical DATA to decide whether to display or not the AlphaChannel so that it does not effect backward compatibility.


Antonio, I would like to vote for this also.

regards,
James

[Enrico Maria Giordano]

+1

EMG

[Giovany Vecchi]

Estou alterando a classe tOutLook para funcionar com Bmps Alpha channels tambem, quando estiver pronto eu aviso.

I am also altering the class tOutLook to work with Bmps Alpha channels, when it is ready I inform.

[Antonio Linares]

Wouldn't it better if we could automatically detect if the bitmap has an alpha channel into it and automatically call the proper painting routine ?

[anserkk]

Wouldn't it better if we could automatically detect if the bitmap has an alpha channel into it and automatically call the proper painting routine ?

If it is possible to identify Alphachannel automatically then that would be the best solution.

Regards

Anser

[Enrico Maria Giordano]

Wouldn't it better if we could automatically detect if the bitmap has an alpha channel into it and automatically call the proper painting routine ?

Definitely!

EMG

[Giovany Vecchi]

I am not sure, but he/she should have this function so that it was detected automatically

http://msdn.microsoft.com/en-us/library/ms532334(VS.85).aspx

[Antonio Linares]

http://stackoverflow.com/questions/3335 ... an-hbitmap