cpp-builder: Update and clarify the example

- Use correct terms: import (open) a report layout, save a report layout.
- Title the file open dialog 'Import Report Layout'.
- Title the file save dialog 'Save Report Layout'.
- Assign proper name, icon, and title to the application.
- Display the currently opened report in the application title.
- Extract a method to load a report and update the application caption.
- Before saving a report, pass the name to the file save dialog.
- Clarify error messages in message boxes.
- Fix the SQLite connection string: correct path to nwind.db.

Co-authored-by: Ilia Nenashev <ilia.nenashev@devexpress.com>

Author: NickVolynkin

CPB/ReportTemplate.cbproj CPB/ReportStoreToFile.cbprojCPB/ReportTemplate.cbproj renamed to CPB/ReportStoreToFile.cbproj

@@ -3,15 +3,15 @@
 #include <vcl.h>
 #pragma hdrstop
 #include <tchar.h>
-//---------------------------------------------------------------------------
-USEFORM("uMainForm.cpp", MainForm);
+#include "uMainForm.h"
 //---------------------------------------------------------------------------
 int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
 {
 	try
 	{
 		Application->Initialize();
 		Application->MainFormOnTaskBar = true;
+		Application->Title = "DevExpress Example";
 		Application->CreateForm(__classid(TMainForm), &MainForm);
 		Application->Run();
 	}

CPB/ReportTemplate.cpp CPB/ReportStoreToFile.cppCPB/ReportTemplate.cpp renamed to CPB/ReportStoreToFile.cpp

@@ -1,4 +1,4 @@
-//---------------------------------------------------------------------------
+//---------------------------------------------------------------------------
 
 #include <vcl.h>
 #pragma hdrstop
@@ -49,44 +49,70 @@
 
 #pragma resource "*.dfm"
 TMainForm *MainForm;
-//---------------------------------------------------------------------------
+
+const String BASE_CAPTION = "DevExpress Example — ";
+
 __fastcall TMainForm::TMainForm(TComponent* Owner)
 	: TForm(Owner)
 {
+}
 
+void __fastcall TMainForm::ImportReport(const String &FileName)
+{
+    if (FileExists(FileName))
+    {
+		// Load a report layout from a file
+        dxReport1->Layout->LoadFromFile(FileName);
+        // Assign the loaded file's name as an internal report name
+        dxReport1->ReportName = ChangeFileExt(ExtractFileName(FileName), "");
+        // Update the form caption based on the report name
+        Caption = BASE_CAPTION + dxReport1->ReportName;
+    }
+    else
+    {
+        ShowMessage("The specified file could not be found: " + FileName);
+    }
+}
+
+void __fastcall TMainForm::FormCreate(TObject *Sender)
+{
+    // Assumes that the compiled executable is located in ./Delphi/Win*/[Debug|Release]/
+    const String AFileName = "..\\..\\..\\Table Report.repx";
+    ImportReport(AFileName);
 }
-//---------------------------------------------------------------------
 
 void __fastcall TMainForm::btnNewClick(TObject *Sender)
 {
-    Caption = "";
+    Caption = BASE_CAPTION + "New Report Layout";
     dxReport1->ReportName = "";
     dxReport1->ShowDesigner();
 }
 
-void __fastcall TMainForm::btnOpenClick(TObject *Sender)
+void __fastcall TMainForm::btnImportClick(TObject *Sender)
 {
     if (dxOpenFileDialog->Execute())
     {
-        Caption = ChangeFileExt(ExtractFileName(dxOpenFileDialog->FileName), "");
-        dxReport1->ReportName = Caption;
-        dxReport1->Layout->LoadFromFile(dxOpenFileDialog->FileName);
+        ImportReport(dxOpenFileDialog->FileName);
     }
 }
 
-void __fastcall TMainForm::btnSaveClick(TObject *Sender)
+void __fastcall TMainForm::btnSaveToFileClick(TObject *Sender)
 {
-    if (dxReport1->ReportName == "")
+    if (dxReport1->ReportName.IsEmpty())
     {
-        ShowMessage("Report is not specified");
+        ShowMessage("No report is currently open. Please import or create a new report before exporting.");
         return;
     }
-
+    // Suggest a file name based on the report name
+    dxSaveFileDialog->FileName = dxReport1->ReportName;
     if (dxSaveFileDialog->Execute())
-    {
+    {   
+        // Update the report name based on the selected file name
         dxReport1->ReportName = ChangeFileExt(ExtractFileName(dxSaveFileDialog->FileName), "");
-        Caption = dxReport1->ReportName;
-		dxReport1->Layout->SaveToFile(dxSaveFileDialog->FileName);
+        // Save the report layout to a file
+        dxReport1->Layout->SaveToFile(dxSaveFileDialog->FileName);
+        // Update the form caption based on the report name
+        Caption = BASE_CAPTION + dxReport1->ReportName;
     }
 }
 
@@ -95,35 +121,17 @@ void __fastcall TMainForm::btnDesignClick(TObject *Sender)
 	dxReport1->ShowDesigner();
 }
 
-//---------------------------------------------------------------------------
-
 void __fastcall TMainForm::btnPreviewClick(TObject *Sender)
 {
     if (dxReport1->ReportName == "")
-	{
-		ShowMessage("Report is not specified");
-		return;
-	}
-	dxReport1->ShowViewer();
+    {
+        ShowMessage("No report is currently loaded. Please load or create a report before previewing.");
+        return;
+    }
+    dxReport1->ShowViewer();
 }
 void __fastcall TMainForm::dxReport1LayoutChanged(TdxReport *ASender)
 {
-	Caption = dxReport1->ReportName;
-}
-
-//---------------------------------------------------------------------------
-
-void __fastcall TMainForm::FormCreate(TObject *Sender)
-{
-    const String AFileName = "..\\..\\..\\TableReport.repx";
-    if (FileExists(AFileName))
-    {
-        dxReport1->ReportName = "TableReport";
-        dxReport1->Layout->LoadFromFile(AFileName);
-	}
+    Caption = BASE_CAPTION + dxReport1->ReportName;
 }
-//---------------------------------------------------------------------------
-
-
-//---------------------------------------------------------------------------
 

CPB/ReportTemplate.dxSettings.cpp CPB/ReportStoreToFile.dxSettings.cppCPB/ReportTemplate.dxSettings.cpp renamed to CPB/ReportStoreToFile.dxSettings.cpp

@@ -1,10 +1,11 @@
 object MainForm: TMainForm
   Left = 0
   Top = 0
+  Width = 577
+  Height = 312
+  AutoScroll = True
   AutoSize = True
   Caption = 'MainForm'
-  ClientHeight = 297
-  ClientWidth = 465
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -16,61 +17,60 @@ object MainForm: TMainForm
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 465
-    Height = 297
+    Width = 561
+    Height = 273
     TabOrder = 0
     AutoSize = True
-    object btnOpen: TcxButton
-      Left = 12
-      Top = 44
+    CustomizeFormTabbedView = True
+    object btnImport: TcxButton
+      Left = 26
+      Top = 83
       Width = 145
       Height = 25
-      Caption = 'Open Report'
-      SpeedButtonOptions.CanBeFocused = False
+      Caption = 'Import from File'
       TabOrder = 1
-      OnClick = btnOpenClick
+      OnClick = btnImportClick
     end
     object btnPreview: TcxButton
-      Left = 164
-      Top = 75
+      Left = 206
+      Top = 82
       Width = 193
       Height = 25
-      Caption = 'Preview Report'
+      Caption = 'Open Viewer'
       TabOrder = 4
       OnClick = btnPreviewClick
     end
     object btnNew: TcxButton
-      Left = 12
-      Top = 12
+      Left = 26
+      Top = 51
       Width = 145
       Height = 25
-      Caption = 'New Report'
+      Caption = 'Create New'
       TabOrder = 0
       OnClick = btnNewClick
     end
-    object btnSave: TcxButton
-      Left = 164
-      Top = 12
-      Width = 193
+    object btnSaveToFile: TcxButton
+      Left = 26
+      Top = 115
+      Width = 145
       Height = 25
-      Caption = 'Save Report'
+      Caption = 'Save to File'
       TabOrder = 2
-      OnClick = btnSaveClick
+      OnClick = btnSaveToFileClick
     end
     object btnDesign: TcxButton
-      Left = 164
-      Top = 44
+      Left = 206
+      Top = 51
       Width = 193
       Height = 24
-      Caption = 'Design Report'
+      Caption = 'Open Designer'
       TabOrder = 3
       OnClick = btnDesignClick
     end
     object dxLayoutControl1Group_Root: TdxLayoutGroup
       AlignHorz = ahLeft
       AlignVert = avTop
       Hidden = True
-      ItemIndex = 1
       LayoutDirection = ldHorizontal
       ShowBorder = False
       Index = -1
@@ -91,21 +91,21 @@ object MainForm: TMainForm
       AlignVert = avTop
       CaptionOptions.Text = 'btnOpen'
       CaptionOptions.Visible = False
-      Control = btnOpen
+      Control = btnImport
       ControlOptions.OriginalHeight = 25
       ControlOptions.OriginalWidth = 145
       ControlOptions.ShowBorder = False
       Index = 1
     end
     object liSave: TdxLayoutItem
-      Parent = dxLayoutGroup2
+      Parent = dxLayoutGroup1
       CaptionOptions.Text = 'btnSave'
       CaptionOptions.Visible = False
-      Control = btnSave
+      Control = btnSaveToFile
       ControlOptions.OriginalHeight = 25
       ControlOptions.OriginalWidth = 145
       ControlOptions.ShowBorder = False
-      Index = 0
+      Index = 2
     end
     object liDesign: TdxLayoutItem
       Parent = dxLayoutGroup2
@@ -115,7 +115,7 @@ object MainForm: TMainForm
       ControlOptions.OriginalHeight = 24
       ControlOptions.OriginalWidth = 193
       ControlOptions.ShowBorder = False
-      Index = 1
+      Index = 0
     end
     object liPreview: TdxLayoutItem
       Parent = dxLayoutGroup2
@@ -125,7 +125,7 @@ object MainForm: TMainForm
       ControlOptions.OriginalHeight = 25
       ControlOptions.OriginalWidth = 193
       ControlOptions.ShowBorder = False
-      Index = 2
+      Index = 1
     end
     object dxLayoutLabeledItem1: TdxLayoutLabeledItem
       CaptionOptions.Text = 'Label'
@@ -134,53 +134,47 @@ object MainForm: TMainForm
     object dxLayoutGroup1: TdxLayoutGroup
       Parent = dxLayoutControl1Group_Root
       AlignHorz = ahClient
-      CaptionOptions.Text = 'New Group'
-      CaptionOptions.Visible = False
-      ItemIndex = 1
-      ShowBorder = False
+      CaptionOptions.Text = 'Report Layout'
       Index = 0
     end
     object dxLayoutGroup2: TdxLayoutGroup
       Parent = dxLayoutControl1Group_Root
-      AlignHorz = ahClient
-      CaptionOptions.Text = 'New Group'
-      CaptionOptions.Visible = False
-      ItemIndex = 2
-      ShowBorder = False
+      CaptionOptions.Text = 'Report Dialogs'
       Index = 1
     end
   end
   object dxReport1: TdxReport
     Parameters = <>
     OnLayoutChanged = dxReport1LayoutChanged
-    Left = 48
-    Top = 214
+    Left = 16
+    Top = 224
   end
   object dxOpenFileDialog: TdxOpenFileDialog
     Filter = 'REPX (*.repx)|*.repx'
     Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
-    Left = 152
-    Top = 160
+    Title = 'Import Report Layout'
+    Left = 136
+    Top = 176
   end
   object dxSaveFileDialog: TdxSaveFileDialog
     DefaultExt = 'repx'
     Filter = 'REPX (*.repx)|*.repx'
-    Left = 96
-    Top = 160
+    Title = 'Save Report Layout'
+    Left = 72
+    Top = 176
   end
-  object dxBackendDataConnectionManager1: TdxBackendDataConnectionManager
-    Left = 48
-    Top = 160
+  object dxBackendDataConnectionManager: TdxBackendDataConnectionManager
+    Left = 16
+    Top = 176
     object ReportsNWindConnectionString: TdxBackendDatabaseSQLConnection
       DisplayName = 'NWindConnectionString'
-      ConnectionString = 
-        'XpoProvider=SQLite; Data Source=|DataDirectory|\..\..\..\nwind.d' +
-        'b; Mode=ReadOnly'
+      ConnectionString = 'XpoProvider=SQLite; Data Source=..\..\..\nwind.db; Mode=ReadOnly'
     end
   end
   object dxSkinController1: TdxSkinController
+    NativeStyle = False
     SkinName = 'WXI'
-    Left = 96
-    Top = 214
+    Left = 72
+    Top = 224
   end
 end