paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 23:08:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Try to fix the initial setup dialog better.

Browse Source 
git-svn-id: trunk@33887 -
This commit is contained in:
juha 2011-12-01 12:58:38 +00:00
parent 108f8bc596
commit 3c36dc6925
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/initialsetupdlgs.pas
View File

@ -899,6 +899,7 @@ end;
procedure TInitialSetupDialog.CompilerComboBoxChange(Sender: TObject);
begin
UpdateCompilerNote;
UpdateFPCSrcDirNote;
end;
procedure TInitialSetupDialog.CompilerBrowseButtonClick(Sender: TObject);
@ -944,11 +945,13 @@ begin
if Dir='' then exit;
FPCSrcDirComboBox.Text:=Dir;
UpdateFPCSrcDirNote;
UpdateCompilerNote;
end;
procedure TInitialSetupDialog.FPCSrcDirComboBoxChange(Sender: TObject);
begin
UpdateFPCSrcDirNote;
UpdateCompilerNote;
end;
procedure TInitialSetupDialog.LazDirBrowseButtonClick(Sender: TObject);
@ -1098,6 +1101,7 @@ begin
FDirs[sddtCompilerFilename]:=Files;
FillComboboxWithFileInfoList(CompilerComboBox,Files);
UpdateCompilerNote;
UpdateFPCSrcDirNote;
end;
procedure TInitialSetupDialog.InitFPCSrcDir;
@ -1109,6 +1113,7 @@ begin
Dirs:=SearchFPCSrcDirCandidates(false,LazDirComboBox.Text,FPCVer);
FDirs[sddtFPCSrcDir]:=Dirs;
FillComboboxWithFileInfoList(FPCSrcDirComboBox,Dirs);
UpdateCompilerNote;
UpdateFPCSrcDirNote;
end;
@ -1138,6 +1143,7 @@ begin
if FFPCVer=AValue then exit;
FFPCVer:=AValue;
FFPCSrcNeedsUpdate:=true;
FCompilerNeedsUpdate:=true;
end;
procedure TInitialSetupDialog.SetIdleConnected(const AValue: boolean);