pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC: RxDBGrid export to pdf - clipping text

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5834 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2017-04-12 12:02:15 +00:00
parent f39df9a19f
commit 78dcdebd2a
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/rx/trunk/rxdb/rxdbgridexportpdf.pas
View File

@ -192,7 +192,8 @@ type
implementation implementation
{$IF (FPC_FULLVERSION >= 30101)} {$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 const
cInchToMM = 25.4; cInchToMM = 25.4;
@ -426,6 +427,12 @@ begin
begin begin
// Y1:=fY - FTH2; // Y1:=fY - FTH2;
X1:=fX + ConvetUnits(constCellPadding); 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; end;
taRightJustify: taRightJustify:
begin begin