paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-28 04:32:42 +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; inherited Destroy;
end; end;
{$IFnDEF EnableNewExtTools}
function TLazSourceFileManager.ExternalTools: TExternalToolList; function TLazSourceFileManager.ExternalTools: TExternalToolList;
begin begin
Result:=TExternalToolList(EnvironmentOptions.ExternalTools); Result:=TExternalToolList(EnvironmentOptions.ExternalTools);
end; end;
{$ENDIF}
function TLazSourceFileManager.CheckMainSrcLCLInterfaces(Silent: boolean): TModalResult; function TLazSourceFileManager.CheckMainSrcLCLInterfaces(Silent: boolean): TModalResult;
var var
@ -6340,6 +6341,7 @@ begin
QRes:=mrNone; QRes:=mrNone;
i:=0; i:=0;
// Iterate all build modes until the user chooses to cancel. // Iterate all build modes until the user chooses to cancel.
PrevResolvedDir:='';
while (i < FProject.BuildModes.Count) and (QRes in [mrNone,mrYes]) do begin while (i < FProject.BuildModes.Count) and (QRes in [mrNone,mrYes]) do begin
bm:=FProject.BuildModes[i]; bm:=FProject.BuildModes[i];
p:=1; p:=1;