View Issue Details
ID | Project | Category | View Status | Date Submitted | Last Update |
---|---|---|---|---|---|
0022753 | Lazarus | LazReport | public | 2012-08-30 14:03 | 2012-09-22 19:19 |
Reporter | Christian | Assigned To | Jesus Reyes | ||
Priority | normal | Severity | major | Reproducibility | always |
Status | resolved | Resolution | fixed | ||
Product Version | 1.0.1 (SVN) | Product Build | |||
Target Version | 1.2.0 | Fixed in Version | 1.1 (SVN) | ||
Summary | 0022753: [Patch] fix Lazreport not selecting Fields from Datasets on Dialogs correctly | ||||
Description | at example when using the new Zeos or SQLDb connectors | ||||
Tags | No tags attached. | ||||
Fixed in Revision | 38797 | ||||
LazTarget | 1.2 | ||||
Widgetset | |||||
Attached Files |
|
2012-08-30 14:03
|
lrutils_fix.patch (1,415 bytes)
Index: components/lazreport/source/lr_utils.pas =================================================================== --- components/lazreport/source/lr_utils.pas (revision 38441) +++ components/lazreport/source/lr_utils.pas (working copy) @@ -357,11 +357,26 @@ S4:=Copy(S3, 1, n-1); Delete(S3, 1, n); Owner:=Owner.FindComponent(S2); - if Assigned(Owner)then - DataSet := TfrTDataSet(Owner.FindComponent(s4)); + Component := frFindComponent(Owner, s4); + if Assigned(Component) then + begin + if Component is TDataSet then + DataSet := TfrTDataSet(Component) + else if Component is TDataSource then + DataSet := TfrTDataSet(TDataSource(Component).DataSet); + end; end else - DataSet := TfrTDataSet(Owner.FindComponent(s2)); + begin + Component := frFindComponent(Owner, s2); + if Assigned(Component) then + begin + if Component is TDataSet then + DataSet := TfrTDataSet(Component) + else if Component is TDataSource then + DataSet := TfrTDataSet(TDataSource(Component).DataSet); + end; + end; RemoveQuotes(s3); if DataSet <> nil then Field := TfrTField(DataSet.FindField(s3)); |
|
Applied, thanks. |
Date Modified | Username | Field | Change |
---|---|---|---|
2012-08-30 14:03 | Christian | New Issue | |
2012-08-30 14:03 | Christian | File Added: lrutils_fix.patch | |
2012-09-06 07:13 | Jesus Reyes | Status | new => assigned |
2012-09-06 07:13 | Jesus Reyes | Assigned To | => Jesus Reyes |
2012-09-22 19:19 | Jesus Reyes | Fixed in Revision | => 38797 |
2012-09-22 19:19 | Jesus Reyes | LazTarget | => 1.2 |
2012-09-22 19:19 | Jesus Reyes | Status | assigned => resolved |
2012-09-22 19:19 | Jesus Reyes | Fixed in Version | => 1.1 (SVN) |
2012-09-22 19:19 | Jesus Reyes | Resolution | open => fixed |
2012-09-22 19:19 | Jesus Reyes | Note Added: 0062570 | |
2012-09-22 19:19 | Jesus Reyes | Target Version | => 1.2.0 |