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:

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:

Zitat von toms

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

genau dies würde ich brauchen, ja

[Lannes]

Hallo,

Zitat:

Zitat von kurtm1

Zitat:

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 ? :gruebel:

[Lannes]

Hallo,

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

[Keldorn]

Zitat:

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 ? :gruebel:

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 :angel2:

Mfg Frank

[Hansa]

Und wozu soll das gut sein ? :shock: 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. :mrgreen: Wahrscheinlich ist der Code auch uralt.

[Keldorn]

warum denn nicht?
In deinem code könntest du diese Items aber dann auch anklicken und müßtets den Rest des Codes auch noch daraufhin anpassen, denn die leeren Items willst du ja nicht wirklich weiterverarbeiten oder ;) ? Wenn du die Liste sortierst, kommst du auch nicht weiter.

[robinWie]

Ich hatte gedacht mal sowas in die Playlist von einem Programm einzubauen, aber das soll nur ein Item gefärbt werden und es muss dann mit einem Timer order so ständig aktualisiert werden. Hab schon ein bischen rumprobiert aber es funktioniert nicht.
Kennt das jemand 'ne lösung?

[kurtm1]

Zitat:

Zitat von Lannes

Hallo,

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

Das stimmt, allerdings wird nur dann gefärbt, wenn eben mindestens ein Item in der Listbox ist

[Lannes]

Hallo,

@robinWie:
Deine zusätzliche Frage in diesem Thread steht genau im Gegensatz zum Titel:

Zitat:

Unabhängig vom Inhalt einfärben

Mit ListBox AND Farbe findest Du so um die 30 Threads,
da ist bestimmt etwas passendes dabei :wink:
Wenn Du dann noch Probleme hast,
kannst Du in einem eigenem Thread eine diesbezügliche Frage stellen.


@kurtm1:
Erstell doch in die ListBox einen leeren Eintrag.
Entweder im OnCreate der Form mit:

Delphi-Quellcode:

ListBox1.Items.Add('');

oder im Objekt-Inspektor bei der Eigenschaft Items,
indem Du mit der Taste [Enter] einen Zeilenumbruch im String-Editor erzeugst.
Dann musst Du nur darauf achten,
das vor dem Füllen der Listbox der leere Eintrag gelöscht wird.