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

LazReport, make sure dataset is valid before calling Enable/DisableControls

Browse Source 
git-svn-id: trunk@45369 -
This commit is contained in:
jesus 2014-06-06 05:57:07 +00:00
parent 1f8d8cd61e
commit a13f3e80da
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7364,24 +7364,28 @@ var
procedure DisableControls;
var
i: Integer;
b: TfrBand;
begin
if DetailCount=0 then
for i := 1 to MAXBNDS do
begin
if BandExists(Bands[Bnds[i, bpData]]) then
Bands[Bnds[i, bpData]].DataSet.DisableControls;
b := Bands[Bnds[i, bpData]];
if BandExists(b) and (b.DataSet<>nil) then
b.DataSet.DisableControls;
end;
end;
procedure EnableControls;
var
i: Integer;
b: TfrBand;
begin
if DetailCount=0 then
for i := 1 to MAXBNDS do
begin
if BandExists(Bands[Bnds[i, bpData]]) then
Bands[Bnds[i, bpData]].DataSet.EnableControls;
b := Bands[Bnds[i, bpData]];
if BandExists(b) and (b.Dataset<>nil) then
b.DataSet.EnableControls;
end;
end;