a TBitmap behind of a TBitmap?

[JC]

How do put a object TBitmap on top of another. And the first be transparent... without it being shown the "square" of the object?

Something like a overlap effect with transparency!!

[Otto]

bmponbmp.prg from the FIVEWIN samples

#include "FiveWin.ch"

FUNC main()

local oWnd, oBmp, oBmp1, hBitmap

DEFINE WINDOW oWnd TITLE "Bitmap on a bitmap"

hBitmap := ReadBitmap( 0, "..\bitmaps\book.bmp" )

@ 1, 1 BITMAP oBmp FILENAME "..\bitmaps\magic.bmp" OF oWnd

oBmp:bPainted = { || PaintTransparent( oBmp:hDC, hBitmap ),;
SetBkMode( oBmp:hDC, 1 ),;
SetTextColor( oBmp:hDC, CLR_YELLOW ),;
TextOut( oBmp:hDC, 5, 5, "Hello" ) }

ACTIVATE WINDOW oWnd

DeleteObject( hBitmap )

RETURN NIL

function PaintTransparent( hDC, hBitmap )

local hBmpOld := SelectObject( hDC, hBitmap )
local nZeroZeroClr := GetPixel( hDC, 0, 0 )
local nOldClr

SelectObject( hDC, hBmpOld )
nOldClr = SetBkColor( hDC, nRGB( 255, 255, 255 ) )
TransBmp( hBitmap, nBmpWidth( hBitmap ), nBmpHeight( hBitmap ),;
nZeroZeroClr, hDC, 10, 20, nBmpWidth( hBitmap ), nBmpHeight( hBitmap ) )
SetBkColor( hDC, nOldClr )

return nil

[JC]

Otto...

the function TransBmp() not exists in my source!!

[JC]

How I can make the background of image of "theater masks" transparent?

[Antonio Linares]

Julio,

You need to use TransBmp(). It is included in FWH.

What FWH version are you using ?

[JC]

Julio,

You need to use TransBmp(). It is included in FWH.

What FWH version are you using ?

Hi Linares... my version of fivewin is 2.26
I don't found this function there!

[Antonio Linares]

Julio,

You need to upgrade FWH

[RAMESHBABU]

Mr.Julio,

Try this code.

Code: Select all  Expand view  RUN


FUNCTION PaintBmp(oDlg, cFileRes, nRow, nCol)

LOCAL aBmpPal, hBitmap

IF FILE(cFileRes)
   * This Code is for reading bitmap file from disk file
   aBmpPal = PalBmpRead(oDlg:hDC, cFileRes )
ELSE
   * This Code is for reading bitmap file resource
   aBmpPal = PalBmpLoad( cFileRes )
ENDIF

hBitmap = aBmpPal[ 1 ]

DrawMasked( oDlg:hDC, hBitmap, nRow, nCol )

RETURN nil



and you will get the desired effect

Regards,

- Ramesh Babu P

[Silvio]

Dear jc,
You need My TTitleBar class but it is a beta class perhaps I send it to antonio at the end of the next week

[JC]

Silvio... please, send to me too the class!

Ramesh, I have try!

[JC]

Mr.Julio,

Try this code.

Code: Select all  Expand view  RUN


FUNCTION PaintBmp(oDlg, cFileRes, nRow, nCol)

LOCAL aBmpPal, hBitmap

IF FILE(cFileRes)
   * This Code is for reading bitmap file from disk file
   aBmpPal = PalBmpRead(oDlg:hDC, cFileRes )
ELSE
   * This Code is for reading bitmap file resource
   aBmpPal = PalBmpLoad( cFileRes )
ENDIF

hBitmap = aBmpPal[ 1 ]

DrawMasked( oDlg:hDC, hBitmap, nRow, nCol )

RETURN nil



and you will get the desired effect

Regards,

- Ramesh Babu P

Ramesh, thanks for your help but, not works!

[RAMESHBABU]

Mr.Julio,


How did you paint the Title Bar ?. It is through any gradiation function or
a bitmap?

Can you post your code here for the dialog shown. I will try to solve it.

This is resulted output using the above function posted by me.



The dialog background is painted using gradition function (not a bitmap)
and the title bar is a bitmap and the picture painted on the titlebar bitmap
is a bitmap.


- Ramesh Babu P

[mmercado]

Hi Julio:

Why don't you try with TSButton ?, it's very simple...

Here using the same fwh sample with a dialog

Code: Select all  Expand view  RUN

#include "FiveWin.ch"
#include "TsButton.ch"

FUNC main()

   local oWnd, oBmp, oBmp1, hBitmap

   DEFINE DIALOG oWnd TITLE "Bitmap on a bitmap" COLOR CLR_BLACK, CLR_CYAN

   setbkmode( ownd:hdc, 1 )
   @ 1, 1 BITMAP oBmp FILENAME "..\bitmaps\magic1.bmp" OF oWnd NOBORDER TRANSPARENT

   @20,10 SBUTTON OF oWnd FILENAME "..\bitmaps\book.bmp" SIZE 10, 20 PIXEL BITMAP

   ACTIVATE DIALOG oWnd

   DeleteObject( hBitmap )

RETURN NIL



Regards

Manuel Mercado

[JC]

Julio,

You need to upgrade FWH

Linares, sorry but I informed to you a wrong version of my fivewin... really, the version is 2.6 of 2005.

But, I still doesn't have a transbmp function

[JC]

Hi Julio:

Why don't you try with TSButton ?, it's very simple...

Here using the same fwh sample with a dialog

Code: Select all  Expand view  RUN

#include "FiveWin.ch"
#include "TsButton.ch"

FUNC main()

   local oWnd, oBmp, oBmp1, hBitmap

   DEFINE DIALOG oWnd TITLE "Bitmap on a bitmap" COLOR CLR_BLACK, CLR_CYAN

   setbkmode( ownd:hdc, 1 )
   @ 1, 1 BITMAP oBmp FILENAME "..\bitmaps\magic1.bmp" OF oWnd NOBORDER TRANSPARENT

   @20,10 SBUTTON OF oWnd FILENAME "..\bitmaps\book.bmp" SIZE 10, 20 PIXEL BITMAP

   ACTIVATE DIALOG oWnd

   DeleteObject( hBitmap )

RETURN NIL



Regards

Manuel Mercado

Hello Manuel Mercado...

Really, I don't understand you about the TsButton... I want other thing! the image of "theater masks" stay transparent, for the background appear! More less this!