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

IDE: cleanup

Browse Source 
git-svn-id: trunk@47197 -
This commit is contained in:
juha 2014-12-14 23:14:06 +00:00
parent bf72b0ae55
commit 2aec6cd83e
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/sourcefilemanager.pas
View File

@ -4027,7 +4027,6 @@ var
md, ActiveMode: TProjectBuildMode;
BuildActiveMode: Boolean;
i: Integer;
Msg: String;
begin
Result := False;
ModeCnt := 0;
@ -4060,8 +4059,8 @@ begin
// Switch back to original mode.
Project1.ActiveBuildMode := ActiveMode;
SaveProject([]);
Msg := Format(lisSelectedModesWereBuilt, [ModeCnt]);
IDEMessageDialog(lisSuccess, Msg, mtInformation, [mbOK]);
IDEMessageDialog(lisSuccess, Format(lisSelectedModesWereBuilt, [ModeCnt]),
mtInformation, [mbOK]);
Result:=True;
finally
ModeList.Free;