paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 08:29:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport: Fix column width calc, fix issue #30367

Browse Source 
git-svn-id: trunk@52677 -
This commit is contained in:
jesus 2016-07-12 22:58:15 +00:00
parent 156ab97c17
commit cf63e5c007
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazreport/source/lr_class.pas
View File

@ -7876,7 +7876,7 @@ begin
end;
if ColCount = 0 then ColCount := 1;
ColWidth := (RightMargin - LeftMargin) div ColCount;
ColWidth := (RightMargin - LeftMargin - (ColCount-1)*ColGap) div ColCount;
end;
procedure TfrPage.PrepareObjects;

2
components/lazreport/source/lr_desgn.pas
View File

@ -1339,7 +1339,7 @@ var
Rectangle(LeftMargin, TopMargin, RightMargin, BottomMargin);
if ColCount > 1 then
begin
ColWidth := (RightMargin - LeftMargin) div ColCount;
ColWidth := (RightMargin - LeftMargin - (ColCount-1)*ColGap) div ColCount;
Pen.Style := psDot;
j := LeftMargin;
for i := 1 to ColCount do