opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix bug #654 "Edit -> Add primary index -> Crash" by preventing the cell from going into edit mode if there is no unique key available.

Browse Source
This commit is contained in:
Ansgar Becker
2008-08-09 08:31:04 +00:00
parent aabd4bbf57
commit c0bed49a2f
1 changed files with 14 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
source/childwin.pas
View File

@@ -5574,22 +5574,16 @@ procedure TMDIChild.DataGridNewText(Sender: TBaseVirtualTree; Node:
PVirtualNode; Column: TColumnIndex; NewText: WideString);
var
Row: TGridRow;
AllowEditing: Boolean;
begin
Row := FDataGridResult.Rows[Node.Index];
AllowEditing := True;
// Remember new value
Row.Cells[Column].NewText := NewText;
Row.Cells[Column].Modified := True;
// Set state of row for UPDATE mode, don't touch grsInserted
if Row.State = grsDefault then
AllowEditing := CheckUniqueKeyClause;
if AllowEditing then begin
// Remember new value
Row.Cells[Column].NewText := NewText;
Row.Cells[Column].Modified := True;
// Set state of row for UPDATE mode, don't touch grsInserted
if Row.State = grsDefault then
FDataGridResult.Rows[Node.Index].State := grsModified;
Mainform.actDataPost.Enabled := True;
Mainform.actDataCancelEdit.Enabled := True;
end;
FDataGridResult.Rows[Node.Index].State := grsModified;
Mainform.actDataPost.Enabled := True;
Mainform.actDataCancelEdit.Enabled := True;
end;
@@ -6044,8 +6038,13 @@ end;
procedure TMDIChild.DataGridEditing(Sender: TBaseVirtualTree; Node:
PVirtualNode; Column: TColumnIndex; var Allowed: Boolean);
begin
// Move Esc shortcut from "Cancel row editing" to "Cancel cell editing"
Mainform.actDataCancelEdit.ShortCut := 0;
Allowed := True;
if FDataGridResult.Rows[Node.Index].State = grsDefault then
Allowed := CheckUniqueKeyClause;
if Allowed then begin
// Move Esc shortcut from "Cancel row editing" to "Cancel cell editing"
Mainform.actDataCancelEdit.ShortCut := 0;
end;
end;
procedure TMDIChild.DataGridEdited(Sender: TBaseVirtualTree; Node: