IDE: added splitter to options

git-svn-id: trunk@26298 -

examples/anchordocking/anchordocking.pas

@@ -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;
 

ide/ideoptionsdlg.lfm

@@ -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[0]
-  object ButtonPanel: TButtonPanel
     AnchorSideLeft.Control = Owner
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     AnchorSideBottom.Control = Owner
     Left = 6
-    Height = 34
+    Height = 42
-    Top = 460
+    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

ide/ideoptionsdlg.pas

@@ -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.Align := alClient;
-    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.BorderSpacing.Around := 6;
     //AEditor.Parent := Self;
     AEditor.Visible := True;