Stinggrid mit Grid.OnDrawCell ausgeben Problem mit drucken

[Osse]

Hallo,

hab ein Programm geschrieben, mit dem ich Daten mitschneiden und darstellen kann.
Diese kommen sehr schnell und werden übersichtlich in einem Stringgrid dargestellt.

Um sie möglichst Schnell auszugeben und nicht immer das ganze Grid neu zu schreiben benutze ich die ausgabe mit OnDrawCell. Mein Problem ist nun, dass ich diese Daten auch drucken möchte.

Hab mir einsehr schönes Tutorial
Stringgrid Tutorial zum Stringgrid drucken durchgelesen und den Code ausprobiert. Er hat mir auch schön mein Grid gedruckt, doch leider fehlen meine Werte darin, sprich ich hab mir ein leeres grid ausgedruckt zum Werte selber eintragen.
Dat is ja nicht so fein :wall: .

Also :gruebel: :gruebel:


Problem : Der Code greift auf die einzelnen Zellen zu, in dennen aber keine Werte stehen, da die werte folgendermassen geschrieben werden :

Delphi-Quellcode:

Grid.Canvas.TextRect(arect, arect.left, arect.top, Ausgabewert) ;

Ich mach also nur ne grafische Ausgabe und schreibe keine Werte rein.

Kann ich irgendwie die Daten aus dem Grid lesen und Drucken, ohne meine Eingabe zu ändern???

Danke für eure Hilfe!!!

[BrunoT]

Hi,

warum über TextOut? ist

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
Var
i,j:integer;
begin
for i:=0 To StringGrid1.ColCount-1 do
for j:=0 to StringGrid1.RowCount-1 do
  StringGrid1.Cells[i,j]:='Hallo DuDa';
end;

dir zu langsam?

Wo merkst du dir die Werte? Die mit Textout ausgegebenen Werte sind jetzt nur noch Bildpunkte.

mfg

BrunoT