ListBox - Bestimmter Eintrag farbig

StrikeLucky · Beiträge: 33 Dabei seit: 18.12.2009

Moin,

ich habe einige Einträge in einer ListBox, wenn zb der Eintrag xyz auftaucht, soll dieser in roter Schrift dargestellt werden. Kann mir dazu bitte jemand einen Tipp geben?
Danke

LG

jaenicke · Verfasst: Do 28.01.10 21:33

Dafür musst du die Einträge selbst zeichnen. Stichwort: OwnerDraw, schau dir einmal die Ereignisse der ListBox an. ;-)

_________________
Alle meine Projekte ruhen derzeit und bis auf weiteres aus beruflichen Gründen!

StrikeLucky · (Threadstarter) Beiträge: 33 Dabei seit: 18.12.2009

Danke!
Problem gelöst

Holg_i · Beiträge: 41 Dabei seit: 05.03.2010

ich bin ja hier recht neu, wobei ich aber sage, klasse das du das problem gelöst hat.
wäre fein hättest du die lösung hier aufgezeigt damit andere die das problem eventuell auch haben eine lösung finden können.

Delphi-Quelltext

markieren

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
     with Control as TListBox do
     begin
           IF Items[Index]='xyz' then Canvas.Brush.Color := clRed else Canvas.Brush.Color := clWhite;
           
           Canvas.FillRect(Rect);
           Canvas.TextOut(Rect.Left, Rect.Top, Items[Index]);
     end;
end;

ich bin immer ganz froh wenn ich auch lösungen finde und nicht nur fragen *grins*

Xentar · Verfasst: Di 09.03.10 11:54

Und was genau passiert bei dem Quellcode? Oder soll das nur eine Ergänzung sein, und kein Fehlerbericht?

Wobei ich "With" in diesem Zusammenhang (und auch Allgemein) böse finde, da das Formular auch eine Eigenschaft "Canvas" hat.

_________________
PROGRAMMER: A device for converting coffee into software.

Holg_i · Beiträge: 41 Dabei seit: 05.03.2010

Das sollte die Lösung seiner Frage darstellen.

Besser ist also:

Delphi-Quelltext

markieren

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
     IF ListBox1.Items[Index]='xyz' then ListBox1.Canvas.Brush.Color := clRed else ListBox1.Canvas.Brush.Color := clWhite;
           
     ListBox1.Canvas.FillRect(Rect);
     ListBox1.Canvas.TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]);
end;