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

LazReport, fix exception catched when debugging program that reads LayoutOrder property on older reports

Browse Source 
git-svn-id: trunk@16476 -
This commit is contained in:
jesus 2008-09-07 23:25:23 +00:00
parent d8ca4194ff
commit cf010d10c6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9613,13 +9613,13 @@ begin
rc.Right := XML.GetValue(Path+'Margins/Right/Value', 0); // TODO chk
rc.Bottom := XML.GetValue(Path+'Margins/Bottom/Value', 0); // TODO chk
Margins.AsRect := rc;
RestoreProperty('Orientation',XML.GetValue(Path+'Orientation/Value',''));
RestoreProperty('Orientation',XML.GetValue(Path+'Orientation/Value','poPortrait'));
UseMargins := XML.GetValue(Path+'UseMargins/Value', True); // TODO chk
PrintToPrevPage := XML.GetValue(Path+'PrintToPrevPage/Value', True); // TODO chk
ColCount := XML.GetValue(Path+'ColCount/Value', 1); // TODO chk
ColGap := XML.GetValue(Path+'ColGap/Value', 0);
RestoreProperty('LayoutOrder',XML.GetValue(Path+'LayoutOrder/Value',''));
RestoreProperty('LayoutOrder',XML.GetValue(Path+'LayoutOrder/Value','loColumns'));
ChangePaper(pgSize, Width, Height, Orientation);
end;