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

* Fix bug #33378, use default font for band headers

Browse Source 
git-svn-id: trunk@57485 -
This commit is contained in:
michael 2018-03-09 09:41:17 +00:00
parent 61866502c3
commit d4f0abbb32
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpreport/fpreportlclexport.pas
View File

@ -976,6 +976,10 @@ begin
N:='Unnamed '+DefaultBandNames[ABand.ReportBandType]+' band' N:='Unnamed '+DefaultBandNames[ABand.ReportBandType]+' band'
else if ShowBandTypeNames then else if ShowBandTypeNames then
N:=N+' ('+DefaultBandNames[ABand.ReportBandType]+')'; N:=N+' ('+DefaultBandNames[ABand.ReportBandType]+')';
Canvas.Font.Name:='default';
Canvas.Font.Size:=10;
Canvas.Font.Style:=[];
Canvas.Font.Color:=clBlack;
TH:=GetBandHandleHeight; TH:=GetBandHandleHeight;
X:=FHorzOffset+HmmToPixels(TopLeft.Left); X:=FHorzOffset+HmmToPixels(TopLeft.Left);
Y:=FVertOffset+VmmToPixels(TopLeft.Top)-TH-2*BandTitleMargin; Y:=FVertOffset+VmmToPixels(TopLeft.Top)-TH-2*BandTitleMargin;