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

lazreport: fix compilation with fpc 2.6.4

Browse Source 
git-svn-id: trunk@52652 -
This commit is contained in:
blikblum 2016-07-10 12:10:18 +00:00
parent 4d405f5f01
commit 6e1055dabd
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_crossarray.pas
View File

@ -240,7 +240,7 @@ end;
procedure TExItem.GotoBookmark;
begin
FDataset.Bookmark := FBookmark;
FDataset.GotoBookmark(FBookmark);
end;
function TExItem.IsBookmarkValid: boolean;

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

@ -310,7 +310,7 @@ begin
frInterpretator.PrepareScript(M2.Lines, sl1, sl2);
if sl2.Count > 0 then
begin
ErrorPosition(Copy(sl2.Text, Length(sErrLine)+1));
ErrorPosition(Copy(sl2.Text, Length(sErrLine)+1, Length(sl2.Text)));
ShowMessage(sl2.Text);
Result:=false;
end;