StringGrid Drucken erweiterung

[BadenPower]

Zitat:

Zitat von himitsu (Beitrag 1298473)

Zitat:

Zitat von BadenPower (Beitrag 1298471)

obwohl XPos nicht geändert wurde.

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

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:

Zitat von himitsu (Beitrag 1298473)

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;