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

IDE: clean up

Browse Source 
git-svn-id: trunk@36569 -
This commit is contained in:
mattias 2012-04-05 07:33:50 +00:00
parent c24580f5a9
commit 0731f4ba72
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/initialsetupdlgs.pas
View File

@ -155,7 +155,7 @@ procedure SetupCompilerFilename;
function CheckFPCSrcDirQuality(ADirectory: string;
out Note: string; FPCVer: string): TSDFilenameQuality;
function SearchFPCSrcDirCandidates(StopIfFits: boolean;
const LazarusDir, FPCVer: string): TObjectList;
const FPCVer: string): TObjectList;
function GetValueFromPrimaryConfig(OptionFilename, Path: string): string;
function GetValueFromSecondaryConfig(OptionFilename, Path: string): string;
@ -696,7 +696,7 @@ begin
end;
function SearchFPCSrcDirCandidates(StopIfFits: boolean;
const LazarusDir, FPCVer: string): TObjectList;
const FPCVer: string): TObjectList;
function Check(AFilename: string; var List: TObjectList): boolean;
var
@ -1100,8 +1100,7 @@ var
begin
fCompilerFilenameChanged:=false;
FreeAndNil(FDirs[sddtFPCSrcDir]);
Dirs:=SearchFPCSrcDirCandidates(false,
EnvironmentOptions.GetParsedLazarusDirectory,GetFPCVer);
Dirs:=SearchFPCSrcDirCandidates(false,GetFPCVer);
FDirs[sddtFPCSrcDir]:=Dirs;
FillComboboxWithFileInfoList(FPCSrcDirComboBox,Dirs);
end;