Stringgrid spät anzeigen bzw. füllen

[Hansa]

Hi,

das Problem ist jetzt nicht gewaltig, aber einer weiß bestimmt was. Ich lasse Daten aus DB in einem Stringgrid anzeigen. Das geht auch, aber es dauert. Hierfür ist nicht die Datenbank vorantwortlich, sondern Delphi bzw. eher Windows. Das ganze liegt an der grafischen Darstellung. Setze ich visible des Stringgrids auf false und erst wenn die Daten da sind auf true, so geht es viel schneller.

Jetzt ist die Sache nur so, daß ich in anderen Fällen das Stringgrid leer anzeige mit FixedRows usw. so daß man schon mal grob sieht was später kommt, selbst wenn nicht alles erforderliche eingegeben wurde. Ich will also das ständige Aktualisieren unterdrücken.

[omata]

Moin,

hast du ein eigenes OnDrawCell-Ereignis? Wenn ja, dann häng doch dieses Ereignis solange ab, wie du deine Daten einliest.

OnDrawCell:=nil;

Oder was machst du da genau?

MfG
Thorsten

[Hansa]

Stimmt, auf Nil setzen. Nur wo ? Bzw. wo setze ich a, bestn meine eigene Prozedur wieder ?

[omata]

Moin,

naja am Anfang der Einleseroutine auf NIL setzten und am Ende wieder auf die Prozedur.


MfG
Thorsten

[Sharky]

Hai Hansa,

hast Du es schon einmal mit BeginUpdate / EndUpdate versucht? Das sollte man beim einfügen von großen Datenmengen immer verwenden.

Delphi-Quellcode:

procedure SGBeginUpdate (sg : TStringGrid);
var
  ndx : Integer;
begin
  for ndx := 0 to sg.RowCount-1 do
  begin
    sg.Rows[ndx].BeginUpdate;
  end;
  for ndx := 0 to sg.ColCount -1 do
  begin
    sg.Cols[ndx].BeginUpdate;
  end;
end;

procedure SGEndUpdate (sg : TStringGrid);
var
  ndx : Integer;
begin
  for ndx := 0 to sg.RowCount-1 do
  begin
    sg.Rows[ndx].EndUpdate;
  end;
  for ndx := 0 to sg.ColCount -1 do
  begin
    sg.Cols[ndx].EndUpdate;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   SGBeginUpdate(StringGrid1);
   // Füllen des StringGrids mit Daten
   SGEndUpdate(StringGrid1);
end;

[Hansa]

Hi,

ich bin jetzt dran mit dem Prozedur auf nil setzen usw. Das ganze müßte im BtnClick passieren. Da passen aber die erwarteten Parameter überhaupt nicht zusammen. Hat jemand ein Beispiel dafür ? Und natürlich auch wieder zurück auf die Prozedur setzen. Weiß nicht mehr wie das geht. :mrgreen: Bzw. wo steht das im Handbuch / OH ?

[omata]

Moin,

was spricht gegen BeginUpdate und EndUpdate? (toller Einwand - danke)

Nun das Abhängen geht folgendermaßen:

Delphi-Quellcode:

StringGrid.OnDrawCell:=nil;
...
StringGrid.OnDrawCell:=StringGridDrawCell;

MfG
Thorsten

[Hansa]

Zitat:

Zitat von omata

was spricht gegen BeginUpdate und EndUpdate? (toller Einwand - danke)

Nichts, nur daß es nicht um Update usw. geht.

Hierdrum gehts :

Zitat:

Zitat von Hansa

Ich lasse Daten aus DB in einem Stringgrid anzeigen. Das geht auch, aber es dauert. Hierfür ist nicht die Datenbank vorantwortlich, sondern Delphi bzw. eher Windows. Das ganze liegt an der grafischen Darstellung. Setze ich visible des Stringgrids auf false und erst wenn die Daten da sind auf true, so geht es viel schneller.

[mschaefer]

N´abend Hansa,

denke ich ahne worum es geht. Eigentlich gehöre ich schon längst in die Schlafphase...
Also, das aktualisieren bei einem Datensatzwechsel dauert wohl zu lange. Hoffe ich liege da richtig.

Wenn das Dein Problem ist, dann lasse das StringGrid zunächst mit visible auf false.
Du nimmst einen Timer. Der Timer wird bei jedem OnChage-Ereignis der DataSource auf enablde
geschaltet und das StringGrid auf visible = false. Im Timerereignis schaltest Du den Timer
wieder auf Disabled und das StringGrid visible auf true.

Dadurch wird Dein StringGrid bei einem Onchage Ereignis nicht angezeigt, besser Deine Füllroutine noch nicht aufgerufen. Bei selektiertem Datensatz schlägt dann mit kleiner Verzögerung das Timerereignis
zu und führt nun Deine Füllroutine aus und setzt das Grid auf visible.

Gute Nacht // Martin

[Hansa]

Zitat:

Zitat von mschaefer

...denke ich ahne worum es geht. Eigentlich gehöre ich schon längst in die Schlafphase...
Also, das aktualisieren bei einem Datensatzwechsel dauert wohl zu lange. Hoffe ich liege da richtig.
...

Die Klarstellung steht 2? Beiträge oben drüber. :lol: Und ganz am Anfang steht auch noch was. Und mit dem Procedure auf nil setzen, da warte ich nur auf Infos. Bisher kommt eben nichts. :mrgreen:

[omata]

Moin Hansa,

habe dir doch ein Beispiel geliefert, da bist du leider nicht drauf eingegangen

schade

MfG
Thorsten

[mschaefer]

Moin, moin,

also Hansa Du bist auf dem Holzweg - Eiche :mrgreen:

Mit einfach mal was auf Nil setzten ist das nicht getan. Du kannst Dir ein Grid ableiten und das OnPaint Ereignis solange blockieren, wie der Update läuft. Also letzlich die Routine in einer If Abfrage solange nicht ausführen solange Dein Ipdate läuft und am Ende rufst Du Paint nochmal auf. Ohne Komponentenableitung geht es meines Wissens nach nicht den Flaschenhals Windows Bildakutalisierung zu umgehen.

Ansonsten höre auf dne Hai, den Sharky hat den anderen Flaschenhals, die fürchterlich langsamen Stringlisten ins Echolot genommen indem er Dir Begin- und Endupdate Routinen
zugeschwemmt hat.

Möge der Tag Kekse gute Laune und viele Lösungen bringen // Martin

[Sharky]

Zitat:

Zitat von Hansa

...Nichts, nur daß es nicht um Update usw. geht. ...

Das ist schon klar.
BeginUpdate macht aber nichts anderes als dafür zu sorgen das, in diesem Fall das SG, nicht neugezeichnet wird bis das EndUpdate aufgerufen wird. Genau dies ist nämlich das Nadelöhr beim Füllen von TStringListen, TListViews usw.

Aber Du kannst ja beide genannten Möglichkeiten kombinieren:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  myDrawCell : TDrawCellEvent;
begin
  myDrawCell := StringGrid1.OnDrawCell; // Event "merken"
  StringGrid1.OnDrawCell := nil; // Kein OnDrawCell
  SGBeginUpdate(StringGrid1);

  // Füllen des StringGrids mit Daten

  SGEndUpdate(StringGrid1);
  StringGrid1.OnDrawCell := myDrawCell; // gemerketes Event zuweisen
end;

[Hansa]

Kurze Zwischenfrage : setze ich OnDrawCell auf nil, so tut sich absolut nichts. Ich kann es genau so gut weglassen. :shock:

[Sharky]

Zitat:

Zitat von Hansa

Kurze Zwischenfrage : setze ich OnDrawCell auf nil, so tut sich absolut nichts. Ich kann es genau so gut weglassen. :shock:

Eigentlich auch richtig :oops:
Durch das BeginUpDate wird ja das neu zeichnen unterbunden. Darum sollte das OnDraw beim füllen eh nicht aufgerufen wird.

[Sharky]

Ich habe eben mal etwas gespielt: Ein StringGrid mit 5 Spalten und 10.000 Zeilen.
Ohne BeginUpdate / EndUpdate dauert das füllen jeder Zelle mit einem festen String ca. 140 ms. Mit BeginUpdate nur noch ca. 50ms.
Ob ich das OnDrawCell "deaktiviere" macht keinen Unterschied wenn BeginUpDate verwendet wird.