paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-31 12:01:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@53648 -
This commit is contained in:
wp 2016-12-11 23:00:22 +00:00
parent 6301a4882b
commit b2773252b0
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/tachart/tadrawercanvas.pas
View File

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