TCheckListBox - Elemente In unterschiedlichen Farben?

[perle]

Hallo , der Titel sagt eigentlich schon alles. Wie kann ich die einzelnen elemente eienr TCheckListBox in verschiedenen Farben anzeigen lassen?

[jaenicke]

Wie wärs mit OwnerDraw?
Anders wird es wohl nicht gehen!

Ich glaube du kannst, wenn du im OwnerDraw-Ereignis bist, die Pen-Farbe umstellen, und dann mit DefaultDraw sagen, dass der Inhalt normal gezeichnet werden soll. Ich glaube, deine Pen-Einstellungen werden dann dafür benutzt. *nicht_sicher_sein*

[marabu]

Wenn du die Eigenschaft Style auf lbOwnerDrawFixed setzt, dann kannst du dir so eine Tigerente bauen:

Delphi-Quellcode:

procedure TMainForm.CheckListBoxDrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TCheckListBox).Canvas do begin
    if Odd(Index)
      then Brush.Color := ColorToRGB(clGray)
      else Brush.Color := ColorToRGB(clYellow);
    FillRect(Rect);
    TextOut(Rect.Left + 2, Rect.Top, (Control as TCheckListBox).Items[Index]);
  end;
end;

Grüße vom marabu

[perle]

ah supi, vielen Dank