TListBox: Unabhängig vom Inhalt einfärben

[kurtm1]

Also ich möchte die Zeilen einer ListBox verschieden einfärben, jedoch unabhängig davon, ob bzw. wieviele Items es gibt.

Wenn neue Items dazukommen, sollen diese natürlich dann drübergezeichnet werden, so dass die Hintergrundfarbe ganz normal bleibt.

Dies hier ist ein Ansatz, färbt jedoch nur die Zeilen ein, wo sich auch wirklich Items befinden (http://www.swissdelphicenter.com/de/showcode.php?id=248)

[jim_raynor]

Wenn ich mich Recht erinnere gibts auch bei TListBox die Eigenschaft Color mit der du die Hintergrundfarbe festlegen kannst ...

[kurtm1]

Zitat von jim_raynor:

Wenn ich mich Recht erinnere gibts auch bei TListBox die Eigenschaft Color mit der du die Hintergrundfarbe festlegen kannst ...

ok ich habe das nicht explizit dazugeschrieben:
Die Zeilen sollen abwechselnd eine andere Farbe bekommen (1. Grau, 2. Schwarz, 3. Grau, etc.) -> so wie in dem Beispiel was ich oben dazugehängt habe

[toms]

moechtest du, dass auch Zeilen gefaerbt werden, welche keinen Text haben?

[kurtm1]

Zitat von toms:

moechtest du, dass auch Zeilen gefaerbt werden, welche keinen Text haben?

genau dies würde ich brauchen, ja

[Lannes]

Hallo,

Zitat von kurtm1:

Zitat von toms:

moechtest du, dass auch Zeilen gefaerbt werden, welche keinen Text haben?

genau dies würde ich brauchen, ja

und genau das macht der Code vom SwissDelphiCenter,
überprüf mal ob Du den richtig eingebaut hast.

[Hansa]

Wahrscheinlich geht der Code vom SwissDelphiCenter. Aber der kommt mir doch reichlich kompliziert vor. Das hier müßte doch reichen :

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  i : Integer;
begin
  for i := 1 to Listbox1.Items.Count do begin
    if Index mod 2 = 0 then begin
      Listbox1.Canvas.Brush.Color := clBlue;
      Listbox1.Canvas.FillRect(Rect);
      Listbox1.Canvas.TextOut(Rect.Left, Rect.Top, Listbox1.Items[Index]);
    end
    else
      Listbox1.Canvas.TextOut(Rect.Left, Rect.Top, Listbox1.Items[Index]);
  end;
end;

Bei mir sind die Zeilen jetzt abwechseln weiß oder blau. Egal, ob sie neu hinzukommen, oder bereits da sind. Was macht denn da der Swiss-Code wichtiges ?

[Lannes]

Hallo,

der Code färbt auch Zeilen die noch nicht belegt sind.

[Keldorn]

Zitat von Hansa:

Bei mir sind die Zeilen jetzt abwechseln weiß oder blau. Egal, ob sie neu hinzukommen, oder bereits da sind. Was macht denn da der Swiss-Code wichtiges ?

Er färbt den Hintergrund auch bei den Zeilen, wo kein Item hinterlegt ist (siehe screenshot). Dort wird kein Ondrawitem ausgelöst und wäre somit nur mit deinem code nicht möglich.

edit: hier war kein roter Kasten

Mfg Frank

[Hansa]

Und wozu soll das gut sein ? Man braucht doch selbst dann nur dafür sorgen, daß genügend Zeilen für den sichtbaren Bereich vorhanden sind. Z.B. so in der Richtung :

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  i : Integer;
begin
  for i := 1 to (ListBox1.Height DIV Listbox1.ItemHeight) do
    ListBox1.Items.Add('');
end;

Kommen dann noch welche dazu, werden die auch wie vorher abwechselnd gefärbt. Aber ich sehe gerade, daß der Tip von Peter Below ist. Das erklärt einiges. Wahrscheinlich ist der Code auch uralt.