opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +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
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

25
source/main.pas
View File

@ -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;