Browse Source

* Fix from Christian Ulrich to improve import of frame width

git-svn-id: trunk@39203 -
michael 7 years ago
parent
commit
be53c3438e
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/fcl-report/src/fplazreport.pp

+ 1 - 1
packages/fcl-report/src/fplazreport.pp

@@ -638,7 +638,7 @@ begin
     aColor := StrToIntDef(GetProperty(aDataNode,'FrameColor'),0);
     aColor := StrToIntDef(GetProperty(aDataNode,'FrameColor'),0);
     aFrame.Color:= RGBToReportColor(Red(aColor),Green(aColor),Blue(aColor));
     aFrame.Color:= RGBToReportColor(Red(aColor),Green(aColor),Blue(aColor));
     end;
     end;
-  aFrame.Width := StrToIntDef(GetProperty(aDataNode,'FrameWidth'),0);
+  aFrame.Width := Round(StrToIntDef(GetProperty(aDataNode,'FrameWidth'),0)/2);
   aFrame.Lines:=[];
   aFrame.Lines:=[];
   tmp := GetProperty(aDataNode,'FrameBorders');
   tmp := GetProperty(aDataNode,'FrameBorders');
   if tmp = '' then
   if tmp = '' then