paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-27 16:49:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

Lazreport, Patch form Aleksey Lagunov:

Browse Source 
1. Fix AV in BeforePrintScript
 2. Fix set Visible:=false in BeforePrintScript for LazReport Dialog forms.

git-svn-id: trunk@40833 -
This commit is contained in:
jesus 2013-04-18 03:34:31 +00:00
parent 88212d1ab2
commit 3105302469
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -11348,7 +11348,8 @@ begin
{$IFDEF DebugLR} {$IFDEF DebugLR}
DebugLn('Trying to find RT Object "',St,'"'); DebugLn('Trying to find RT Object "',St,'"');
{$ENDIF} {$ENDIF}
t := CurPage.FindRTObject(St); if Assigned(CurPage) then
t := CurPage.FindRTObject(St);
if not Assigned(t) then if not Assigned(t) then
t:=CurReport.FindObject(Copy(Name, 1, Pos('.', Name) - 1)); t:=CurReport.FindObject(Copy(Name, 1, Pos('.', Name) - 1));
Prop := Copy(Name, Pos('.', Name) + 1, 255); Prop := Copy(Name, Pos('.', Name) + 1, 255);
@ -11853,6 +11854,8 @@ var
i:integer; i:integer;
P:TfrControl; P:TfrControl;
begin begin
if not fVisible then
exit;
fHasVisibleControls:=False; fHasVisibleControls:=False;
for i:=0 to Objects.Count - 1 do for i:=0 to Objects.Count - 1 do
begin begin