Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Logan,
1. Jan 2006
Damit wollte ich nur die Texte farbig machen:
PROCEDURE TFRM_Wochenuebersicht.LB_UserDrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
BEGIN
LB_User.Canvas.Font.Color := GetUserColor(LB_User.Items);
DrawText(LB_User.Canvas.Handle, PChar(LB_User.Items), Length(LB_User.Items), Rect, DT_left+DT_Vcenter);
END;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Logan,
1. Jan 2006
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!
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Logan,
1. Jan 2006
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 ...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Logan,
1. Jan 2006
Wieso muss dies immer so ein grosser Aufwand sein ich hasse die draw funktionen :(
Vielen Dank!
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Logan,
1. Jan 2006
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:
FOR i := 0 TO Get_AnzOfUserList-1 DO BEGIN
LB_User.Font.Color := GetUserColor(Get_UserOfList(i));
LB_User.Items.Append(Get_UserOfList(i));