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

LazReport, fix invalid typecast on using subreport and pen object, issue #26504

Browse Source 
git-svn-id: trunk@46138 -
This commit is contained in:
jesus 2014-09-06 06:06:40 +00:00
parent 8a7aef4759
commit a85a527721
1 changed files with 26 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6152,6 +6152,8 @@ begin
for i := SubIndex to Objects.Count - 1 do
begin
t :=TfrView(Objects[i]);
if t is TfrSubReportView then
begin
Page := CurReport.Pages[(t as TfrSubReportView).SubPage];
Page.Mode := pmBuildList;
Page.FormPage;
@ -6162,6 +6164,7 @@ begin
Page.PlayFrom := 0;
EOFArr[i - SubIndex] := False;
end;
end;
Parent.LastBand := nil;
end;
@ -6176,17 +6179,20 @@ begin
for i := SubIndex to Objects.Count - 1 do
begin
t :=TfrView(Objects[i]);
if t is TfrSubReportView then
begin
Page := CurReport.Pages[(t as TfrSubReportView).SubPage];
Page.CurY := Parent.CurY;
Page.CurBottomY := Parent.CurBottomY;
end;
end;
EOFReached := True;
MaxY := Parent.CurY;
for i := SubIndex to Objects.Count - 1 do
begin
if not EOFArr[i - SubIndex] then
begin
t :=TfrView(Objects[i]);
if (t is TfrSubReportView) and (not EOFArr[i - SubIndex]) then
begin
Page := CurReport.Pages[(t as TfrSubReportView).SubPage];
if Page.PlayRecList then
EOFReached := False
@ -6214,9 +6220,13 @@ begin
for i := SubIndex to Objects.Count - 1 do
begin
t :=TfrView(Objects[i]);
if t is TfrSubReportView then
begin
Page := CurReport.Pages[(t as TfrSubReportView).SubPage];
Page.ClearRecList;
end;
end;
Parent.CurY := MaxY;
Parent.LastBand := nil;
end;