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

IDE: initial setup dialog: auto select problem page

Browse Source 
git-svn-id: trunk@32617 -
This commit is contained in:
mattias 2011-10-02 12:38:14 +00:00
parent 4544f7b6e8
commit b537c21347
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/initialsetupdlgs.pas
View File

@ -863,8 +863,6 @@ end;
{ TInitialSetupDialog }
procedure TInitialSetupDialog.FormCreate(Sender: TObject);
var
Node: TTreeNode;
begin
Caption:=Format(lisWelcomeToLazarusIDE, [GetLazarusVersionString]);
@ -896,12 +894,6 @@ begin
FPCSrcDirLabel.Caption:=Format(
lisTheSourcesOfTheFreePascalPackagesAreRequiredForBro, [SetDirSeparators('rtl'
+'/linux/system.pp')]);
// select first error
Node:=FirstErrorNode;
if Node=nil then
Node:=TVNodeLazarus;
PropertiesTreeView.Selected:=Node;
end;
procedure TInitialSetupDialog.CompilerComboBoxChange(Sender: TObject);
@ -1405,10 +1397,17 @@ begin
end;
procedure TInitialSetupDialog.Init;
var
Node: TTreeNode;
begin
InitLazarusDir;
InitCompilerFilename;
InitFPCSrcDir;
// select first error
Node:=FirstErrorNode;
if Node=nil then
Node:=TVNodeLazarus;
PropertiesTreeView.Selected:=Node;
end;
end.