Extrem langsames Aktualisieren großer Anzahl von TLabels?

[christian.noeding]

Hallo Leute :)

Ich hab irgendwie einen Knoten im Hirn... Meine Anwendung hat bislang schon recht viele Labels, Buttons, etc. Jetzt ist es aber erforderlich, über hundert einzelne Labels zur Laufzeit hinzuzufügen (das klappt) und entsprechend anzuordnen (klappt auch). Die Labels stecken alle in einer Scrollbox.

Nun müssen alle 200 Labels auf einen Schlag mit neuen Caption-Werten beschrieben werden:

Delphi-Quellcode:

  for i:=1 to 200 do
  begin
    label_name[i].Caption:=data.names[i];
    label_wert[i].Caption:=data.value[i];
  end;

Solange die Labels sichtbar sind dauert das eine Ewigkeit (man kann gemütlich verfolgen, welches Label gerade aktualisiert wird :cry: ). Erst wenn ich Visible:=False setze rennt das ganze, aber hierdurch flimmert die Ausgabe aber erheblich. Was kann ich machen, damit das Flimmern nicht mehr auftritt, bzw. kann man die langsame Aktualisierung der knapp 200 Labels beschleunigen, ohne sie Unsichtbar zu machen? Das Setzen von DoubleBuffer der Forms hat nicht wirklich was gebracht...

vielen Dank für ein paar Hinweise... die Suche spuckte nicht gerade hilfreiches aus... :roll:

[Dax]

Soweit ich weiß sind Labels Areale des Forms und keine eigenen Controls - es sind einfach... Areale, auf die gezeichnet wird. Den Updateprozess in ein

Delphi-Quellcode:

BeginUpdate;
{ ... }
EndUpdate;

zu packen sollte helfen.

[christian.noeding]

Nunja, aber ich habe "BeginUpdate" und "EndUpdate" nirgends deklariert oder eingebunden... Sind das spezielle Funktionen? Als direkten Aufruf kann ich sie jedenfalls nicht verwenden!?

[Dax]

Achje, Tatsache :shock:

Bin einfach zu verwöhnt von SuspendLayout/ResumeLayout aus .net :mrgreen:

[mkinzler]

Form.BeginUpdate; bzw. Form.EndUpdate;

[christian.noeding]

Hmm, das hatte ich schon probiert. Resultat: "Undefinierter Bezeichner: 'BeginUpdate'"

Sicher, dass ich nicht noch was spezielles Einbinden muss? Meine IDE bietet mir nur Form.BeginDrag und Form.BeginAutoDrag an !?

[Hawkeye219]

Hallo,

vielleicht hilft ein Blick in diesen Thread.

Gruß Hawkeye

[christian.noeding]

Ah :spin: ich hab nicht nach Control, sondern nur nach Label, Form und Panel gesucht...ich probier das mal aus mit dem hier:

Delphi-Quellcode:

LockWindow(MyPanel.Handle);
MyPanel.Visible := False;
CreateControls;
MyPanel.Visible := True;
UnLockWindow(MyPanel.Handle);

klingt gut ;-)


Vielen Dank!

[rd5pro]

Die Labels haben doch ein Parent, auf dem sie platziert sind, oder?

Vielleicht funzt BeginUpdate...EndUpdate mit dem Parent der Labels?

Oder probier mal, das Parent der Labels während des Updates auf visible:=false zu setzen.

Roland

[christian.noeding]

Das Parent (also die Scrollbox) bietet mir ebenfalls nicht die BeginUpdate/EndUpdate Prozeduren an :-/


also ich habs jetzt mal so probiert:

Delphi-Quellcode:

LockWindow(scrollbox.Handle);
scrollbox.Visible := False;

for i:=1 to 200 do
  begin
    label_name[i].Caption:=data.names[i];
    label_wert[i].Caption:=data.value[i];
  end;

scrollbox.Visible := True;
UnLockWindow(scrollbox.Handle);

mit

Delphi-Quellcode:

procedure LockWindow(const Handle: HWND);
begin
  SendMessage(Handle, WM_SETREDRAW, 0, 0);
end;

procedure UnlockWindow(const Handle: HWND);
begin
  SendMessage(Handle, WM_SETREDRAW, 1, 0);
  RedrawWindow(Handle, nil, 0,
    RDW_ERASE or RDW_FRAME or RDW_INVALIDATE or RDW_ALLCHILDREN);
end;

Aber es flimmert immer noch, da ich die Werte z.T. mehrfach in der Sekunde ändere. Allerdings ist es subjektiv nicht mehr so schlimm wie vorher...

Ich schau mal, ob ich da noch was besseres finde... :)