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

MG: TNoteBook now starts with no Page and TPage has no auto names

Browse Source 
git-svn-id: trunk@3274 -
This commit is contained in:
lazarus 2002-09-02 19:10:27 +00:00
parent c191a0955a
commit 80e7e46dbd
3 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
designer/objectinspector.pp
View File

@ -1731,7 +1731,10 @@ begin
with NoteBook do begin
Name:='NoteBook';
Parent:=Self;
Pages.Strings[0]:='Properties';
if PageCount>0 then
Pages.Strings[0]:='Properties'
else
Pages.Add('Properties');
Pages.Add('Events');
PopupMenu:=MainPopupMenu;
Align:= alClient;

5
ide/environmentopts.pp
View File

@ -1061,7 +1061,10 @@ begin
Name:='NoteBook';
Parent:=Self;
SetBounds(0,0,Self.ClientWidth,Self.ClientHeight-50);
Pages[0]:='Desktop';
if PageCount>0 then
Pages[0]:='Desktop'
else
Pages.Add('Desktop');
Pages.Add('Form Editor');
Pages.Add('Object Inspector');
Pages.Add('Files');

5
ide/runparamsopts.pas
View File

@ -398,7 +398,10 @@ begin
Name:='Notebook';
Parent:=Self;
SetBounds(0,0,Self.ClientWidth,Self.ClientHeight-50);
Pages[0]:='Local';
if PageCount>0 then
Pages[0]:='Local'
else
Pages.Add('Local');
Pages.Add('Environment');
Visible:=true;
end;