paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 16:59:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: context help editor: open declaration button cancel

Browse Source 
git-svn-id: trunk@28685 -
This commit is contained in:
mattias 2010-12-11 14:08:38 +00:00
parent 501d18e6db
commit aaa5e8b72b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/idecontexthelpedit.pas
View File

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