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 |
