Das Scrollen ist schon in
qc. Der Unterschied zu heute nacht ist die Größe der Listbox. Die hatte ich einfach aus der Palett eingefügt und unverändert auf 100x100 gelassen.
Und hier sehen wir sehr schön den Unterschied zwischen dem bösen HEAVYWEIGHT:
Result := SendMessage(ListBox.Handle, LB_ADDSTRING, 0, Longint(PChar(S)));
und dem tollen, neuen LIGHTWEIGHT:
Delphi-Quellcode:
Item := TListBoxItem.Create(FListBox);
try
Item.Text := S;
Result := FListBox.Count;
FListBox.AddObject(Item);