Fix issue #1174: Table editor, column editing: Let Esc cancel the defaults editor and Enter accept changes.

This commit is contained in:
Ansgar Becker
2009-06-05 17:32:47 +00:00
parent bffc1df93b
commit 3d0682bea5

View File

@ -1096,6 +1096,7 @@ begin
FBtnOk.Top := FRadioAutoInc.Top + FRadioAutoInc.Height + m;
FBtnOk.Left := FPanel.Width - 2*m - 2*FBtnOk.Width;
FBtnOk.OnClick := BtnOkClick;
FBtnOk.Default := True;
FBtnOk.Caption := 'OK';
FBtnCancel := TButton.Create(FPanel);
@ -1104,6 +1105,7 @@ begin
FBtnCancel.Width := FBtnOk.Width;
FBtnCancel.Left := FBtnOk.Left + FBtnOk.Width + m;
FBtnCancel.OnClick := BtnCancelClick;
FBtnCancel.Cancel := True;
FBtnCancel.Caption := 'Cancel';
FPanel.Height := FBtnOk.Top + FBtnOk.Height + m;