oWnd:Say() ->Transparent on Gradientfil?

[dutch]

Dear All,

I need to use oWnd:Say() on Gradientfil() area and need to Transparnet Backgroup.

How can I do it?

Regards,
Dutch

[ukoenig]

Hello Dutch,

Code: Select all  Expand view

...
...
@  50, 100 TITLE oTitle SIZE 150, 50 of oWnd TRANSPARENT NOBORDER
@  10,  20  TITLETEXT OF oTitle TEXT "TEXT-TEST"  FONT oFont COLOR 128  

// @  50, 100 TITLE oTitle SIZE 200, 100 of oWnd TRANSPARENT
// @  25,  35  TITLETEXT OF oTitle TEXT "TEXT-TEST"  FONT oFont COLOR 128  
// @  50,  35  TITLETEXT OF oTitle TEXT "MORE TEXT"  FONT oFont COLOR 0

ACTIVATE WINDOW oWnd MAXIMIZED ;
ON PAINT W_GRAD( oWnd, hDC )

RETURN ( NIL )

// --------- GRADIENT  --------------------------------------

STATIC FUNCTION W_GRAD( oWnd, hDC )
local aGrad := { { W_MOVE, W_COLOR1, W_COLOR2 }, ;
                          { W_MOVE, W_COLOR2, W_COLOR1 } }        

GradientFill( hDC,  0, 0, oWnd:nHeight, oWnd:nWidth, aGrad, .T. )    // Gradient Top / Bottom, .F. = Left / Right

RETURN NIL
 

Best Regards
Uwe