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(dlgCOLinking);
nbMain.Pages.Add(dlgCOMessages); nbMain.Pages.Add(dlgCOMessages);
nbMain.Pages.Add(dlgCOOther); nbMain.Pages.Add(dlgCOOther);
nbMain.PageIndex:=0;
{ {
bvlButtonBar := TBevel.Create(Self); bvlButtonBar := TBevel.Create(Self);

View File

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

View File

@ -93,7 +93,7 @@ type
const const
LazarusLanguageNames: array[TLazarusLanguage] of string = ( 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 = ( LazarusLanguageIDs: array[TLazarusLanguage] of string = (
@ -1225,6 +1225,7 @@ begin
Pages.Add(dlgEnvFiles); Pages.Add(dlgEnvFiles);
Pages.Add(dlgEnvBckup); Pages.Add(dlgEnvBckup);
Pages.Add(dlgNaming); Pages.Add(dlgNaming);
PageIndex:=0;
end; end;
SetupDesktopPage(0); SetupDesktopPage(0);

View File

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