From 14ea706981ad3a6ddaa324a657dcd0ba2d01ef7e Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Wed, 3 Jun 2015 11:17:26 +0200
Subject: [PATCH] fix, dock options editor, content could be partially hidden

put in a scrollbox
---
 src/ce_dockoptions.pas | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/src/ce_dockoptions.pas b/src/ce_dockoptions.pas
index e33739a2..54b0c365 100644
--- a/src/ce_dockoptions.pas
+++ b/src/ce_dockoptions.pas
@@ -5,8 +5,8 @@ unit ce_dockoptions;
 interface
 
 uses
-  Classes, SysUtils, AnchorDocking, AnchorDockOptionsDlg, XMLPropStorage, AnchorDockStr,
-  ce_observer, ce_interfaces;
+  Classes, SysUtils, AnchorDocking, AnchorDockOptionsDlg, XMLPropStorage,
+  AnchorDockStr, Forms, Controls, ce_observer, ce_interfaces;
 
 type
 
@@ -33,6 +33,7 @@ implementation
 
 var
   DockOptionsEditor: TDockOptionsEditor;
+  DockOptionContainer: TScrollBox;
 
 constructor TDockOptionsEditor.Create(TheOwner: TComponent);
 begin
@@ -76,7 +77,7 @@ begin
   fBackup.Clear;
   DockMaster.SaveSettingsToConfig(fBackup);
   LoadFromMaster;
-  exit(self);
+  exit(DockOptionContainer);
 end;
 
 procedure TDockOptionsEditor.optionedEvent(anEvent: TOptionEditorEvent);
@@ -145,7 +146,12 @@ end;
 
 initialization
   DockOptionsEditor := TDockOptionsEditor.Create(nil);
+  DockOptionContainer:= TScrollBox.Create(nil);
+  DockOptionsEditor.Parent := DockOptionContainer;
+  DockOptionContainer.Align:= alClient;
+  DockOptionsEditor.Align:= alClient;
 
 finalization
   DockOptionsEditor.Free;
+  DockOptionContainer.Free;
 end.