StringGrid Drucken erweiterung

[BadenPower]

Zitat von himitsu:

Zitat von BadenPower:

obwohl XPos nicht geändert wurde.

Wer behauptet denn, daß Textout nicht den Cursor verschiebt?

Ich auf jeden Fall nicht.

Ich schrieb, dass XPos nicht geändert wird, und dies ist nicht die Position des Zeichenstiftes, sondern nur eine Variable.

Zitat von himitsu:

TCanvas.TextOut

Zitat:

After a call to TextOut, the PenPos property indicates the point at the top right of the text on the canvas.

Genau das habe ich auch noch geschrieben.

[Blup]

Zusammengefasst ist die einfachste Lösung, die Reihenfolge des Codes umzustellen.
Damit wird die durch "MoveTo" gesetzte Cursorposition nicht durch das folgende "TextOut" verändert.

Delphi-Quellcode:

Printer.Canvas.TextOut(XPos, -YPos,  Grid.Cells[j, i + (Seite - 1) * Zeilen - 1]);

if EigeneDruckerEinstellungen.rgLinien.ItemIndex = 0 then
begin
  Printer.Canvas.MoveTo(XPos, -YPos);
end;
XPos := XPos + Grid.ColWidths[j] * 3;
if EigeneDruckerEinstellungen.rgLinien.ItemIndex = 0 then
begin
  Printer.Canvas.LineTo(XPos, -YPos);
end;