Mam taki problem. Na formie mam dużo checkboxów i jesli mają stan inny niż początkowy zapisany w tablicy to zmienia się kolor tekstu na niebieski. Wszystko pięknie działa ale jak dodam komponent xpman żeby włączyć style xp to kolor się juz nie zmienia. Co jest grane? Czy da sie to jakoś ominąć?
procedure Tokno_glowne.sprawdz_checkbox(Sender: TObject);
var
I:integer;
begin
for I:=0 to ComponentCount-1 do
if Components[I] is TCheckBox then
begin
if Tablica_CheckBox[I]=TCheckBox(Components[I]).Checked then
TCheckBox(Components[I]).Font.Color:=clBlack
else
TCheckBox(Components[I]).Font.Color:=clBlue;
end;
end;