Listbox Elemente unterschiedlich farbig darstellen

[Logan]

Nun nachdem Ändern is mir aufgefallen, dass beim Auswählen der Elemente der ListBox die Selektion so komisch aussieht (nur der Text ist ausgewählt) und nicht mehr so schön blau wie sonst.
Kann mir da einer nen Tip zu geben?

Und was ich auch noch gleich mitfragen kann ist, wie man bei einem Stringgrid die Blaue Selektion deaktivieren kann?

Danke euch!

[jim_raynor]

Zeig mal deine Zeichen Routine. Aber ich denke du hast einfach nur Anfang ein ListBox.Canvas.FillRect(Rect) vergessen.

Zitat von Logan:

Und was ich auch noch gleich mitfragen kann ist, wie man bei einem Stringgrid die Blaue Selektion deaktivieren kann?

Neue Frage, Neuer Thread. Aber schau mal ob TStringGrid.Options das richtige enthält.

[Logan]

Damit wollte ich nur die Texte farbig machen:

Delphi-Quellcode:

PROCEDURE TFRM_Wochenuebersicht.LB_UserDrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
BEGIN
  LB_User.Canvas.Font.Color := GetUserColor(LB_User.Items[Index]);
  DrawText(LB_User.Canvas.Handle, PChar(LB_User.Items[Index]), Length(LB_User.Items[Index]), Rect, DT_left+DT_Vcenter);
END;

[Logan]

Hattest recht, vielen Dank!!!