From 78dcdebd2ab2f9880e106f1837bea0b2bef8d665 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 12 Apr 2017 12:02:15 +0000
Subject: [PATCH] RxFPC: RxDBGrid export to pdf - clipping text

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5834 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/trunk/rxdb/rxdbgridexportpdf.pas | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/components/rx/trunk/rxdb/rxdbgridexportpdf.pas b/components/rx/trunk/rxdb/rxdbgridexportpdf.pas
index 9505d9c7d..e39a7cb79 100644
--- a/components/rx/trunk/rxdb/rxdbgridexportpdf.pas
+++ b/components/rx/trunk/rxdb/rxdbgridexportpdf.pas
@@ -192,7 +192,8 @@ type
 implementation
 
 {$IF (FPC_FULLVERSION >= 30101)}
-uses Grids, rxdconst, FileUtil, Forms, Controls, LCLIntf, LazFileUtils, FPReadBMP, RxDBGridExportPdfSetupUnit;
+uses Grids, rxdconst, FileUtil, Forms, Controls, LCLIntf, LazFileUtils, FPReadBMP,
+  RxDBGridExportPdfSetupUnit, LazUTF8;
 
 const
   cInchToMM = 25.4;
@@ -426,6 +427,12 @@ begin
       begin
 //        Y1:=fY - FTH2;
         X1:=fX + ConvetUnits(constCellPadding);
+
+        while (FTW > fW) and (UTF8Length(AText) > 0) do
+        begin
+          AText:=UTF8Copy(AText, 1, UTF8Length(AText)-1);
+          FTW:=ConvetUnits(AExportFont.FTTFFontInfo.TextWidth(AText, AExportFont.FontSize));
+        end
       end;
     taRightJustify:
       begin