feat: add checkbox "Open file after creation" to grid export dialog

ansgarbecker · ansgarbecker · commit 613f4d8a23f8 · 2025-10-28T19:00:32.000+01:00
Refs #912
diff --git a/source/apphelpers.pas b/source/apphelpers.pas
@@ -189,7 +189,7 @@   TWinControlHelper = class helper for TWinControl
     asExportSQLDatabase, asExportSQLServerDatabase, asExportSQLOutput, asExportSQLAddComments, asExportSQLRemoveAutoIncrement, asExportSQLRemoveDefiner,
     asGridExportWindowWidth, asGridExportWindowHeight, asGridExportOutputCopy, asGridExportOutputFile,
     asGridExportFilename, asGridExportRecentFiles, asGridExportEncoding, asGridExportFormat, asGridExportSelection,
-    asGridExportColumnNames, asGridExportIncludeAutoInc, asGridExportIncludeQuery, asGridExportRemoveLinebreaks,
+    asGridExportColumnNames, asGridExportIncludeAutoInc, asGridExportIncludeQuery, asGridExportRemoveLinebreaks, asGridExportOpenFile,
     asGridExportSeparator, asGridExportEncloser, asGridExportTerminator, asGridExportNull,
 
     asGridExportClpColumnNames, asGridExportClpIncludeAutoInc, asGridExportClpRemoveLinebreaks,
@@ -3802,6 +3802,7 @@ constructor TAppSettings.Create;
   InitSetting(asGridExportIncludeAutoInc,         'GridExportAutoInc',                     0, True);
   InitSetting(asGridExportIncludeQuery,           'GridExportIncludeQuery',                0, False);
   InitSetting(asGridExportRemoveLinebreaks,       'GridExportRemoveLinebreaks',            0, False);
+  InitSetting(asGridExportOpenFile,               'GridExportOpenFile',                    0, False);
   InitSetting(asGridExportSeparator,              'GridExportSeparator',                   0, False, ';');
   InitSetting(asGridExportEncloser,               'GridExportEncloser',                    0, False, '');
   InitSetting(asGridExportTerminator,             'GridExportTerminator',                  0, False, '\r\n');
diff --git a/source/exportgrid.lfm b/source/exportgrid.lfm
@@ -245,7 +245,7 @@ object frmExportGrid: TfrmExportGrid
       OnButtonClick = editCSVRightButtonClick
       OnChange = editCSVChange
       PasswordChar = #0
-      TabOrder = 4
+      TabOrder = 5
       Text = ';'
     end
     object editEncloser: TEditButton
@@ -262,10 +262,10 @@ object frmExportGrid: TfrmExportGrid
       ImageIndex = 108
       MaxLength = 0
       NumGlyphs = 1
+      PasswordChar = #0
+      TabOrder = 6
       OnButtonClick = editCSVRightButtonClick
       OnChange = editCSVChange
-      PasswordChar = #0
-      TabOrder = 5
     end
     object editTerminator: TEditButton
       AnchorSideTop.Control = editEncloser
@@ -284,7 +284,7 @@ object frmExportGrid: TfrmExportGrid
       OnButtonClick = editCSVRightButtonClick
       OnChange = editCSVChange
       PasswordChar = #0
-      TabOrder = 6
+      TabOrder = 7
       Text = '\r\n'
     end
     object chkIncludeAutoIncrement: TCheckBox
@@ -323,10 +323,10 @@ object frmExportGrid: TfrmExportGrid
       ImageIndex = 108
       MaxLength = 0
       NumGlyphs = 1
+      PasswordChar = #0
+      TabOrder = 8
       OnButtonClick = editCSVRightButtonClick
       OnChange = editCSVChange
-      PasswordChar = #0
-      TabOrder = 7
     end
     object chkRemoveLinebreaks: TCheckBox
       AnchorSideTop.Control = chkIncludeQuery
@@ -339,6 +339,17 @@ object frmExportGrid: TfrmExportGrid
       Caption = 'Remove linebreaks from contents'
       TabOrder = 3
     end
+    object chkOpenFile: TCheckBox
+      AnchorSideTop.Control = chkRemoveLinebreaks
+      AnchorSideTop.Side = asrBottom
+      Left = 10
+      Height = 24
+      Top = 126
+      Width = 175
+      BorderSpacing.Around = 6
+      Caption = 'Open file after creation'
+      TabOrder = 4
+    end
   end
   object btnSetClipboardDefaults: TSpeedButton
     AnchorSideBottom.Control = Owner
diff --git a/source/exportgrid.pas b/source/exportgrid.pas
