ExCheckCtrls - Radio Group Caption color [SOLVED]

[bobonwhidbey]

This nice component colors the button captions, but I haven't figured out how to change the font.color of the radio box's caption.

[paweld]

Code: Pascal  [Select][+][-]

1. RadioGroupEx1.Font.Color := clWhite;

[bobonwhidbey]

I must be doing something wrong. This didn't work in the sample project I attached..  The caption is still black.

Code: Pascal  [Select][+][-]

1. procedure TForm1.FormCreate(Sender: TObject);
2. begin
3.   RG.Font.Color := clWhite;
4.   RG.Buttons[0].ThemedCaption := false;
5.   RG.Buttons[1].ThemedCaption := false;
6.   RG.Buttons[0].Font.Color := clWhite;
7.   RG.Buttons[1].Font.Color := clWhite;
8. end;

[wp]

I'm afraid this is not possible because the caption is still drawn by the widget set, and there are restrictions regarding color in some widgetsets.

As a work-around you could
* clear the radiogroup's Caption
* add a TStaticText (not a TLabel) to the form (not to the radiogroup)
* move it to the top/left corner of the radiogroup so that it looks like the original caption.
* Change the font color of the TStaticText as you need.

[bobonwhidbey]

Thanks WP. Yes -  TStaticText was necessary since the top line of the group box can be seen through the TLabel, despite the TLabel.Transparent prop. being set to false.