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

IDE Fix possible crash in TInitialSetupDialog.Init

Browse Source 
git-svn-id: trunk@47340 -
This commit is contained in:
bart 2015-01-11 14:45:40 +00:00
parent 8dcc70cd3b
commit 0c86628fb1
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/initialsetupdlgs.pas
View File

@ -1219,9 +1219,11 @@ begin
// first start => choose first best candidate // first start => choose first best candidate
Candidate:=GetFirstCandidate(FCandidates[sddtLazarusSrcDir]); Candidate:=GetFirstCandidate(FCandidates[sddtLazarusSrcDir]);
if Candidate<>nil then if Candidate<>nil then
begin
EnvironmentOptions.LazarusDirectory:=Candidate.Caption; EnvironmentOptions.LazarusDirectory:=Candidate.Caption;
if Candidate.Quality=sddqCompatible then if Candidate.Quality=sddqCompatible then
TranslateResourceStrings; TranslateResourceStrings;
end;
end; end;
LazDirComboBox.Text:=EnvironmentOptions.LazarusDirectory; LazDirComboBox.Text:=EnvironmentOptions.LazarusDirectory;
FLastParsedLazDir:='. .'; FLastParsedLazDir:='. .';