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

fcl-report: Fix AV for rendering TFPReportGroupHeaderBand and use LiberationSans font as default for Windows

Browse Source 
git-svn-id: trunk@38631 -
This commit is contained in:
maciej-izak 2018-03-27 11:28:32 +00:00
parent 436cd9efb3
commit c392e3804e
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2238,7 +2238,7 @@ Function ReportExportManager : TFPReportExportManager;
{ this should probably be more configurable or flexible per platform }
Const
{$IFDEF UNIX}
{$IF Defined(UNIX) or Defined(WINDOWS)}
cDefaultFont = 'LiberationSans';
{$ELSE}
cDefaultFont = 'Helvetica';
@ -11613,6 +11613,9 @@ begin
// write(': ',TFPReportCustomGroupFooterBand(aBand).GroupHeader.GroupCondition);
//writeln(': Space = ', FormatFloat('#,##0.0', FSpaceLeft));
Result := False;
if not Assigned(aBand) then
Exit;
lHandledBands := TBandList.Create;
try
lBand := aBand;