StringGrid Drucken erweiterung

[himitsu]

Zitat von BadenPower:

obwohl XPos nicht geändert wurde.

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

Delphi-Quellcode:

procedure TCanvas.TextOut(X, Y: Integer; const Text: String);
begin
  Changing;
  RequiredState([csHandleValid, csFontValid, csBrushValid]);
  if CanvasOrientation = coRightToLeft then Inc(X, TextWidth(Text) + 1);
  Windows.ExtTextOut(FHandle, X, Y, FTextFlags, nil, Text,
   Length(Text), nil);
  MoveTo(X + TextWidth(Text), Y);
  Changed;
end;

TCanvas.TextOut

Zitat:

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