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

IDE: Update also FPC source dir note after selecting a compiler. Issue #20771

Browse Source 
git-svn-id: trunk@33860 -
This commit is contained in:
juha 2011-11-30 06:34:37 +00:00
parent ee2491aa10
commit 1aa5eab515
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/initialsetupdlgs.pas
View File

@ -923,6 +923,7 @@ begin
end; end;
CompilerComboBox.Text:=Filename; CompilerComboBox.Text:=Filename;
UpdateCompilerNote; UpdateCompilerNote;
UpdateFPCSrcDirNote;
end; end;
procedure TInitialSetupDialog.FormDestroy(Sender: TObject); procedure TInitialSetupDialog.FormDestroy(Sender: TObject);
@ -977,8 +978,7 @@ begin
PropertiesTreeView.Selected:=PropertiesTreeView.Items.TopLvlItems[i]; PropertiesTreeView.Selected:=PropertiesTreeView.Items.TopLvlItems[i];
end; end;
procedure TInitialSetupDialog.PropertiesTreeViewSelectionChanged(Sender: TObject procedure TInitialSetupDialog.PropertiesTreeViewSelectionChanged(Sender: TObject);
);
begin begin
if PropertiesTreeView.Selected=nil then if PropertiesTreeView.Selected=nil then
SelectPage(TVNodeLazarus.Text) SelectPage(TVNodeLazarus.Text)