fixed PageIndex

git-svn-id: trunk@3704 -
This commit is contained in:
mattias 2002-12-16 23:31:29 +00:00
parent 4e18f83f77
commit 984d2d808b
4 changed files with 5 additions and 1 deletions

View File

@ -1533,6 +1533,7 @@ begin
nbMain.Pages.Add(dlgCOLinking);
nbMain.Pages.Add(dlgCOMessages);
nbMain.Pages.Add(dlgCOOther);
nbMain.PageIndex:=0;
{
bvlButtonBar := TBevel.Create(Self);

View File

@ -1917,6 +1917,7 @@ begin
Pages.Add(dlgKeyMapping);
Pages.Add(dlgEdColor);
Pages.Add('Code Tools'); //by VVI - it seems to be a proper name
PageIndex:=0;
end;
ImageList:=TImageList.Create(Self);

View File

@ -93,7 +93,7 @@ type
const
LazarusLanguageNames: array[TLazarusLanguage] of string = (
'Automatic (default is english)', 'English', 'Deutsch', 'Espan~ol'
'Automatic (default is english)', 'English', 'Deutsch', 'Espanol'
);
LazarusLanguageIDs: array[TLazarusLanguage] of string = (
@ -1225,6 +1225,7 @@ begin
Pages.Add(dlgEnvFiles);
Pages.Add(dlgEnvBckup);
Pages.Add(dlgNaming);
PageIndex:=0;
end;
SetupDesktopPage(0);

View File

@ -140,6 +140,7 @@ begin
Pages.Add(dlgPOApplication);
Pages.Add(dlgPOFroms);
Pages.Add(dlgPOInfo);
PageIndex:=0;
end;
SetupFormsPage;