ShllListView flackert

[ereetzer]

Hallo,

habe hier die Situation, daß ich mir per Buttonclick ein Form aufrufe und dort eine Protokolldatei in einem
Stringgrid anzeigen lasse.

Während nun das Stringgrid gefüllt wird, flackert auf dem Hauptformular die ShellListView-Komponente. Das ist sehr störend.

Mein Problem ist nun, daß ich nicht weiß, wie 1. das flackern kommt (in dem Augenblick mache ich doch gar nichts mit der ShellListview) und 2. natürlich, wie ich das flackern weg bekomme.

Hat jemand eine Idee.

[Mario]

Vermutlich wird ein Teil Deines Formulares (oder sogar das ganze) angewiesen, sich neu zu zeichnen.

Probiere mal (zur Laufzeit) DoubleBuffered vom Formular auf True zu setzen.

[jim_raynor]

Gibt es nicht beim StringGrid soetwas wie BeginUpdate und EndUpdate. Dann könnte man es darüber lösen, da dies auch wesentlich schneller wär.

[ibp]

versuch mal beim befüllen den fokus auf das stringgrid zu legen

[Sharky]

Zitat von jim_raynor:

Gibt es nicht beim StringGrid soetwas wie BeginUpdate und EndUpdate. Dann könnte man es darüber lösen, da dies auch wesentlich schneller wär.

Guckst Du genau hier

[ereetzer]

danke soweit für die Tips.

Leider klappt das alles nicht.

Zitat:

Mario Verfasst am: 14.12.2004, 11:29 Titel: Re: ShllListView flackert
Vermutlich wird ein Teil Deines Formulares (oder sogar das ganze) angewiesen, sich neu zu zeichnen.

wie kann ich denn herausfinden ob dem so ist ?

ereetzer

[Mario]

Zitat von ereetzer:

wie kann ich denn herausfinden ob dem so ist ?

Ist das nicht eigentlich offensichtlich, wenn es flackert?

Mir fällt gerade was auf: Auf dem Hauptform zeigt die ShellListView nicht zufällig das Verzeichnis an, in dem Du arbeitest? Falls ja solltest Du beim Aufruf des Forms versuchen diese stillzulegen (BeginUpdate)...

[ereetzer]

für alle die es interessiert, habe ich folgende flackerfreie Lösung gefunden:


Die folgende Funktion wird mit dem vorrübergehend einzufrierenden Fenster aufgerufen. (Natürlich das "aufwecken" em Ende nicht vergessen)

Delphi-Quellcode:

procedure LockWinControl(const WC: TWinControl; ALock: Boolean);
begin
  if (not Assigned(WC)) or (WC.Handle = 0) then
    exit;
  if ALock then WC.Perform(WM_SETREDRAW, 0, 0) else
  begin WC.Perform(WM_SETREDRAW, 1, 0); 
    RedrawWindow(WC.Handle, nil, 0, RDW_ERASE or RDW_FRAME or RDW_INVALIDATE or RDW_ALLCHILDREN); 
  end;
end;

ereetzer