Listbox Elemente unterschiedlich farbig darstellen

[Logan]

Hi, ersteinmal wünsche ich ein frohes neues Jahr!!!

Und nun zu meiner Frage ^^

Ich möchte wie der Titel schon sagt Listbox Elemente unterschiedlich farbig darstellen, wenn ich folgenden Code benutze:

Delphi-Quellcode:

    
    FOR i := 0 TO Get_AnzOfUserList-1 DO BEGIN
      LB_User.Font.Color := GetUserColor(Get_UserOfList(i));
      LB_User.Items.Append(Get_UserOfList(i));
    END;

Werden alle Elemente durch die Farbe des letzten Users aus der Liste dargestellt?!
Habe auch im OI nachgeschaut, aber kA was ich da umstellen muss, vermute es hat was damit zu tuen!

Vielen Dank schon einmal!

MfG
Logan

[Keldorn]

Hallo

Du mußt die Einträge selber zeichnen (Ondrawitem-Erreignis, und nicht vergesen, den Style der LB auf ownerdrawfixed zu stellen). Beispiele zu ondrawitem findest du hier sehr viele im Forum.

mfg Frank

[Logan]

Wieso muss dies immer so ein grosser Aufwand sein ich hasse die draw funktionen :(

Vielen Dank!

[Keldorn]

Echt? wieso? so schwierig ist das doch nicht.

[Luckie]

Zitat:

Zitat von Logan

Wieso muss dies immer so ein grosser Aufwand sein ich hasse die draw funktionen :(

Tja, dann ist Programmieren wohl das falsche Hobby für dich. Oder du beschränkst dich eben auf die Standards, die du mit Delphi einfach zusammenklicken kannst. Das meiste, was eben nicht Standard ist bedeutet ebn auch einen gewissen Mehraufand an Arbeit und Zeit.

[Logan]

Nein, schwierig is es nicht, aber immer so eine extra Funktion NUR für die Farben anstatt es beim Anfügen schon farbig zu machen aber was soll man machen ...

[Luckie]

Wenn Micososft oder Borland bei der VCL schon alles implementieren würden.... :-?

[Logan]

Zitat:

Wenn Micososft oder Borland bei der VCL schon alles implementieren würden....

...dann hätte man es einfacher :-D

[Luckie]

Alleine mal davon abgesehen, dass es unmöglich ist, welche Daseinsberechtigung hättest du da noch als Programmierer? Aber wir werden offtopic.

[Logan]

Sorry :oops:

[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:

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!!!