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

IDE: initial setup: fixed crashing on stop button

Browse Source 
git-svn-id: trunk@39512 -
This commit is contained in:
mattias 2012-12-11 09:57:33 +00:00
parent 3ee69cda42
commit bbb1096a18
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/initialsetupdlgs.pas
View File

@ -207,7 +207,7 @@ type
MinQuality: TSDFilenameQuality = sddqCompatible): TSDFileInfo;
function QualityToImgIndex(Quality: TSDFilenameQuality): integer;
procedure ShowHideScanControls(aShow: Boolean);
procedure ThreadTerminated(Sender: TObject);
procedure ThreadTerminated(Sender: TObject); // called in main thread by fSearchFpcSourceThread.OnTerminate
public
TVNodeLazarus: TTreeNode;
TVNodeCompiler: TTreeNode;
@ -1600,7 +1600,8 @@ end;
procedure TInitialSetupDialog.StopScanButtonClick(Sender: TObject);
begin
fSearchFpcSourceThread.Terminate;
if fSearchFpcSourceThread<>nil then
fSearchFpcSourceThread.Terminate;
end;
procedure TInitialSetupDialog.WelcomePaintBoxPaint(Sender: TObject);
@ -2082,7 +2083,7 @@ begin
Candidate:=GetFirstCandidate(FCandidates[sddtFPCSrcDir]);
if Candidate<>nil then begin
EnvironmentOptions.FPCSourceDirectory:=Candidate.Caption;
ThreadTerminated(Nil); // Hide controls dealing with scanning
ShowHideScanControls(false); // Hide controls dealing with scanning
end
else begin
// No candidates found => start a thread to scan the file system.