FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour oWnd:Say() ->Transparent on Gradientfil?
dutch
Posts: 1598
Joined: Fri Oct 07, 2005 05:56 PM

oWnd:Say() ->Transparent on Gradientfil?

Posted: Fri Nov 27, 2009 06:22 PM

Dear All,

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

How can I do it?

Regards,
Dutch

Regards,

Dutch



FWH 2304 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio

FWPPC 10.02 / Harbour for PPC (FTDN)

ADS V.9 / MySql / MariaDB

R&R 12 Infinity / Crystal Report XI R2

(Thailand)
ukoenig
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM

Re: oWnd:Say() ->Transparent on Gradientfil?

Posted: Fri Nov 27, 2009 09:53 PM
Hello Dutch,





Code (fw): Select all Collapse
...
...
@  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 :-)
Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

Continue the discussion

Static archive · New replies & topics via GitHub Discussions