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

LazReport, fix lr_dialogdesign compiling

Browse Source 
git-svn-id: trunk@46493 -
This commit is contained in:
jesus 2014-10-09 14:22:57 +00:00
parent 8d6d12cfde
commit 7dc88a142f
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazreport/source/addons/DialogControls/lrformstorage.pas
View File

@ -117,8 +117,9 @@ var
PropInfo:PPropInfo; PropInfo:PPropInfo;
frObj:TfrObject; frObj:TfrObject;
FPropName, St:string; FPropName, St:string;
i: Integer;
begin begin
PropInfo:=FindObjectProps(PropLine, frObj, FPropName); PropInfo:=FindObjectProps(PropLine, frObj, FPropName, i);
if Assigned(frObj) and Assigned(PropInfo) then if Assigned(frObj) and Assigned(PropInfo) then
begin begin
@ -157,10 +158,11 @@ var
PropInfo:PPropInfo; PropInfo:PPropInfo;
frObj:TfrObject; frObj:TfrObject;
FPropName, St:string; FPropName, St:string;
i: Integer;
begin begin
if PL.Values[PropLine]<>'' then if PL.Values[PropLine]<>'' then
begin begin
PropInfo:=FindObjectProps(PropLine, frObj, FPropName); PropInfo:=FindObjectProps(PropLine, frObj, FPropName, i);
if Assigned(PropInfo) then if Assigned(PropInfo) then
begin begin