Zeile einer ListBox einfärben

[ghost007]

Hallo,
ich möchte z.b. die 5te zeile einer listbox grün einfärben.
Wie mach ich das?

[Matze]

Hi, das geht so in der Art:

Delphi-Quellcode:

// ListBox-Style muss auf "lbOwnerDrawFixed" sein
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  if Index = 4 then  // 5. Zeile
  begin
    ListBox1.Canvas.Brush.Color := clRed;
    ListBox1.Canvas.Pen.Color := clWhite;
    ListBox1.Canvas.Rectangle(Rect);

    ListBox1.Canvas.TextOut(Rect.Left + 1, Rect.Top + 1, ListBox1.Items[Index]);
  end;
end;

Aber bemühe doch bitte die Suchfunktion, das wurde schon oft gefragt.

[ghost007]

da hab ich blos 1 problem ...
wenn ich nen button nehm und mach onclick

Delphi-Quellcode:

ListBox1.Items.Add('test');

Dann kann man die einträge oberhalb von der 5ten zeile nicht lesen =/

[Sharky]

Zitat:

Zitat von ghost007

... kann man die einträge oberhalb von der 5ten zeile nicht lesen =/

Hai ghost007,

das liegt an einem kleinen Fehler im Code von Matze ;-)
Da sein .TextOut innerhalb des Blocks mit der IF-Abfrage steht wird das Item nur für die fünfte Zeile gezeichnet.

So wird ein Schuh draus:

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with (control as TListBox) do
  begin
    if Index = 4 then  // Farben für die 5. Zeile ändern.
    begin
      Canvas.Brush.Color := clRed;
      Canvas.Pen.Color := clWhite;
      Canvas.Rectangle(Rect);
    end;
    Canvas.TextOut(Rect.Left + 1, Rect.Top + 1, Items[Index]); // Item wird immer gezeichnet
  end;
end;

[ghost007]

Vielen danke, damit hat sich die sache erledigt :) :thumb: