IDE: context help editor: open declaration button cancel

git-svn-id: trunk@28685 -
This commit is contained in:
mattias 2010-12-11 14:08:38 +00:00
parent 501d18e6db
commit aaa5e8b72b

View File

@ -319,8 +319,8 @@ begin
MessageDlg('Error','No declaration found for '+DbgSName(AControl),mtError,[mbCancel],0);
exit;
end;
MessageDlg('Close dialogs?','This will close all currently open modal forms and open the file '+Filename+' in the editor.',
mtConfirmation,[mbOk,mbCancel],0);
if MessageDlg('Close dialogs?','This will close all currently open modal forms and open the file '+Filename+' in the editor.',
mtConfirmation,[mbOk,mbCancel],0)<>mrOk then exit;
Closer:=TOpenIDEFileOnIdle.Create(LazarusIDE.OwningComponent);
Closer.Filename:=Filename;
Closer.X:=X;