paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-27 00:28:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: clean up

Browse Source 
git-svn-id: trunk@45277 -
This commit is contained in:
mattias 2014-06-01 08:47:49 +00:00
parent c3d5df753b
commit 1fc6cfbc6a
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/sourcefilemanager.pas
View File

@ -285,11 +285,12 @@ begin
inherited Destroy;
end;
{$IFnDEF EnableNewExtTools}
function TLazSourceFileManager.ExternalTools: TExternalToolList;
begin
Result:=TExternalToolList(EnvironmentOptions.ExternalTools);
end;
{$ENDIF}
function TLazSourceFileManager.CheckMainSrcLCLInterfaces(Silent: boolean): TModalResult;
var
@ -6340,6 +6341,7 @@ begin
QRes:=mrNone;
i:=0;
// Iterate all build modes until the user chooses to cancel.
PrevResolvedDir:='';
while (i < FProject.BuildModes.Count) and (QRes in [mrNone,mrYes]) do begin
bm:=FProject.BuildModes[i];
p:=1;