View Issue Details

IDProjectCategoryView StatusLast Update
0036531FPCfpReportpublic2020-01-08 20:44
ReporterPascal RiekenbergAssigned ToMichael Van Canneyt 
PrioritynormalSeverityminorReproducibilityalways
Status closedResolutionfixed 
Platformi386OSWindows 10 x64OS Version1903
Product Version3.3.1Product Build43849 
Target VersionFixed in Version3.3.1 
Summary0036531: ReAssignParentFont when adding element to band using owner
DescriptionReportdesign in source:
- create report
- create a page
- set Fontname
- add band using create(page)
- add element using create(band)
element uses default font and not the one set in the page

Attached patch fixes this.
TagsNo tags attached.
Fixed in Revision43889
FPCOldBugId
FPCTarget3.2.0
Attached Files
  • fpreport.pp.08.01.20.patch (602 bytes)
    Index: packages/fcl-report/src/fpreport.pp
    ===================================================================
    --- packages/fcl-report/src/fpreport.pp	(revision 43849)
    +++ packages/fcl-report/src/fpreport.pp	(working copy)
    @@ -5137,6 +5137,7 @@
       FUseParentFont := True;
       FFont := TFPReportFont.Create;
       FFont.OnChanged:=@HandleFontChange;
    +  ReassignParentFont;
       FCullThreshold := 75;
     end;
     
    @@ -9439,6 +9440,7 @@
       FBandPosition := bpNormal;
       FFont:=TFPReportFont.Create;
       FFont.OnChanged:=@HandleFontChange;
    +  ReassignParentFont;
     end;
     
     destructor TFPReportCustomBand.Destroy;
    

Activities

Pascal Riekenberg

2020-01-08 14:33

reporter  

fpreport.pp.08.01.20.patch (602 bytes)
Index: packages/fcl-report/src/fpreport.pp
===================================================================
--- packages/fcl-report/src/fpreport.pp	(revision 43849)
+++ packages/fcl-report/src/fpreport.pp	(working copy)
@@ -5137,6 +5137,7 @@
   FUseParentFont := True;
   FFont := TFPReportFont.Create;
   FFont.OnChanged:=@HandleFontChange;
+  ReassignParentFont;
   FCullThreshold := 75;
 end;
 
@@ -9439,6 +9440,7 @@
   FBandPosition := bpNormal;
   FFont:=TFPReportFont.Create;
   FFont.OnChanged:=@HandleFontChange;
+  ReassignParentFont;
 end;
 
 destructor TFPReportCustomBand.Destroy;

Michael Van Canneyt

2020-01-08 15:17

administrator   ~0120266

Checked & applied, thank you very much !

Pascal Riekenberg

2020-01-08 20:44

reporter   ~0120275

Yw

Issue History

Date Modified Username Field Change
2020-01-08 14:33 Pascal Riekenberg New Issue
2020-01-08 14:33 Pascal Riekenberg Status new => assigned
2020-01-08 14:33 Pascal Riekenberg Assigned To => Michael Van Canneyt
2020-01-08 14:33 Pascal Riekenberg File Added: fpreport.pp.08.01.20.patch
2020-01-08 15:15 Michael Van Canneyt Assigned To Michael Van Canneyt =>
2020-01-08 15:15 Michael Van Canneyt Assigned To => Michael Van Canneyt
2020-01-08 15:17 Michael Van Canneyt Status assigned => resolved
2020-01-08 15:17 Michael Van Canneyt Resolution open => fixed
2020-01-08 15:17 Michael Van Canneyt Fixed in Version => 3.3.1
2020-01-08 15:17 Michael Van Canneyt Fixed in Revision => 43889
2020-01-08 15:17 Michael Van Canneyt FPCTarget => 3.2.0
2020-01-08 15:17 Michael Van Canneyt Note Added: 0120266
2020-01-08 20:44 Pascal Riekenberg Status resolved => closed
2020-01-08 20:44 Pascal Riekenberg Note Added: 0120275