paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:09:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Merging revisions r43491 from trunk:

Browse Source 
------------------------------------------------------------------------
    r43491 | michael | 2019-11-16 13:59:25 +0100 (Sat, 16 Nov 2019) | 1 line
    
    * Implement option to replace too-long words with asterisks (bug ID 33639)
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@43721 -
This commit is contained in:
michael 2019-12-23 13:24:40 +00:00
parent 61ff151b2e
commit dbb053a67e
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/fcl-report/src/fpreport.pp
View File

@ -143,7 +143,11 @@ type
moResetAggregateOnColumn
);
TFPReportMemoOptions = set of TFPReportMemoOption;
TFPReportWordOverflow = (woTruncate,woOverflow,woSplit);
TFPReportWordOverflow = (woTruncate, // truncate the word
woOverflow, // Allow to overflow
woSplit, // Split word at max char count that fits length.
woAsterisk // Replace word with * chars.
);
TFPReportSections = set of rsPage..rsColumn;
@ -3984,6 +3988,12 @@ begin
m:=Length(S); // Discard the remainder of the word.
woSplit:
m:=Length(S3); // S3 was the longest possible part of the word. Split after
woAsterisk:
begin
w:= lFC.TextWidth('*', Font.Size);
S2:=StringOfChar('*',round(MaxW / w));
m:=Length(S); // Discard the remainder of the word.
end;
end;
end;
FTextLines.Add(s2);