TCHECKBOX and TRADIOBUTTON font color
lazarus / 5-Lazarus Extra Components

----------------------------------------------------------------------
kareka · 2019-01-12 02:34

Hi,

How to change the font color for TCheckbox and TRadiobutton caption to
white. I've set font/color to white in property. But it doesn't work
when the theme was active.
I still need active theme for other component.
Form background using dark color.

Lazarus-IDE 1.8.4

Thx

----------------------------------------------------------------------
ASerge · 2019-01-12 11:06

Quote from: kareka on January 12, 2019, 03:34:50 amHow to change the
font color for TCheckbox and TRadiobutton caption to white. I've set
font/color to white in property. But it doesn't work when the theme
was active.
I still need active theme for other component.
Checked in Windows:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i uses
UXTheme; procedure TForm1.Button1Click(Sender: TObject);begin 
SetWindowTheme(CheckBox1.Handle, '', ''); 
SetWindowTheme(RadioButton1.Handle, '', '');  CheckBox1.Font.Color :=
clWhite;  RadioButton1.Font.Color := clWhite;end;

----------------------------------------------------------------------
kareka · 2019-01-14 01:16

Quote from: ASerge on January 12, 2019, 12:06:25 pmQuote from: kareka
on January 12, 2019, 03:34:50 amHow to change the font color for
TCheckbox and TRadiobutton caption to white. I've set font/color to
white in property. But it doesn't work when the theme was active.
I still need active theme for other component.
Checked in Windows:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i uses
UXTheme; procedure TForm1.Button1Click(Sender: TObject);begin 
SetWindowTheme(CheckBox1.Handle, '', ''); 
SetWindowTheme(RadioButton1.Handle, '', '');  CheckBox1.Font.Color :=
clWhite;  RadioButton1.Font.Color := clWhite;end;
Thank you