mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-31 04:12:34 +02:00
fixed PageIndex
git-svn-id: trunk@3704 -
This commit is contained in:
parent
4e18f83f77
commit
984d2d808b
@ -1533,6 +1533,7 @@ begin
|
||||
nbMain.Pages.Add(dlgCOLinking);
|
||||
nbMain.Pages.Add(dlgCOMessages);
|
||||
nbMain.Pages.Add(dlgCOOther);
|
||||
nbMain.PageIndex:=0;
|
||||
|
||||
{
|
||||
bvlButtonBar := TBevel.Create(Self);
|
||||
|
@ -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);
|
||||
|
@ -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);
|
||||
|
@ -140,6 +140,7 @@ begin
|
||||
Pages.Add(dlgPOApplication);
|
||||
Pages.Add(dlgPOFroms);
|
||||
Pages.Add(dlgPOInfo);
|
||||
PageIndex:=0;
|
||||
end;
|
||||
|
||||
SetupFormsPage;
|
||||
|
Loading…
Reference in New Issue
Block a user