paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 14:39:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: open LPI dialog - cancel opening on ESC.

Browse Source 
git-svn-id: trunk@54078 -
This commit is contained in:
ondrej 2017-02-03 08:27:50 +00:00
parent 94630704fa
commit 883293a51a
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/sourcefilemanager.pas
View File

@ -1095,16 +1095,20 @@ begin
// either this is a lazarus project or it is not yet a lazarus project ;) // either this is a lazarus project or it is not yet a lazarus project ;)
LPIFilename:=ChangeFileExt(FFilename,'.lpi'); LPIFilename:=ChangeFileExt(FFilename,'.lpi');
if FileExistsCached(LPIFilename) then begin if FileExistsCached(LPIFilename) then begin
if IDEQuestionDialog(lisProjectInfoFileDetected, case IDEQuestionDialog(lisProjectInfoFileDetected,
Format(lisTheFileSeemsToBeTheProgramFileOfAnExistingLazarusP, Format(lisTheFileSeemsToBeTheProgramFileOfAnExistingLazarusP,
[FFilename]), mtConfirmation, [FFilename]), mtConfirmation,
[mrOk, lisOpenProject2, mrCancel, lisOpenTheFileAsNormalSource])=mrOk then [mrOk, lisOpenProject2, mrAbort, lisOpenTheFileAsNormalSource])
of
mrOk:
begin begin
Result:=MainIDE.DoOpenProjectFile(LPIFilename,[ofAddToRecent]); Result:=MainIDE.DoOpenProjectFile(LPIFilename,[ofAddToRecent]);
if Result = mrOK then if Result = mrOK then
Result := mrIgnore; Result := mrIgnore;
exit; exit;
end; end;
mrCancel: Exit;
end;
end else begin end else begin
AText:=Format(lisTheFileSeemsToBeAProgramCloseCurrentProject, AText:=Format(lisTheFileSeemsToBeAProgramCloseCurrentProject,
[FFilename, LineEnding, LineEnding]); [FFilename, LineEnding, LineEnding]);