DrawGrid füllen ohne OnDrawCell

[BeBored]

Hallo,

ich programmiere ja im Moment an einem Gleisplan und dafür nutze ich ein DrawGrid. Meine Daten dafür hole ich aus einer Datenbank (dank mkinzler) mit SQL:

SQL-Code:

SELECT x, y, Feldtext FROM "Gleisbild" WHERE Plan = 1 AND Art = 'Text'

In das Grid füge ich das ganze mit folgendem Code:

Delphi-Quellcode:

while not query.Eof do
  begin
    Gleis.Text(query.FieldByName('x').AsInteger, query.FieldByName('y').AsInteger, query.FieldByName('Feldtext').AsString);
    query.Next;
  end;

Gleis.Text sieht so aus:

Delphi-Quellcode:

procedure TZeichnen.Text(Spalte, Reihe: Integer; Text: string);
Var
  p: TRect;
begin
  SetBkMode(Can.Canvas.Handle, OPAQUE);
  Can.Canvas.Font.Color := clBlack;
  Can.Canvas.Font.Size := 7;
  Can.Canvas.Font.Name := 'Arial';
  p := Can.CellRect(Spalte, Reihe);
  Can.Canvas.TextOut(p.Left, p.Top, Text);
end;

Nur wenn ich auf dem DrawGrid zeichne ist z.B. alles beim verschieben weg. Aber im OnDrawCell wird ja die SQL Abfrage so schnell abgerufen das garnichts mehr geht. Wie gehe ich da am besten vor? :?:

[Der Jan]

Hallo,

was mir da spontan einfällt: Nimm ein String-Array und anstatt beim Auslesen des Query gleich zu zeichnen, speicherst du die Strings in diesem Array. Bei OnDrawCell liest du dann aus dem Array und mußtest die SQL-Abfrage nur einmal machen.

So ginge es, es sei denn, ich hab dein Konzept komplett missverstanden :)

[BeBored]

Zitat:

Zitat von Der Jan

Hallo,

was mir da spontan einfällt: Nimm ein String-Array und anstatt beim Auslesen des Query gleich zu zeichnen, speicherst du die Strings in diesem Array. Bei OnDrawCell liest du dann aus dem Array und mußtest die SQL-Abfrage nur einmal machen.

Gute Idee, ich müßte ein dynamisches Array nehmen, aber das ist ja kein Problem. :)

Danke Jan :cheers: