Opaque controls

[Natter]

Hi, all !

How can I make opaque controls on a transparent window ?

[ukoenig]

Have a look at :

viewtopic.php?f=6&t=25903&p=141950&hilit=nOpacity#p141950



regards
Uwe

[Natter]

Uwe, thanks for your help. However, I need to change the transparency of the window controls transparency on it does not change.

[ukoenig]

I will have a look at the different controls if bAlphaLevel
is supported like for images.

I need to change the transparency of the window controls transparency

A defined transparent-level of windows or dialog doesn't include the controls as well.

from the buttonbar-test ( have a look at -> bartrnsl.prg. )
The buttonbar-transparentlevel changes but not the buttons.

DEFINE BUTTONBAR oBar OF oWnd SIZE 80, 80 2007
oBar:SetFont( oFont )
oBar:SetColor( { |l,o| If( l, CLR_BLACK, CLR_WHITE ) }, oWnd:nClrPane )
oBar:bClrGrad := { |lInvert| If( lInvert, nArgb( 96, CLR_WHITE ), nArgb( nAlpha % 256, nBarClr ) ) }

regards
Uwe

[Silvio.Falconi]

perhaps...

oGRid is a xbrowse allready open

Local hBmp,hBlur

oApp:oGrid:GetDC()
hBmp := MakeBkBmp( oApp:oGrid:hWnd, oApp:oGrid:hDC )
hBlur := Blur( hBmp, 3 )
PalBmpDraw( oApp:oGrid:hDC, 0, 0, hBlur )

DEFINE DIALOG oDlg

DEFINE DIALOG oDlg

DeleteObject( hBmp )
DeleteObject( hBlur )
oApp:oGrid:ReleaseDC()

[Natter]

Thanks !