Hi "wolverine",
have a look at this site:
http://hoverbutton.webpark.pl/hoverbutton.html
HTH
Gerhard
"wolverine" <wolverine4277@[EMAIL PROTECTED]
> schrieb im Newsbeitrag
news:b2b1cf7e-cf85-4ddd-8ecd-e85c3f49b076@[EMAIL PROTECTED]
> I try to put an icon (with more than 16 colors) or a bitmap
> (transparent) over a PushButton without success.
> The icons always appears with 16 colors and the bitmaps with a
> background color (y try 8, 24 and 32 bits bitmaps).
> I search in the group and found something int the post
>
http://groups.google.com.ar/group/comp.lang.clipper.visual-objects/browse_thread/thread/f2b372b9d796a0d4/e8c08ed0ea3bc131?hl=en&lnk=gst&q=transparent+bitmap#e8c08ed0ea3bc131
> but the problem with this is that the icon is painted below the button
> and not over the button... maybe i'm using in the wrong way
> something...
>
>
> METHOD Expose(oEvent) CLASS MyWindow
>
> LOCAL hDC AS PTR
> LOCAL hDCMem AS PTR
> LOCAL hDCSave AS PTR
> LOCAL oBmp AS BitMap
>
> SUPER:Expose(oEvent)
> hDC:= GetWindowDC(SELF:Handle())
> oBMP:= Bitmap{ResourceID{"MapaDeBitsPreferencias", _GetInst()},
> _Or(0, BMP_3DTRANSPARENT, BMP_2DTRANSPARENT)}
> oBMP:hBitMap:= TransparentBitmap(hDC, oBMP:Handle(), 0, 0,
> RGB(0,0,0))
> hDCMem:= CreateCompatibleDC(hDC)
> hDCSave:= SelectObject(hDCMem, oBMP:Handle())
> // 593
> BitBlt(hDC, 100, 50, 32, 32, hDCMem, 0, 0, SRCCOPY)
> SelectObject(hDCMem, hDCSave)
> DeleteDC(hDCMem)
> DeleteDC(hDC)
> oBMP:Destroy()
>
> I'm using cavo 2.5b3.
> Anybody can help me with this?
> Thanks.
|
