TAChart: Set Canvas.Textstyle.Workbreak to false to avoid linebreaks in printer output under Linux

git-svn-id: trunk@53648 -
This commit is contained in:
wp 2016-12-11 23:00:22 +00:00
parent 6301a4882b
commit b2773252b0

View File

@ -457,6 +457,7 @@ procedure TCanvasDrawer.SimpleTextOut(AX, AY: Integer; const AText: String);
begin
ts := ACanvas.TextStyle;
ts.RightToLeft := FRightToLeft;
ts.WordBreak := false; // added to disable erroneous workbreaks in Linux printing
ts.Clipping := false;
r := Bounds(x, y, 1, 1);
ACanvas.TextRect(r, x, y, txt, ts);