opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-14 18:12:05 +08:00
Code Issues Packages Projects Releases Wiki Activity

Implement a "Duplicate row" action for quicker grid editing. Fixes issue #533.

Browse Source
This commit is contained in:
Ansgar Becker
2009-12-23 00:03:48 +00:00
parent eb9915d5be
commit 5152b38937
2 changed files with 33 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
source/main.dfm
View File

@ -1872,6 +1872,14 @@ object MainForm: TMainForm
ShortCut = 45 ShortCut = 45
OnExecute = actDataInsertExecute OnExecute = actDataInsertExecute
end end
object actDataDuplicateRow: TAction
Category = 'Data'
Caption = 'Duplicate row'
Enabled = False
ImageIndex = 45
ShortCut = 16429
OnExecute = actDataDuplicateRowExecute
end
object actDataDelete: TAction object actDataDelete: TAction
Category = 'Data' Category = 'Data'
Caption = '&Delete selected row(s)' Caption = '&Delete selected row(s)'
@ -6260,6 +6268,9 @@ object MainForm: TMainForm
object Insert1: TMenuItem object Insert1: TMenuItem
Action = actDataInsert Action = actDataInsert
end end
object Duplicaterow1: TMenuItem
Action = actDataDuplicateRow
end
object DataPost1: TMenuItem object DataPost1: TMenuItem
Action = actDataPostChanges Action = actDataPostChanges
end end

25
source/main.pas
View File

@ -446,6 +446,8 @@ type
menuCreateTrigger: TMenuItem; menuCreateTrigger: TMenuItem;
menuQueryCut: TMenuItem; menuQueryCut: TMenuItem;
menuQuerySelectall: TMenuItem; menuQuerySelectall: TMenuItem;
actDataDuplicateRow: TAction;
Duplicaterow1: TMenuItem;
procedure refreshMonitorConfig; procedure refreshMonitorConfig;
procedure loadWindowConfig; procedure loadWindowConfig;
procedure saveWindowConfig; procedure saveWindowConfig;
@ -704,6 +706,7 @@ type
procedure TimerFilterVTTimer(Sender: TObject); procedure TimerFilterVTTimer(Sender: TObject);
procedure PageControlMainContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); procedure PageControlMainContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
procedure menuQueryHelpersGenerateStatementClick(Sender: TObject); procedure menuQueryHelpersGenerateStatementClick(Sender: TObject);
procedure actDataDuplicateRowExecute(Sender: TObject);
private private
ReachedEOT : Boolean; ReachedEOT : Boolean;
FDelimiter: String; FDelimiter: String;
@ -833,7 +836,7 @@ type
function GetWhereClause(Row: PGridRow; Columns: PGridColumns): WideString; function GetWhereClause(Row: PGridRow; Columns: PGridColumns): WideString;
function GetKeyColumns: TWideStringlist; function GetKeyColumns: TWideStringlist;
function CheckUniqueKeyClause: Boolean; function CheckUniqueKeyClause: Boolean;
procedure DataGridInsertRow; procedure DataGridInsertRow(CopyValuesFromNode: PVirtualNode);
procedure DataGridCancel(Sender: TObject); procedure DataGridCancel(Sender: TObject);
procedure CalcNullColors; procedure CalcNullColors;
procedure FillDataViewPopup; procedure FillDataViewPopup;
@ -3018,9 +3021,16 @@ end;
procedure TMainForm.actDataInsertExecute(Sender: TObject); procedure TMainForm.actDataInsertExecute(Sender: TObject);
begin begin
DataGridInsertRow; DataGridInsertRow(nil);
end; end;
procedure TMainForm.actDataDuplicateRowExecute(Sender: TObject);
begin
DataGridInsertRow(DataGrid.FocusedNode);
end;
procedure TMainForm.actDataLastExecute(Sender: TObject); procedure TMainForm.actDataLastExecute(Sender: TObject);
var var
Node: PVirtualNode; Node: PVirtualNode;
@ -3642,6 +3652,7 @@ begin
// Data tab - if query results are made editable, these will need // Data tab - if query results are made editable, these will need
// to be changed to look at which tab is focused. // to be changed to look at which tab is focused.
actDataInsert.Enabled := inDataGrid; actDataInsert.Enabled := inDataGrid;
actDataDuplicateRow.Enabled := inDataGrid and Assigned(ActiveGrid.FocusedNode);
actDataDelete.Enabled := inDataGrid and (DataGrid.SelectedCount > 0); actDataDelete.Enabled := inDataGrid and (DataGrid.SelectedCount > 0);
actDataFirst.Enabled := inDataGrid; actDataFirst.Enabled := inDataGrid;
actDataLast.Enabled := inDataGrid; actDataLast.Enabled := inDataGrid;
@ -6842,9 +6853,10 @@ end;
{** {**
DataGrid: compose and fire UPDATE query DataGrid: compose and fire UPDATE query
} }
procedure TMainForm.DataGridInsertRow; procedure TMainForm.DataGridInsertRow(CopyValuesFromNode: PVirtualNode);
var var
i, j: Integer; i, j: Integer;
Val: WideString;
begin begin
// Scroll to the bottom to ensure we append the new row at the very last DataGridResult chunk // Scroll to the bottom to ensure we append the new row at the very last DataGridResult chunk
DataGrid.FocusedNode := DataGrid.GetLast; DataGrid.FocusedNode := DataGrid.GetLast;
@ -6859,6 +6871,13 @@ begin
DataGridResult.Rows[i].Cells[j].Text := ''; DataGridResult.Rows[i].Cells[j].Text := '';
end; end;
DataGrid.FocusedNode := DataGrid.AddChild(nil); 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.ClearSelection;
DataGrid.Selected[DataGrid.FocusedNode] := True; DataGrid.Selected[DataGrid.FocusedNode] := True;
DataGridHasChanges := True; DataGridHasChanges := True;