Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Union,
30. Sep 2011
Das Update1 ändert leider nix. Übrigens: je langsamer man scrollt desto höher der Speicherbedarf...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Union,
30. Sep 2011
Hast Du Zahlen? Jeder sagt da was anderes. Werte zwischen 50-200 MB machen die Runde.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Union,
30. Sep 2011
Können mal bitte ein paar XE2 User die Samples\Firemonkey\CustomListBox Demo öffnen und dann folgendes tun:
F9 drücken
"Add 1000 by code" Button
mit den Pfeiltasten in der Listbox ganz nach unten scrollen
mit den Pfeiltasten in der Listbox ganz nach oben scrollen
Schritte 3 und 4 möglichst oft wiederholen
Während der Laufzeit den Speicher den die Anwendung benötigt beobachten.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Union,
27. Sep 2011
Du könntest es durch ein StringGrid erzeugen. Das ist seltsamerweise rasend schnell, obwohl viel komplexer.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Union,
27. Sep 2011
Und dann rate mal was TCustomListBox.Getcount macht :(
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Union,
27. Sep 2011
Ich habe Deine Anwendung getestet und nach 5 Minuten mit 100% CPU gekillt. Bei mir kompiliert das selbe. Dann Begin/EndUpdate eingefügt. 3160 ms.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Union,
27. Sep 2011
Es scheint exponentiell von der Anzahl der Elemente der Listbox abzuhängen. Versuch es mal mit Begin/Endupdate, ich habe jetzt dabei eine Geschwindigkeitssteigerung um das 250-fache gemessen :
Listbox alClient (600x400) mit 1000 Elementen = 5223 ms
ListBox alClient (600x400) mit 2000 Elementen = 28809 ms
ListBox alClient (600x400) mit 2000 Elementen Begin/Endupdate = 109 ms
ListBox...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Union,
26. Sep 2011
Frische FMX-HD Anwendung:
uses DateUtils;
{$R *.fmx}
procedure TForm3.FormCreate(Sender: TObject);
var
i : integer;
dtStart : TDateTime;
begin
dtStart := Now;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Union,
26. Sep 2011
1753 ms:
procedure TfrmIosMain.FormCreate(Sender: TObject);
var
i : integer;
dtStart : TDateTime;
begin
dtStart := Now;
for i := 0 to 7999 do
ListBox1.Items.Add(Format('%8.8d', ));
ShowMessage(Format('%d', ));