paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-27 22:57:14 +01: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); procedure TInitialSetupDialog.CompilerComboBoxChange(Sender: TObject);
begin begin
UpdateCompilerNote; UpdateCompilerNote;
UpdateFPCSrcDirNote;
end; end;
procedure TInitialSetupDialog.CompilerBrowseButtonClick(Sender: TObject); procedure TInitialSetupDialog.CompilerBrowseButtonClick(Sender: TObject);
@ -944,11 +945,13 @@ begin
if Dir='' then exit; if Dir='' then exit;
FPCSrcDirComboBox.Text:=Dir; FPCSrcDirComboBox.Text:=Dir;
UpdateFPCSrcDirNote; UpdateFPCSrcDirNote;
UpdateCompilerNote;
end; end;
procedure TInitialSetupDialog.FPCSrcDirComboBoxChange(Sender: TObject); procedure TInitialSetupDialog.FPCSrcDirComboBoxChange(Sender: TObject);
begin begin
UpdateFPCSrcDirNote; UpdateFPCSrcDirNote;
UpdateCompilerNote;
end; end;
procedure TInitialSetupDialog.LazDirBrowseButtonClick(Sender: TObject); procedure TInitialSetupDialog.LazDirBrowseButtonClick(Sender: TObject);
@ -1098,6 +1101,7 @@ begin
FDirs[sddtCompilerFilename]:=Files; FDirs[sddtCompilerFilename]:=Files;
FillComboboxWithFileInfoList(CompilerComboBox,Files); FillComboboxWithFileInfoList(CompilerComboBox,Files);
UpdateCompilerNote; UpdateCompilerNote;
UpdateFPCSrcDirNote;
end; end;
procedure TInitialSetupDialog.InitFPCSrcDir; procedure TInitialSetupDialog.InitFPCSrcDir;
@ -1109,6 +1113,7 @@ begin
Dirs:=SearchFPCSrcDirCandidates(false,LazDirComboBox.Text,FPCVer); Dirs:=SearchFPCSrcDirCandidates(false,LazDirComboBox.Text,FPCVer);
FDirs[sddtFPCSrcDir]:=Dirs; FDirs[sddtFPCSrcDir]:=Dirs;
FillComboboxWithFileInfoList(FPCSrcDirComboBox,Dirs); FillComboboxWithFileInfoList(FPCSrcDirComboBox,Dirs);
UpdateCompilerNote;
UpdateFPCSrcDirNote; UpdateFPCSrcDirNote;
end; end;
@ -1138,6 +1143,7 @@ begin
if FFPCVer=AValue then exit; if FFPCVer=AValue then exit;
FFPCVer:=AValue; FFPCVer:=AValue;
FFPCSrcNeedsUpdate:=true; FFPCSrcNeedsUpdate:=true;
FCompilerNeedsUpdate:=true;
end; end;
procedure TInitialSetupDialog.SetIdleConnected(const AValue: boolean); procedure TInitialSetupDialog.SetIdleConnected(const AValue: boolean);