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

IDE: setup: icons when selected

Browse Source 
git-svn-id: trunk@30175 -
This commit is contained in:
mattias 2011-04-04 09:44:29 +00:00
parent 3c9a015969
commit db3dd549ff
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/initialsetupdlgs.pas
View File

@ -1197,7 +1197,7 @@ begin
else
ImageIndex:=ImgIDError;
TVNodeLazarus.ImageIndex:=ImageIndex;
TVNodeLazarus.StateIndex:=ImageIndex;
TVNodeLazarus.SelectedIndex:=ImageIndex;
end;
procedure TInitialSetupDialog.UpdateCompilerNote;
@ -1267,7 +1267,7 @@ begin
else
ImageIndex:=ImgIDError;
TVNodeCompiler.ImageIndex:=ImageIndex;
TVNodeCompiler.StateIndex:=ImageIndex;
TVNodeCompiler.SelectedIndex:=ImageIndex;
end;
procedure TInitialSetupDialog.UpdateFPCSrcDirNote;
@ -1326,7 +1326,7 @@ begin
else
ImageIndex:=ImgIDError;
TVNodeFPCSources.ImageIndex:=ImageIndex;
TVNodeFPCSources.StateIndex:=ImageIndex;
TVNodeFPCSources.SelectedIndex:=ImageIndex;
end;
function TInitialSetupDialog.FirstErrorNode: TTreeNode;