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.