* Set designer flag, change ChildBand property type to CustomChildBand

git-svn-id: trunk@38372 -

packages/fcl-report/src/fpreportdb.pp

@@ -22,6 +22,9 @@ uses
   Classes, SysUtils, fpreport, db;
 
 Type
+
+  { TFPReportDatasetData }
+
   TFPReportDatasetData = class(TFPReportData)
   private
     FDataSet: TDataSet;
@@ -35,6 +38,8 @@ Type
     function  DoEOF: boolean; override;
   Public
     property  DataFields;
+    Procedure StartDesigning; override;
+    Procedure EndDesigning; override;
   published
     property  DataSet: TDataSet read FDataSet write FDataSet;
   end;
@@ -182,5 +187,21 @@ begin
   Result := FDataSet.EOF;
 end;
 
+procedure TFPReportDatasetData.StartDesigning;
+begin
+  Inherited;
+  if Assigned(DataSet) then
+    // Dirty hack!!
+    TFPReportDatasetData(Dataset).SetDesigning(True,True);
+end;
+
+procedure TFPReportDatasetData.EndDesigning;
+begin
+  if Assigned(DataSet) then
+    // Dirty hack!!
+    TFPReportDatasetData(Dataset).SetDesigning(False,True);
+  Inherited;
+end;
+
 end.