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

anchordocking: replaced TNoteBook with TPageControl

Browse Source 
git-svn-id: trunk@27927 -
This commit is contained in:
mattias 2010-10-28 15:16:18 +00:00
parent 53d3deda92
commit 7d0234c10c
2 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
examples/anchordocking/minide/unit1.lfm
View File

@ -10,18 +10,17 @@ object MainIDE: TMainIDE
Menu = MainMenu1 Menu = MainMenu1
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '0.9.29' LCLVersion = '0.9.29'
object ComponentPalette: TNotebook object ComponentPalette: TPageControl
Left = 208 Left = 208
Height = 85 Height = 85
Top = 0 Top = 0
Width = 297 Width = 297
Align = alClient Align = alClient
PageIndex = 1
TabOrder = 0 TabOrder = 0
object Page1: TPage object Page1: TTabSheet
Caption = 'Page1' Caption = 'Page1'
end end
object Page2: TPage object Page2: TTabSheet
Caption = 'Page2' Caption = 'Page2'
end end
end end

6
examples/anchordocking/minide/unit1.pas
View File

@ -16,11 +16,11 @@ type
TMainIDE = class(TForm) TMainIDE = class(TForm)
ImageList1: TImageList; ImageList1: TImageList;
MainMenu1: TMainMenu; MainMenu1: TMainMenu;
ComponentPalette: TNotebook; ComponentPalette: TPageControl;
NewFileMenuItem: TMenuItem; NewFileMenuItem: TMenuItem;
OpenFileMenuItem: TMenuItem; OpenFileMenuItem: TMenuItem;
Page1: TPage; Page1: TTabSheet;
Page2: TPage; Page2: TTabSheet;
BtnPanel: TPanel; BtnPanel: TPanel;
QuitMenuItem: TMenuItem; QuitMenuItem: TMenuItem;
FileMenuItem: TMenuItem; FileMenuItem: TMenuItem;