how to change font.color of one single item of Tchecklistbox

[bbd666]

I guess the title is explicit enough.
I can change the font.color of all checkboxes of a Tchecklistbox, but I'd like to tune the checkboxes one by one with different font.colors.
Any help appreciated.

[bbd666]

this code can do the job for the font.color if style is set to lbOwnerDrawFixed, but no more checkboxes. with style set as lbStandard, nothing changed :

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

1. procedure TForm1.checkbox1DrawItem(Control: TWinControl; Index: Integer;
2.   ARect: TRect; State: TOwnerDrawState);
3. begin
4.     with (Control as TCheckListBox).Canvas do
5.   begin
6.       FillRect(ARect);
7.       if Index = 1 then
8.         font.Color := clRed;
9.        TextOut(ARect.Left, ARect.Top, (Control as TCheckListBox).Items[Index]);
10.   end;
11. end;  

[Zvoni]

Maybe here:
https://forum.lazarus.freepascal.org/index.php/topic,46019.msg326599.html#msg326599

[bbd666]

ok thks,
but he built up a brand new Tchecklistbox class there, as much I understand.

[Zvoni]

ok thks,
but he built up a brand new Tchecklistbox class there, as much I understand.

How did you get to that conclusion? He's using a regular TCheckListBox.
Post #8 (Where my link points to)
he's using ThemeServices to draw the CheckBox (which is missing in your OwnerDraw-Version)
And he's using TextRect to draw his first Item of the CheckListBox in Bold.
And if you can set a font to bold for a single item, you can also change its color

EDIT: Attached Proof of concept
Note "LCLType" and "Themes" in Uses

[bbd666]

Great.
Many thks