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