2006/7/25, Mattias Gaertner <[EMAIL PROTECTED]>:
Maybe someone wants to test under native window:
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
j: Integer;
begin
for i:=0 to 999 do begin
with TListBox.Create(Self) do begin
SetBounds((i mod 33)*50,(i div 33)*50,50,50);
for j:=1 to 20 do
Items.Add(IntToStr(j));
Parent:=ScrollBox1;
end;
end;
end;
Speed is excellent. Scrooling very good. Only a little bit slow at
create/free of components.
--
Alexandre Leclerc
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
