paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 14:31:29 +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; md, ActiveMode: TProjectBuildMode;
BuildActiveMode: Boolean; BuildActiveMode: Boolean;
i: Integer; i: Integer;
Msg: String;
begin begin
Result := False; Result := False;
ModeCnt := 0; ModeCnt := 0;
@ -4060,8 +4059,8 @@ begin
// Switch back to original mode. // Switch back to original mode.
Project1.ActiveBuildMode := ActiveMode; Project1.ActiveBuildMode := ActiveMode;
SaveProject([]); SaveProject([]);
Msg := Format(lisSelectedModesWereBuilt, [ModeCnt]); IDEMessageDialog(lisSuccess, Format(lisSelectedModesWereBuilt, [ModeCnt]),
IDEMessageDialog(lisSuccess, Msg, mtInformation, [mbOK]); mtInformation, [mbOK]);
Result:=True; Result:=True;
finally finally
ModeList.Free; ModeList.Free;