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

LazReport: Find dataset when TFrReport has no owner.

Browse Source 
git-svn-id: trunk@63869 -
This commit is contained in:
jesus 2020-09-06 05:28:18 +00:00
parent 796f05d611
commit a1dc800a66
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -83,7 +83,7 @@ function UTF8CountWords(const str:string; out WordCount,SpcCount,SpcSize:Integer
implementation
uses LR_Class, LR_Const, LR_Pars, LazUtilsStrConsts, LR_DSet, LR_DBComponent;
uses LR_Class, LR_Const, LR_Pars, LazUtilsStrConsts, LR_DSet, LR_DBSet, LR_DBComponent;
var
PreviousFormatSettings: TFormatSettings;
@ -346,6 +346,7 @@ var
Component: TComponent;
F:TfrObject;
S1, S2:string;
DSet: TDataSet;
begin
Result := nil;
if ComplexName = '' then exit;
@ -368,6 +369,15 @@ begin
else
begin
F:=CurReport.FindObject(ComplexName);
if (F=nil) and (CurReport.Dataset is TfrDBDataSet) then
begin
DSet := TfrDBDataSet(CurReport.Dataset).DataSet;
if (DSet=nil) and (TfrDBDataSet(CurReport.Dataset).DataSource<>nil) then
DSet := TfrDBDataSet(CurReport.Dataset).DataSource.DataSet;
if (DSet<>nil) and SameText(ComplexName, DSet.Name) then
Component := DSet;
end
else
if F is TLRDataSetControl then
Component:=TLRDataSetControl(F).DataSet;
end;