From 9f7b702417aa465e51fdb36c981b98f96b3c1e9e Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Thu, 19 Feb 2015 03:19:09 +0100
Subject: [PATCH] option editor made non-dockable

---
 src/ce_optionseditor.lfm | 19 +++++++++++--------
 src/ce_optionseditor.pas |  4 ++++
 2 files changed, 15 insertions(+), 8 deletions(-)

diff --git a/src/ce_optionseditor.lfm b/src/ce_optionseditor.lfm
index b23540ad..a62d3f34 100644
--- a/src/ce_optionseditor.lfm
+++ b/src/ce_optionseditor.lfm
@@ -1,11 +1,13 @@
 inherited CEOptionEditorWidget: TCEOptionEditorWidget
-  Left = 626
+  Left = 594
   Height = 377
-  Top = 270
+  Top = 257
   Width = 548
+  BorderIcons = [biSystemMenu, biMinimize, biMaximize]
   Caption = 'Options editor'
   ClientHeight = 377
   ClientWidth = 548
+  FormStyle = fsSystemStayOnTop
   inherited Back: TPanel
     Height = 377
     Width = 548
@@ -31,7 +33,7 @@ inherited CEOptionEditorWidget: TCEOptionEditorWidget
           Left = 0
           Height = 335
           Top = 0
-          Width = 193
+          Width = 140
           Align = alLeft
           DefaultItemHeight = 18
           ScrollBars = ssAutoBoth
@@ -40,31 +42,32 @@ inherited CEOptionEditorWidget: TCEOptionEditorWidget
           OnSelectionChanged = selCatSelectionChanged
         end
         object pnlEd: TPanel
-          Left = 199
+          Left = 146
           Height = 335
           Top = 0
-          Width = 341
+          Width = 394
           Align = alClient
           BevelOuter = bvNone
           ClientHeight = 335
-          ClientWidth = 341
+          ClientWidth = 394
           TabOrder = 1
           object inspector: TTIPropertyGrid
             Left = 0
             Height = 335
             Top = 0
-            Width = 341
+            Width = 394
             Align = alClient
             DefaultValueFont.Color = clWindowText
             Filter = [tkInteger, tkChar, tkEnumeration, tkFloat, tkSet, tkMethod, tkSString, tkLString, tkAString, tkWString, tkVariant, tkArray, tkRecord, tkInterface, tkClass, tkObject, tkWChar, tkBool, tkInt64, tkQWord, tkDynArray, tkInterfaceRaw, tkProcVar, tkUString, tkUChar, tkHelper]
             Indent = 16
             NameFont.Color = clWindowText
             OnModified = inspectorModified
+            SplitterX = 200
             ValueFont.Color = clMaroon
           end
         end
         object Splitter1: TSplitter
-          Left = 193
+          Left = 140
           Height = 335
           Top = 0
           Width = 6
diff --git a/src/ce_optionseditor.pas b/src/ce_optionseditor.pas
index cf3ed2ff..fb6cb26b 100644
--- a/src/ce_optionseditor.pas
+++ b/src/ce_optionseditor.pas
@@ -51,6 +51,7 @@ var
   png: TPortableNetworkGraphic;
 begin
   inherited;
+  fDockable := false;
   fEdOptsSubj := TCEEditableOptionsSubject.create;
   //
   png := TPortableNetworkGraphic.Create;
@@ -149,6 +150,9 @@ begin
   PCategoryData(selCat.Selected.Data)^
     .observer
     .optionedEvent(oeeCancel);
+  //
+  // if generic editor then
+  //  refresh displayed value since the provider may have updated the options container
 end;
 
 procedure TCEOptionEditorWidget.btnAcceptClick(Sender: TObject);