From 5152b3893768f68f40924c974fbca8b98aed29ca Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Wed, 23 Dec 2009 00:03:48 +0000
Subject: [PATCH] Implement a "Duplicate row" action for quicker grid editing.
 Fixes issue #533.

---
 source/main.dfm | 11 +++++++++++
 source/main.pas | 25 ++++++++++++++++++++++---
 2 files changed, 33 insertions(+), 3 deletions(-)

diff --git a/source/main.dfm b/source/main.dfm
index 00565134..c8f8cb7a 100644
--- a/source/main.dfm
+++ b/source/main.dfm
@@ -1872,6 +1872,14 @@ object MainForm: TMainForm
       ShortCut = 45
       OnExecute = actDataInsertExecute
     end
+    object actDataDuplicateRow: TAction
+      Category = 'Data'
+      Caption = 'Duplicate row'
+      Enabled = False
+      ImageIndex = 45
+      ShortCut = 16429
+      OnExecute = actDataDuplicateRowExecute
+    end
     object actDataDelete: TAction
       Category = 'Data'
       Caption = '&Delete selected row(s)'
@@ -6260,6 +6268,9 @@ object MainForm: TMainForm
     object Insert1: TMenuItem
       Action = actDataInsert
     end
+    object Duplicaterow1: TMenuItem
+      Action = actDataDuplicateRow
+    end
     object DataPost1: TMenuItem
       Action = actDataPostChanges
     end
diff --git a/source/main.pas b/source/main.pas
index dc2f0ea5..0ee56237 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -446,6 +446,8 @@ type
     menuCreateTrigger: TMenuItem;
     menuQueryCut: TMenuItem;
     menuQuerySelectall: TMenuItem;
+    actDataDuplicateRow: TAction;
+    Duplicaterow1: TMenuItem;
     procedure refreshMonitorConfig;
     procedure loadWindowConfig;
     procedure saveWindowConfig;
@@ -704,6 +706,7 @@ type
     procedure TimerFilterVTTimer(Sender: TObject);
     procedure PageControlMainContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
     procedure menuQueryHelpersGenerateStatementClick(Sender: TObject);
+    procedure actDataDuplicateRowExecute(Sender: TObject);
   private
     ReachedEOT                 : Boolean;
     FDelimiter: String;
@@ -833,7 +836,7 @@ type
     function GetWhereClause(Row: PGridRow; Columns: PGridColumns): WideString;
     function GetKeyColumns: TWideStringlist;
     function CheckUniqueKeyClause: Boolean;
-    procedure DataGridInsertRow;
+    procedure DataGridInsertRow(CopyValuesFromNode: PVirtualNode);
     procedure DataGridCancel(Sender: TObject);
     procedure CalcNullColors;
     procedure FillDataViewPopup;
@@ -3018,9 +3021,16 @@ end;
 
 procedure TMainForm.actDataInsertExecute(Sender: TObject);
 begin
-  DataGridInsertRow;
+  DataGridInsertRow(nil);
 end;
 
+
+procedure TMainForm.actDataDuplicateRowExecute(Sender: TObject);
+begin
+  DataGridInsertRow(DataGrid.FocusedNode);
+end;
+
+
 procedure TMainForm.actDataLastExecute(Sender: TObject);
 var
   Node: PVirtualNode;
@@ -3642,6 +3652,7 @@ begin
   // Data tab - if query results are made editable, these will need
   //            to be changed to look at which tab is focused.
   actDataInsert.Enabled := inDataGrid;
+  actDataDuplicateRow.Enabled := inDataGrid and Assigned(ActiveGrid.FocusedNode);
   actDataDelete.Enabled := inDataGrid and (DataGrid.SelectedCount > 0);
   actDataFirst.Enabled := inDataGrid;
   actDataLast.Enabled := inDataGrid;
@@ -6842,9 +6853,10 @@ end;
 {**
   DataGrid: compose and fire UPDATE query
 }
-procedure TMainForm.DataGridInsertRow;
+procedure TMainForm.DataGridInsertRow(CopyValuesFromNode: PVirtualNode);
 var
   i, j: Integer;
+  Val: WideString;
 begin
   // Scroll to the bottom to ensure we append the new row at the very last DataGridResult chunk
   DataGrid.FocusedNode := DataGrid.GetLast;
@@ -6859,6 +6871,13 @@ begin
     DataGridResult.Rows[i].Cells[j].Text := '';
   end;
   DataGrid.FocusedNode := DataGrid.AddChild(nil);
+  if Assigned(CopyValuesFromNode) then begin
+    for j:=0 to DataGrid.Header.Columns.Count-1 do begin
+      Val := DataGrid.Text[CopyValuesFromNode, j];
+      if (coVisible in DataGrid.Header.Columns[j].Options) and (Val <> '') then
+        DataGrid.Text[DataGrid.FocusedNode, j] := Val;
+    end;
+  end;
   DataGrid.ClearSelection;
   DataGrid.Selected[DataGrid.FocusedNode] := True;
   DataGridHasChanges := True;