mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-10 23:28:41 +02:00
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:
parent
6301a4882b
commit
b2773252b0
@ -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);
|
||||
|
Loading…
Reference in New Issue
Block a user