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

Fix bug #840: Confirm != Confirm.

Browse Source 
Press Cancel: No confirm dialog
Press X: Confirmation dialog if content was modified
This commit is contained in:
Ansgar Becker
2008-11-01 09:02:29 +00:00
parent cbe5f2467f
commit 523738af84
2 changed files with 18 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
source/bineditor.pas
View File

@ -152,6 +152,15 @@ end;
procedure TfrmBinEditor.btnCancelClick(Sender: TObject); procedure TfrmBinEditor.btnCancelClick(Sender: TObject);
begin
if FStopping then
Exit;
FStopping := True;
TCustomVirtualStringTree(Owner).CancelEditNode;
end;
procedure TfrmBinEditor.FormClose(Sender: TObject; var Action: TCloseAction);
var var
DoPost: Boolean; DoPost: Boolean;
begin begin
@ -169,12 +178,6 @@ begin
end; end;
procedure TfrmBinEditor.FormClose(Sender: TObject; var Action: TCloseAction);
begin
btnCancelClick(Sender);
end;
procedure TfrmBinEditor.btnApplyClick(Sender: TObject); procedure TfrmBinEditor.btnApplyClick(Sender: TObject);
begin begin
FStopping := True; FStopping := True;

15
source/texteditor.pas
View File

@ -155,6 +155,15 @@ end;
procedure TfrmTextEditor.btnCancelClick(Sender: TObject); procedure TfrmTextEditor.btnCancelClick(Sender: TObject);
begin
if FStopping then
Exit;
FStopping := True;
TCustomVirtualStringTree(Owner).CancelEditNode;
end;
procedure TfrmTextEditor.FormClose(Sender: TObject; var Action: TCloseAction);
var var
DoPost: Boolean; DoPost: Boolean;
begin begin
@ -172,12 +181,6 @@ begin
end; end;
procedure TfrmTextEditor.FormClose(Sender: TObject; var Action: TCloseAction);
begin
btnCancelClick(Sender);
end;
procedure TfrmTextEditor.btnApplyClick(Sender: TObject); procedure TfrmTextEditor.btnApplyClick(Sender: TObject);
begin begin
FStopping := True; FStopping := True;