mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-23 04:19:47 +02:00
IDE: context help editor: open declaration button cancel
git-svn-id: trunk@28685 -
This commit is contained in:
parent
501d18e6db
commit
aaa5e8b72b
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user