Buttons/toolbar enhancement:

- Add missing "Cancel editing" button to main toolbar
- Add missing "Post updates" button to popupDataGrid
- Add shortcut "Ctrl+Enter" to "Post updates" action

source/childwin.dfm

@@ -1460,6 +1460,9 @@ object MDIChild: TMDIChild
     object Insert1: TMenuItem
       Action = MainForm.actDataInsert
     end
+    object DataPost1: TMenuItem
+      Action = MainForm.actDataPost
+    end
     object Cancelediting1: TMenuItem
       Action = MainForm.actDataCancelEdit
     end

source/childwin.pas

@@ -262,6 +262,7 @@ type
     SynMemoSQLLog: TSynMemo;
     Insert1: TMenuItem;
     Cancelediting1: TMenuItem;
+    DataPost1: TMenuItem;
     procedure menuRenameColumnClick(Sender: TObject);
     procedure ListColumnsNewText(Sender: TBaseVirtualTree; Node: PVirtualNode;
         Column: TColumnIndex; NewText: WideString);
@@ -6056,6 +6057,7 @@ begin
   if Allowed then begin
     // Move Esc shortcut from "Cancel row editing" to "Cancel cell editing"
     Mainform.actDataCancelEdit.ShortCut := 0;
+    Mainform.actDataPost.ShortCut := 0;
     // Load entire data for field.
     Cell := FDataGridResult.Rows[Node.Index].Cells[Column];
     if Length(Cell.Text) >= GridMaxData then begin
@@ -6077,6 +6079,7 @@ procedure TMDIChild.DataGridEdited(Sender: TBaseVirtualTree; Node:
 begin
   // Reassign Esc to "Cancel row editing" action
   Mainform.actDataCancelEdit.ShortCut := TextToShortcut('Esc');
+  Mainform.actDataPost.ShortCut := TextToShortcut('Ctrl+Enter');
 end;
 
 procedure TMDIChild.DataGridEditCancelled(Sender: TBaseVirtualTree; Column:
@@ -6084,6 +6087,7 @@ procedure TMDIChild.DataGridEditCancelled(Sender: TBaseVirtualTree; Column:
 begin
   // Reassign Esc to "Cancel row editing" action
   Mainform.actDataCancelEdit.ShortCut := TextToShortcut('Esc');
+  Mainform.actDataPost.ShortCut := TextToShortcut('Ctrl+Enter');
 end;
 
 procedure TMDIChild.DataGridCreateEditor(Sender: TBaseVirtualTree; Node:

source/main.dfm

@@ -195,7 +195,7 @@ object MainForm: TMainForm
     object ToolBarData: TToolBar
       Left = 11
       Top = 28
-      Width = 374
+      Width = 138
       Height = 22
       Align = alNone
       AutoSize = True
@@ -230,6 +230,11 @@ object MainForm: TMainForm
         Top = 0
         Action = actDataPost
       end
+      object ToolButton1: TToolButton
+        Left = 115
+        Top = 0
+        Action = actDataCancelEdit
+      end
     end
     object ToolBarDatabase: TToolBar
       Left = 405
@@ -850,6 +855,7 @@ object MainForm: TMainForm
       Enabled = False
       Hint = 'Post'
       ImageIndex = 55
+      ShortCut = 16397
       OnExecute = actDataPostExecute
     end
     object actCreateTable: TAction

source/main.pas

@@ -217,6 +217,7 @@ type
     actSetDelimiter: TAction;
     btnSetDelimiter: TToolButton;
     actDataCancelEdit: TAction;
+    ToolButton1: TToolButton;
     procedure refreshMonitorConfig;
     procedure loadWindowConfig;
     procedure saveWindowConfig;