FiveTech Support Forums

I want to create a Test-Environment for all Controls ( transparent )
on Dialogs and Folders
using Gradient-, Color-, Image-, Brush- and Style-Backgrounds.

Is it possible, to get the Position of the Image-Area
for transparent Radio's and Checkboxes ?
It allways uses the Top / Left - Position of the Background-Image.
As well, there is a Problem with the Group-Color ( text and Line )
and the Textcolor of Radios and Checkboxes.
I tested another ( working ) Solution, but there was the Group-Line behind the Group-Text.
The Line is also visible on the Gradient-Test.
For the Gradient I used :
FOR n := 1 to Len( oFld:aDialogs )
oDlg := oFld:aDialogs[ n ]
IF n = 1 // Gradient
oDlg:bPainted := { | hDC | GradientFill( hDC, 0, 0, oDlg:nHeight, oDlg:nWidth, aColors, .T. ) }
...but I think it must be a Brush as well.

Normal Brush


Adjusted Brush


Gradient


Brush


Style


Best Regards
Uwe

I added Colors to \Samples\Testfldb.prg
why it doesn't work ?

I tested without Brush and Transparent as well with the same Result :
DEFINE DIALOG oDlg RESOURCE "Test" // BRUSH oBrush TRANSPARENT



// REDEFINE GROUP [ <oGroup> ] ;
// [ <label:LABEL,PROMPT> <cLabel> ] ;
// [ ID <nId> ] ;
// [ <of: OF, WINDOW, DIALOG> <oWnd> ] ;
// [ COLOR <nClrFore> [,<nClrBack>] ] ;
// [ FONT <oFont> ] ;
// [ <lTransparent: TRANSPARENT> ] ;

REDEFINE GROUP PROMPT "Test" ID 5 OF oFld:aDialogs[ 1 ] COLOR 128

=============================

// REDEFINE CHECKBOX [ <oCbx> VAR ] <lVar> ;
// [ ID <nId> ] ;
// [ <of:OF, WINDOW, DIALOG> <oWnd> ] ;
// [ <help:HELPID, HELP ID> <nHelpId> ] ;
// [ <click:ON CLICK, ON CHANGE> <uClick> ];
// [ VALID <uValid> ] ;
// [ <color: COLOR, COLORS> <nClrFore> [,<nClrBack>] ] ;
// [ MESSAGE <cMsg> ] ;
// [ <update: UPDATE> ] ;
// [ WHEN <uWhen> ] ;

REDEFINE CHECKBOX oChk VAR lChk ID 92 OF oFld:aDialogs[ 1 ] ON CHANGE MsgBeep() COLOR 128

==================================

// REDEFINE RADIO [ <oRadMenu> VAR ] <nVar> ;
// [ ID <nId,...> ] ;
// [ <of: OF, WINDOW, DIALOG> <oWnd> ] ;
// [ <help:HELPID, HELP ID> <nHelpId,...> ] ;
// [ <change: ON CHANGE, ON CLICK> <uChange> ] ;
// [ COLOR <nClrFore> [,<nClrBack>] ] ;
// [ MESSAGE <cMsg> ] ;
// [ <update: UPDATE> ] ;
// [ WHEN <uWhen> ] ;
// [ VALID <uValid> ] ;

REDEFINE RADIO oRadio VAR nValue ID 110, 120, 130 COLOR 128 OF oFld:aDialogs[ 2 ] ;
ON CHANGE MsgBeep()

Best Regards
Uwe