GroupBox TITLE Transparent IN FOLDER?

[MGA]

Is possible GROUPBOX title transparent in FOLDER?

[RAMESHBABU]

Hi,

This may help you.

- Ramesh Babu

Code: Select all  Expand view

********************************************************************************************
*** FUNCTION SetFoldGrad( oFolder, oBrush ) to Set the Students Master     ***
***          Folder Dialogs Gradiation Effect                                                  ***
*******************************************************************************************

FUNCTION SetFoldGrad( oFolder )

LOCAL aGradiate := ARRAY(10), aBrushes := ARRAY(LEN(oFolder:aDialogs))

aGradiate[1]  := { {1, CLR_WHITE, nRGB( 243, 245, 192 ) }, {1, nRGB( 243, 245, 192 ),  CLR_WHITE } }
aGradiate[2]  := { {1, CLR_WHITE, nRGB( 222, 214, 225 ) }, {1, nRGB( 222, 214, 225 ),  CLR_WHITE } }
aGradiate[3]  := { {1, CLR_WHITE, nRGB( 219, 240, 200 ) }, {1, nRGB( 219, 240, 200 ),  CLR_WHITE } }
aGradiate[4]  := { {1, CLR_WHITE, nRGB( 248, 226, 250 ) }, {1, nRGB( 248, 226, 250 ),  CLR_WHITE } }
aGradiate[5]  := { {1, CLR_WHITE, nRGB( 233, 235, 218 ) }, {1, nRGB( 233, 235, 218 ),  CLR_WHITE } }
aGradiate[6]  := { {1, CLR_WHITE, nRGB( 224, 252, 254 ) }, {1, nRGB( 224, 252, 254 ),  CLR_WHITE } }
aGradiate[7]  := { {1, CLR_WHITE, nRGB( 235, 224, 199 ) }, {1, nRGB( 235, 224, 199 ),  CLR_WHITE } }
aGradiate[8]  := { {1, CLR_WHITE, nRGB( 237, 255, 221 ) }, {1, nRGB( 237, 255, 221 ),  CLR_WHITE } }
aGradiate[9]  := { {1, CLR_WHITE, nRGB( 255, 249, 215 ) }, {1, nRGB( 255, 249, 215 ),  CLR_WHITE } }
aGradiate[10] := { {1, CLR_WHITE, nRGB( 247, 234, 219 ) }, {1, nRGB( 247, 234, 219 ),  CLR_WHITE } }

FOR n = 1 TO LEN(aBrushes)
    DEFINE BRUSH aBrushes[n] GRADIENT aGradiate[n]
    oFolder:aDialogs[n]:SetBrush(aBrushes[n])
NEXT

RETURN nil
 

[ukoenig]

Ramesh, I'm working on a new release using Your MESSAGE-functions.

SGS
Are You using RESOURCES ?

A test using RESOURCES ( transparent-check ) :



used gradient and changed grouptext-font and color


Best Regards
Uwe

[MGA]

ukoenig,

Yes, I use RESOURCE - NATIVE FOLDER FIVEWIN !

[ukoenig]

I will add a DOWNLOAD-link

Best Regards
Uwe

[MGA]

thanks

[ukoenig]

The promised DOWNLOAD-link

http://www.pflegeplus.com/Fw_downloads/Grptest1.zip

Best Regards
Uwe

[MGA]

Thanks

[MGA]

THANKS