paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 20:40:36 +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' Caption = 'VariableLabel'
ParentColor = False ParentColor = False
end end
object ValueNoteBook: TNotebook object ValueNoteBook: TPageControl
Left = 6 Left = 6
Height = 198 Height = 198
Top = 106 Top = 106
@ -84,9 +84,8 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
OnPageChanged = ValueNoteBookPageChanged OnPageChanged = ValueNoteBookPageChanged
PageIndex = 0
TabOrder = 0 TabOrder = 0
object ValueAsTextPage: TPage object ValueAsTextPage: TTabSheet
Caption = 'ValueAsTextPage' Caption = 'ValueAsTextPage'
ClientWidth = 508 ClientWidth = 508
ClientHeight = 170 ClientHeight = 170
@ -698,7 +697,7 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
end end
end end
end end
object ValueAsPathsPage: TPage object ValueAsPathsPage: TTabSheet
Caption = 'ValueAsPathsPage' Caption = 'ValueAsPathsPage'
ClientWidth = 508 ClientWidth = 508
ClientHeight = 168 ClientHeight = 168

6
ide/codetoolsdefines.pas
View File

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

8
ide/main.pp
View File

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