Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by baumina,
6. Jun 2014
OK, Vorschlag. Führe beim Füllen deiner ListBox eine Liste mit Farben, oder schreibe die Farben in die Objects der der ListboxItems. Am Anfang alle clWhite. Beim Execute-Knopf änderst du dann die Farben anhand des Items auf Rot/Grün/Gelb. Im OnItemDraw nimmst du dann die Farbe aus der Liste oder aus den Objects, wie immer du dich entschieden hast diese mitzuführen.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by baumina,
6. Jun 2014
Nehmen wir mal den Code zur Hand und ändern den ein wenig :
procedure TForm1.ListBox1DrawItem
(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState) ;
var
myColor: TColor;
myBrush: TBrush;
begin
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by baumina,
6. Jun 2014
Wie kommst Du denn darauf? OnDrawItem hat nichts mit dazufügen zu tun, das ist einzig und alleine das Event, das ausgelöst wird, wenn ein Item auf dem Bildschirm angezeigt wird.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by baumina,
6. Jun 2014
http://delphi.about.com/cs/adptips2002/a/bltip0602_4.htm