paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 07:38:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: codetools defines editor: replaced TNoteBook with TPageControl

Browse Source 
git-svn-id: trunk@27355 -
This commit is contained in:
mattias 2010-09-13 20:51:11 +00:00
parent 706ab315ff
commit c023825bb7
3 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/codetoolsdefines.lfm
View File

@ -75,7 +75,7 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
Caption = 'VariableLabel'
ParentColor = False
end
object ValueNoteBook: TNotebook
object ValueNoteBook: TPageControl
Left = 6
Height = 198
Top = 106
@ -84,9 +84,8 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
OnPageChanged = ValueNoteBookPageChanged
PageIndex = 0
TabOrder = 0
object ValueAsTextPage: TPage
object ValueAsTextPage: TTabSheet
Caption = 'ValueAsTextPage'
ClientWidth = 508
ClientHeight = 170
@ -698,7 +697,7 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
end
end
end
object ValueAsPathsPage: TPage
object ValueAsPathsPage: TTabSheet
Caption = 'ValueAsPathsPage'
ClientWidth = 508
ClientHeight = 168

6
ide/codetoolsdefines.pas
View File

@ -72,8 +72,8 @@ type
MenuItem29: TMenuItem;
MenuItem3: TMenuItem;
MenuItem30: TMenuItem;
ValueAsTextPage: TPage;
ValueAsPathsPage: TPage;
ValueAsTextPage: TTabSheet;
ValueAsPathsPage: TTabSheet;
MainSplitter: TSplitter;
MainMenu: TMainMenu;
@ -167,7 +167,7 @@ type
DescriptionEdit: TEdit;
VariableLabel: TLabel;
VariableEdit: TEdit;
ValueNoteBook: TNoteBook;
ValueNoteBook: TPageControl;
ValueAsTextSynEdit: TSynEdit;
ValueAsFilePathsSynEdit: TSynEdit;
MoveFilePathUpBitBtn: TBitBtn;

8
ide/main.pp
View File

@ -628,7 +628,7 @@ type
procedure ConnectMainBarEvents;
procedure SetupSpeedButtons;
procedure SetupDialogs;
procedure SetupComponentNoteBook;
procedure SetupComponentPalette;
procedure SetupHints;
procedure SetupOutputFilter;
procedure SetupObjectInspector;
@ -1324,7 +1324,7 @@ begin
SetupStandardIDEMenuItems;
SetupMainMenu;
SetupSpeedButtons;
SetupComponentNoteBook;
SetupComponentPalette;
ConnectMainBarEvents;
finally
MainIDEBar.EnableAutoSizing{$IFDEF DebugDisableAutoSizing}('TMainIDE.Create'){$ENDIF};
@ -1822,9 +1822,9 @@ begin
TestCompilerOptions:=@OnCompilerOptionsDialogTest;
end;
procedure TMainIDE.SetupComponentNoteBook;
procedure TMainIDE.SetupComponentPalette;
begin
// Component Notebook
// Component palette
MainIDEBar.ComponentPageControl := TPageControl.Create(OwningComponent);
with MainIDEBar.ComponentPageControl do begin
Name := 'ComponentPageControl';