Ich habe das ähnliche Problem =(
Delphi-Quellcode:
procedure ZeileFaerben(Zeile:integer;Farbe:integer;Listbox:TListbox;
Index:Integer;Rect:TRect);
begin
if Index<>Zeile then
Farbe:=clRed;
// Listbox.Canvas.Brush.Color:=clWhite;
//Listbox.Canvas.Pen.Color:=Farbe;
// Listbox.Canvas.FillRect(Rect);
Listbox.Canvas.Font.Color:=Farbe;
// Listbox.Canvas.TextOut(Rect.Left,Rect.Top,Listbox.Items[Index]);
end;
Delphi-Quellcode:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
Name: string;
Farbe,count, i : integer;
begin
begin
count := listbox1.Items.Count;
label1.Caption := inttostr(count);
Farbe := clRed;
if
listbox1.Items.Text = 'verliehen' then
ZeileFaerben(Index,Farbe,Listbox1,Index,Rect) ;
//canvas.Font.Color := clRed;
// for i := 0 to count do
//if
//listbox1.Items.Text = 'verliehen' then
end;
end;
das alles funktioniert nicht =( Ich möchte das in meiner Listbox nur die einträge rot gefärbt werden, die das wort "verliehen" haben.
Kann mir wer helfen??