opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 03:01:07 +08:00
Code Issues Packages Projects Releases Wiki Activity

Terminology change: 'Changes' instead of 'Edit' in CancelChanges (and PostChanges), since 'edit' is used heftily in context of the data grid, where it means editing a single cell (as opposed to a whole row, which the former applies to).

Browse Source
This commit is contained in:
rosenfield.albert
2008-09-08 12:06:19 +00:00
parent 64dcdc14a7
commit 1812171221
4 changed files with 25 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
source/childwin.pas
View File

@ -587,7 +587,7 @@ type
function GetKeyColumns(KeyList: TDataset): WideStrings.TWideStringlist;
function CheckUniqueKeyClause: Boolean;
procedure DataGridInsertRow;
procedure DataGridCancelEdit(Sender: TObject);
procedure DataGridCancel(Sender: TObject);
property FSelectedTableColumns: TDataset read GetSelTableColumns write FLastSelectedTableColumns;
property FSelectedTableKeys: TDataset read GetSelTableKeys write FLastSelectedTableKeys;
procedure CalcNullColors;
@ -2103,8 +2103,8 @@ begin
Mainform.actDataDelete.Enabled := inDataTab and (DataGrid.SelectedCount > 0);
Mainform.actDataFirst.Enabled := inDataTab;
Mainform.actDataLast.Enabled := inDataTab;
Mainform.actDataPost.Enabled := inDataTab and DataGridHasChanges;
Mainform.actDataCancelEdit.Enabled := inDataTab and DataGridHasChanges;
Mainform.actDataPostChanges.Enabled := inDataTab and DataGridHasChanges;
Mainform.actDataCancelChanges.Enabled := inDataTab and DataGridHasChanges;
// Activate export-options if we're on Data- or Query-tab
MainForm.actCopyAsCSV.Enabled := inDataOrQueryTabNotEmpty;
@ -6095,7 +6095,7 @@ end;
{**
DataGrid: cancel INSERT or UPDATE mode, reset modified node data
}
procedure TMDIChild.DataGridCancelEdit(Sender: TObject);
procedure TMDIChild.DataGridCancel(Sender: TObject);
var
i: Integer;
begin
@ -6178,8 +6178,8 @@ begin
Allowed := CheckUniqueKeyClause;
if Allowed then begin
// Move Esc shortcut from "Cancel row editing" to "Cancel cell editing"
Mainform.actDataCancelEdit.ShortCut := 0;
Mainform.actDataPost.ShortCut := 0;
Mainform.actDataCancelChanges.ShortCut := 0;
Mainform.actDataPostChanges.ShortCut := 0;
EnsureFullWidth(Sender, Column, Node);
end;
end;
@ -6188,16 +6188,16 @@ procedure TMDIChild.DataGridEdited(Sender: TBaseVirtualTree; Node:
PVirtualNode; Column: TColumnIndex);
begin
// Reassign Esc to "Cancel row editing" action
Mainform.actDataCancelEdit.ShortCut := TextToShortcut('Esc');
Mainform.actDataPost.ShortCut := TextToShortcut('Ctrl+Enter');
Mainform.actDataCancelChanges.ShortCut := TextToShortcut('Esc');
Mainform.actDataPostChanges.ShortCut := TextToShortcut('Ctrl+Enter');
end;
procedure TMDIChild.DataGridEditCancelled(Sender: TBaseVirtualTree; Column:
TColumnIndex);
begin
// Reassign Esc to "Cancel row editing" action
Mainform.actDataCancelEdit.ShortCut := TextToShortcut('Esc');
Mainform.actDataPost.ShortCut := TextToShortcut('Ctrl+Enter');
Mainform.actDataCancelChanges.ShortCut := TextToShortcut('Esc');
Mainform.actDataPostChanges.ShortCut := TextToShortcut('Ctrl+Enter');
end;
procedure TMDIChild.DataGridCreateEditor(Sender: TBaseVirtualTree; Node: