Преглед изворни кода

* Fix from Christian Ulrich to improve import of frame width

git-svn-id: trunk@39203 -
michael пре 7 година
родитељ
комит
be53c3438e
1 измењених фајлова са 1 додато и 1 уклоњено
  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);
     aFrame.Color:= RGBToReportColor(Red(aColor),Green(aColor),Blue(aColor));
     end;
-  aFrame.Width := StrToIntDef(GetProperty(aDataNode,'FrameWidth'),0);
+  aFrame.Width := Round(StrToIntDef(GetProperty(aDataNode,'FrameWidth'),0)/2);
   aFrame.Lines:=[];
   tmp := GetProperty(aDataNode,'FrameBorders');
   if tmp = '' then