Delphi 7 TListView

[Dawn87]

Du hast doch dieses kleine Fenster, was in der IDE schwebt. Das wo die Liste mit deinen Spalten drin ist. Wenn Du dort eine Spalte auswählst, sollte sich der Inhalt des Objektinspektors ändern. Dort kannst Du unter "Caption" dann den Spaltennamen einstellen.

Beim Eintragseditor gilt:
Einträge auf der 1. Ebene entsprechen dem Inhalt der 1. Spalte. Alle Untereinträge entsprechen dann den nächsten Spalten.

Bei der Ansteuerung im Code, gilt auch immer, dass die 1. Spalte über die "Caption"-Eigenschaft angesteuert wird und die retslichen über die StringList "SubItems".

Grüße
Stefan

[Mazen]

Wow, das ging schnell!
Vielen vielen Dank auch beiden...

Das mit dem vsReport war schonmal entscheidend, und der Tipp das die "Caption" Spalte 1 darstellt und alle weiteren Spalten als "SubItems" angesprochen werden hat mir dann endgültig den Durchbruch gebracht D
Danke

[Mazen]

Ich hoffe mal nach knapp 24 Stunden ist ein Doppelpost gestattet. Aber wenn ich den letzten Eintrag editiere befürchte ich das könnte untergehen :/

Und zwar gehts jetzt dadrum bestimmt Zeilen im ListView zu färben. Ich habe gelesen das das mit dem Event "CustomDrawItem" des ListView gemacht werden soll. Allerdings funktioniert das bei mir nicht.
Das Prinzip ist folgendes:

Ich habe in meiner "Hauptfunktion" eine Schleife mit der der ListView gefüllt wird. Meine Hoffnung war das das Event "CustomDrawItem" jedesmal aufgerufen wird wenn li.Caption := '...' ausgeführt wird. Bei mir ist es aber so das die Schleife erstmal komplett durchläuft, und erst danach das Event ausgeführt wird (natürlich genausoft wie auch li.Caption aufgerufen wurde, aber das nützt mir nichts, da ich bei Laufzeit in der Schleife eine Variable setze und diese im Event abgefragt wird. Nur das ist natürlich nutzlos wenn li.Caption und das Event nicht abwechselnd aufgerufen werden.

Mein Code im Event sieht so aus:

Code:

if fehlercode = '1 ' then
  begin
    Sender.Canvas.Font.Color := clRed;
    DefaultDraw := True;
  end
  else if fehlercode = '2 ' then
  begin
    Sender.Canvas.Font.Color := clGreen;
    DefaultDraw := True;
  end
  else if fehlercode = '1 2 ' then
  begin
    Sender.Canvas.Font.Color := clBlue;
    DefaultDraw := True;
  end else
  begin
    Sender.Canvas.Font.Color := clDefault;
    DefaultDraw := True;
  end;

[Luckie]

Zitat von Mazen:

Ich hoffe mal nach knapp 24 Stunden ist ein Doppelpost gestattet. Aber wenn ich den letzten Eintrag editiere befürchte ich das könnte untergehen :/

Wäre es. aber für eine neue Frage mach auch einen neuen Thread auf. Ich schließe dann hier mal. Die ursprüngliche Frage scheint ja geklärt zu sein.