paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 09:59:32 +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
OnCreate = FormCreate
LCLVersion = '0.9.29'
object ComponentPalette: TNotebook
object ComponentPalette: TPageControl
Left = 208
Height = 85
Top = 0
Width = 297
Align = alClient
PageIndex = 1
TabOrder = 0
object Page1: TPage
object Page1: TTabSheet
Caption = 'Page1'
end
object Page2: TPage
object Page2: TTabSheet
Caption = 'Page2'
end
end

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

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