mehrzeilige listbox-einträge

[Sunlight7]

Moin!

@maddins: Weil Du per PN anfragtest, jo, da muß man etwas Tricksen.

Wir basteln uns einen Record

Delphi-Quellcode:

type
  PItem=^TItem;
  TItem packed record
     FileName:String;
     FileSize:Int64;
     Comment:String;
     UndWasHaltSonstNoch:TIrgendwas;
  end;

Hinzufügen eines Items

Delphi-Quellcode:

   var Item:PItem;
...
   New(Item);
   If Item=nil then ... // Fehlerabfrage

   Item^.FileName:=...;
   Item^.FileSize:=...;
   Item^.Comment:=...;

   ListBox1.Items.AddObject(Item^.FileName, TObject(Item));

Anwendungsbeispiel

Delphi-Quellcode:

   var Item:PItem;
...
   Item:=PItem(ListBox1.Items.Objects[ListBox1.ItemIndex]);
   Canvas.TextOut(0, 0, Item^.FileName);
   Canvas.TextOut(0, 20, IntToStr(Item^.FileSize));
   Canvas.TextOut(0, 40, Item^.Comment);

Und net vergessen, den Speicher mit Dispose wieder frei zu geben

Zitat von LAWn-M0W3R:

und was die Benutzerfreundlichkeit angeht, so mach es wie Sunlight7 und bau nen Farbverlauf in die Paint-Prozedur!

Nicht in die Paint, in die OnDrawItem