added editable options to mini explorer, close #4

src/ce_miniexplorer.lfm

@@ -3,6 +3,7 @@ inherited CEMiniExplorerWidget: TCEMiniExplorerWidget
   Height = 598
   Top = 4
   Width = 343
+  ActiveControl = lstFav
   Caption = 'Mini explorer'
   ClientHeight = 598
   ClientWidth = 343
@@ -28,7 +29,7 @@ inherited CEMiniExplorerWidget: TCEMiniExplorerWidget
         AutoWidthLastColumn = True
         Columns = <        
           item
-            Width = 314
+            Width = 330
           end>
         ReadOnly = True
         ShowColumnHeaders = False
@@ -90,7 +91,7 @@ inherited CEMiniExplorerWidget: TCEMiniExplorerWidget
           AutoWidthLastColumn = True
           Columns = <          
             item
-              Width = 314
+              Width = 330
             end>
           ReadOnly = True
           ShowColumnHeaders = False

src/ce_miniexplorer.pas

@@ -8,22 +8,49 @@ uses
   Classes, SysUtils, FileUtil, ListFilterEdit, Forms, Controls, Graphics,
   ExtCtrls, Menus, ComCtrls, Buttons, lcltype, strutils, ce_widget, ce_sharedres,
   ce_common, ce_interfaces, ce_observer, ce_writableComponent, ce_dubproject,
-  ce_nativeproject, EditBtn, ce_dialogs;
+  ce_nativeproject, EditBtn, ce_dialogs, ce_synmemo;
 
 type
 
+  TExplorerDoubleClick = (openInside, openOutside);
+
+  TCEMiniExplorerWidget = class;
+
+  TCEMiniExplorerEditableOptions = class(TPersistent, ICEEditableOptions)
+  private
+    fDblClick: TExplorerDoubleClick;
+    fContextExpand: boolean;
+    fExplorer: TCEMiniExplorerWidget;
+    function optionedWantCategory(): string;
+    function optionedWantEditorKind: TOptionEditorKind;
+    function optionedWantContainer: TPersistent;
+    procedure optionedEvent(anEvent: TOptionEditorEvent);
+    function optionedOptionsModified: boolean;
+    procedure apply;
+  published
+    property doubleClick: TExplorerDoubleClick read fDblClick write fDblClick;
+    property contextExpand: boolean read fContextExpand write fContextExpand;
+  public
+    constructor create(miniexpl: TCEMiniExplorerWidget);
+    destructor destroy; override;
+  end;
+
   TCEMiniExplorerOptions = class(TWritableLfmTextComponent)
   private
     fFavoriteFolders: TStringList;
     fSplitter1Position: integer;
     fSplitter2Position: integer;
     fLastFolder: string;
+    fDblClick: TExplorerDoubleClick;
+    fContextExpand: boolean;
     procedure setFavoriteFolders(aValue: TStringList);
   published
     property splitter1Position: integer read fSplitter1Position write fSplitter1Position;
     property splitter2Position: integer read fSplitter2Position write fSplitter2Position;
     property lastFolder: string read fLastFolder write fLastFolder;
     property favoriteFolders: TStringList read fFavoriteFolders write setFavoriteFolders;
+    property doubleClick: TExplorerDoubleClick read fDblClick write fDblClick;
+    property contextExpand: boolean read fContextExpand write fContextExpand;
   public
     constructor create(aOwner: TComponent); override;
     destructor destroy; override;
@@ -33,7 +60,7 @@ type
 
   { TCEMiniExplorerWidget }
 
-  TCEMiniExplorerWidget = class(TCEWidget, ICEProjectObserver)
+  TCEMiniExplorerWidget = class(TCEWidget, ICEProjectObserver, ICEMultiDocObserver)
     btnAddFav: TBitBtn;
     btnEdit: TBitBtn;
     btnShellOpen: TBitBtn;
@@ -60,6 +87,9 @@ type
     fFavorites: TStringList;
     fLastFold: string;
     fLastListOrTree: TControl;
+    fDblClick: TExplorerDoubleClick;
+    fContextExpand: boolean;
+    fEditableOptions: TCEMiniExplorerEditableOptions;
     procedure lstFavDblClick(Sender: TObject);
     procedure updateFavorites;
     procedure treeSetRoots;
@@ -82,6 +112,11 @@ type
     procedure projClosing(aProject: ICECommonProject);
     procedure projFocused(aProject: ICECommonProject);
     procedure projCompiling(aProject: ICECommonProject);
+    //
+    procedure docNew(aDoc: TCESynMemo);
+    procedure docFocused(aDoc: TCESynMemo);
+    procedure docChanged(aDoc: TCESynMemo);
+    procedure docClosing(aDoc: TCESynMemo);
   public
     constructor create(aIwner: TComponent); override;
     destructor destroy; override;
@@ -95,6 +130,52 @@ implementation
 const
   OptsFname = 'miniexplorer.txt';
 
+
+{$REGION TCEMiniExplorerEditableOptions}
+constructor TCEMiniExplorerEditableOptions.create(miniexpl: TCEMiniExplorerWidget);
+begin
+  fExplorer := miniexpl;
+  EntitiesConnector.addObserver(self);
+end;
+
+destructor TCEMiniExplorerEditableOptions.destroy;
+begin
+  EntitiesConnector.removeObserver(self);
+  inherited;
+end;
+
+procedure TCEMiniExplorerEditableOptions.apply;
+begin
+  fExplorer.fContextExpand:= fContextExpand;
+  fExplorer.fDblClick:= fDblClick;
+end;
+
+function TCEMiniExplorerEditableOptions.optionedWantCategory(): string;
+begin
+  exit('Mini explorer');
+end;
+
+function TCEMiniExplorerEditableOptions.optionedWantEditorKind: TOptionEditorKind;
+begin
+  exit(oekGeneric);
+end;
+
+function TCEMiniExplorerEditableOptions.optionedWantContainer: TPersistent;
+begin
+  exit(self);
+end;
+
+procedure TCEMiniExplorerEditableOptions.optionedEvent(anEvent: TOptionEditorEvent);
+begin
+  apply;
+end;
+
+function TCEMiniExplorerEditableOptions.optionedOptionsModified: boolean;
+begin
+  exit(false);
+end;
+{$ENDREGION}
+
 {$REGION TCEMiniExplorerOptions ------------------------------------------------}
 constructor TCEMiniExplorerOptions.create(aOwner: TComponent);
 begin
@@ -119,6 +200,8 @@ begin
     fLastFolder := widg.fLastFold;
     fSplitter1Position := widg.Splitter1.GetSplitterPosition;
     fSplitter2Position := widg.Splitter2.GetSplitterPosition;
+    fDblClick:= widg.fDblClick;
+    fContextExpand:=widg.fContextExpand;
   end
   else inherited;
 end;
@@ -134,6 +217,10 @@ begin
     widg.fLastFold:=fLastFolder;
     widg.Splitter1.SetSplitterPosition(fSplitter1Position);
     widg.Splitter2.SetSplitterPosition(fSplitter2Position);
+    widg.fDblClick := fDblClick;
+    widg.fEditableOptions.fDblClick := fDblClick;
+    widg.fContextExpand := fContextExpand;
+    widg.fEditableOptions.fContextExpand := fContextExpand;
     widg.updateFavorites;
     if widg.fLastFold.dirExists then
       widg.expandPath(fLastFolder);
@@ -154,6 +241,8 @@ var
 begin
   inherited;
   //
+  fEditableOptions:= TCEMiniExplorerEditableOptions.create(self);
+  //
   AssignPng(btnAddFav, 'folder_add');
   AssignPng(btnRemFav, 'folder_delete');
   AssignPng(btnShellOpen, 'flash');
@@ -200,6 +289,7 @@ begin
     free;
   end;
   //
+  fEditableOptions.Free;
   fFavorites.Free;
   inherited;
 end;
@@ -230,6 +320,8 @@ end;
 procedure TCEMiniExplorerWidget.projFocused(aProject: ICECommonProject);
 begin
   fProj := aProject;
+  if visible and aProject.fileName.fileExists and fContextExpand then
+    expandPath(aProject.fileName.extractFilePath);
 end;
 
 procedure TCEMiniExplorerWidget.projCompiling(aProject: ICECommonProject);
@@ -237,6 +329,26 @@ begin
 end;
 {$ENDREGION}
 
+{$REGION ICEMultidocObserver ---------------------------------------------------}
+procedure TCEMiniExplorerWidget.docNew(aDoc: TCESynMemo);
+begin
+end;
+
+procedure TCEMiniExplorerWidget.docFocused(aDoc: TCESynMemo);
+begin
+  if visible and aDoc.fileName.fileExists and fContextExpand then
+    expandPath(aDoc.fileName.extractFilePath);
+end;
+
+procedure TCEMiniExplorerWidget.docChanged(aDoc: TCESynMemo);
+begin
+end;
+
+procedure TCEMiniExplorerWidget.docClosing(aDoc: TCESynMemo);
+begin
+end;
+{$ENDREGION}
+
 {$REGION Favorites -------------------------------------------------------------}
 procedure TCEMiniExplorerWidget.favStringsChange(sender: TObject);
 begin
@@ -380,7 +492,10 @@ end;
 
 procedure TCEMiniExplorerWidget.lstFilesDblClick(Sender: TObject);
 begin
-  shellOpenSelected;
+  case fDblClick of
+    openInside: btnEditClick(nil);
+    openOutside: shellOpenSelected;
+  end;
 end;
 
 procedure TCEMiniExplorerWidget.lstFilesEnter(Sender: TObject);