File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -113,16 +113,14 @@ you can display the [Report Designer][dx-report-designer] and [Report Viewer][dx
113113``` pas
114114procedure TMainForm.btnDesignClick(Sender: TObject);
115115begin
116- LoadReportFromLayout;
117- // Display the Report Designer
118- dxReport1.ShowDesigner;
116+ LoadReportFromLayout; // Loads a report layout definition from the database
117+ dxReport1.ShowDesigner; // Displays the Report Designer
119118end;
120119
121120procedure TMainForm.btnPreviewClick(Sender: TObject);
122121begin
123- LoadReportFromLayout;
124- // Display the Report Viewer
125- dxReport1.ShowViewer;
122+ LoadReportFromLayout; // Loads a report layout definition from the database
123+ dxReport1.ShowViewer; // Displays the Report Viewer
126124end;
127125```
128126
@@ -137,9 +135,11 @@ procedure TMainForm.dxReport1LayoutChanged(ASender: TdxReport);
137135begin
138136 // Start editing the active dataset record
139137 DataModule1.mdLayouts.Edit;
138+
140139 // Save the report name and layout to the database
141140 DataModule1.mdLayoutsName.AsString := dxReport1.ReportName;
142141 DataModule1.mdLayoutsLayout.Assign(dxReport1.Layout);
142+
143143 // Finish editing and post the modified record to the database
144144 DataModule1.mdLayouts.Post;
145145end;
You can’t perform that action at this time.
0 commit comments