paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 13:45:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: added splitter to options

Browse Source 
git-svn-id: trunk@26298 -
This commit is contained in:
mattias 2010-06-27 17:10:47 +00:00
parent fbf7b6f9ac
commit e30e46cf41
3 changed files with 33 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
examples/anchordocking/anchordocking.pas
View File

@ -519,6 +519,13 @@ type
property PageClass: TAnchorDockPageClass read FPageClass write FPageClass;
end;
{ TControl_Hack }
TControl_Hack = class(TControl)
published
property OnStartDock; // was Protected
end;
var
DockMaster: TAnchorDockMaster = nil;

32
ide/ideoptionsdlg.lfm
View File

@ -1,4 +1,4 @@
object IDEOptionsDialog: TIDEOptionsDialog
inherited IDEOptionsDialog: TIDEOptionsDialog
Left = 317
Height = 500
Top = 304
@ -11,36 +11,44 @@ object IDEOptionsDialog: TIDEOptionsDialog
Constraints.MinWidth = 700
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '0.9.29'
object ButtonPanel: TButtonPanel
object ButtonPanel: TButtonPanel[0]
AnchorSideLeft.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
Left = 6
Height = 34
Top = 460
Height = 42
Top = 452
Width = 688
BorderSpacing.Left = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
BorderSpacing.Around = 0
OKButton.Name = 'OKButton'
OKButton.Caption = '&OK'
HelpButton.Name = 'HelpButton'
HelpButton.Caption = '&Help'
CloseButton.Name = 'CloseButton'
CloseButton.Caption = '&Close'
CloseButton.Enabled = False
CancelButton.Name = 'CancelButton'
CancelButton.Caption = 'Cancel'
TabOrder = 1
ShowButtons = [pbOK, pbCancel, pbHelp]
end
object CategoryTree: TTreeView
object CategoryTree: TTreeView[1]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideBottom.Control = ButtonPanel
Left = 6
Height = 454
Height = 446
Top = 6
Width = 206
Anchors = [akTop, akLeft, akBottom]
Align = alLeft
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Constraints.MinWidth = 206
DefaultItemHeight = 17
DefaultItemHeight = 19
ReadOnly = True
TabOrder = 0
OnChange = CategoryTreeChange
@ -49,4 +57,10 @@ object IDEOptionsDialog: TIDEOptionsDialog
OnKeyDown = CategoryTreeKeyDown
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
end
object CatTVSplitter: TSplitter[2]
Left = 212
Height = 452
Top = 0
Width = 5
end
end

12
ide/ideoptionsdlg.pas
View File

@ -31,7 +31,7 @@ interface
uses
Classes, SysUtils, Controls, Forms, ComCtrls, LCLProc, LCLType,
Buttons, ButtonPanel,
Buttons, ButtonPanel, ExtCtrls,
EnvironmentOpts, LazarusIDEStrConsts, IDEWindowIntf, IDEOptionsIntf,
EditorOptions, IDECommands;
@ -41,6 +41,7 @@ type
TIDEOptionsDialog = class(TAbstractOptionsEditorDialog)
ButtonPanel: TButtonPanel;
CategoryTree: TTreeView;
CatTVSplitter: TSplitter;
procedure CategoryTreeChange(Sender: TObject; Node: TTreeNode);
procedure CategoryTreeCollapsed(Sender: TObject; Node: TTreeNode);
procedure CategoryTreeExpanded(Sender: TObject; Node: TTreeNode);
@ -137,14 +138,7 @@ begin
PrevEditor.Visible := False;
//PrevEditor.Parent := nil;
AEditor.Anchors := [akLeft, akTop, akRight, akBottom];
AEditor.AnchorSideLeft.Side := asrBottom;
AEditor.AnchorSideLeft.Control := CategoryTree;
AEditor.AnchorSideTop.Control := Self;
AEditor.AnchorSideRight.Side := asrBottom;
AEditor.AnchorSideRight.Control := Self;
AEditor.AnchorSideBottom.Side := asrTop;
AEditor.AnchorSideBottom.Control := CategoryTree.AnchorSide[akBottom].Control;
AEditor.Align := alClient;
AEditor.BorderSpacing.Around := 6;
//AEditor.Parent := Self;
AEditor.Visible := True;