From 3da5b494da5efb0495008d7298ea1ba93f859f5b Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Fri, 12 Feb 2016 14:33:39 +0100
Subject: [PATCH] dub insp, refresh from ctxt menu

---
 src/ce_dubprojeditor.lfm | 13 +++++++++----
 src/ce_dubprojeditor.pas |  9 +++++++++
 src/ce_miniexplorer.lfm  |  2 +-
 3 files changed, 19 insertions(+), 5 deletions(-)

diff --git a/src/ce_dubprojeditor.lfm b/src/ce_dubprojeditor.lfm
index f73cbdc6..5ab58e63 100644
--- a/src/ce_dubprojeditor.lfm
+++ b/src/ce_dubprojeditor.lfm
@@ -28,7 +28,7 @@ inherited CEDubProjectEditorWidget: TCEDubProjectEditorWidget
         TabOrder = 0
         object TabSheet1: TTabSheet
           Caption = 'Inspector'
-          ClientHeight = 380
+          ClientHeight = 388
           ClientWidth = 395
           object pnlToolBar1: TPanel
             Left = 4
@@ -59,15 +59,16 @@ inherited CEDubProjectEditorWidget: TCEDubProjectEditorWidget
           end
           object treeInspect: TTreeView
             Left = 4
-            Height = 344
+            Height = 352
             Top = 32
             Width = 387
             Align = alClient
             BorderSpacing.Around = 4
-            DefaultItemHeight = 16
+            DefaultItemHeight = 18
             DragMode = dmAutomatic
             HideSelection = False
             Images = imgList
+            PopupMenu = contextMenu
             ReadOnly = True
             ScrollBars = ssAutoBoth
             TabOrder = 1
@@ -91,7 +92,7 @@ inherited CEDubProjectEditorWidget: TCEDubProjectEditorWidget
             Width = 387
             Align = alClient
             BorderSpacing.Around = 4
-            DefaultItemHeight = 16
+            DefaultItemHeight = 18
             HideSelection = False
             Images = imgList
             ReadOnly = True
@@ -189,6 +190,10 @@ inherited CEDubProjectEditorWidget: TCEDubProjectEditorWidget
   inherited contextMenu: TPopupMenu
     left = 248
     top = 8
+    object MenuItem1: TMenuItem[0]
+      Caption = 'Refresh'
+      OnClick = MenuItem1Click
+    end
   end
   object imgList: TImageList[2]
     left = 208
diff --git a/src/ce_dubprojeditor.pas b/src/ce_dubprojeditor.pas
index de3aef5a..1c413c90 100644
--- a/src/ce_dubprojeditor.pas
+++ b/src/ce_dubprojeditor.pas
@@ -32,6 +32,7 @@ type
     edProp: TEdit;
     fltEdit: TTreeFilterEdit;
     imgList: TImageList;
+    MenuItem1: TMenuItem;
     PageControl1: TPageControl;
     Panel1: TPanel;
     pnlToolBar: TPanel;
@@ -44,6 +45,7 @@ type
     procedure btnAcceptPropClick(Sender: TObject);
     procedure btnAddPropClick(Sender: TObject);
     procedure btnDelPropClick(Sender: TObject);
+    procedure MenuItem1Click(Sender: TObject);
     procedure propTreeSelectionChanged(Sender: TObject);
     procedure treeInspectDblClick(Sender: TObject);
   private
@@ -313,6 +315,13 @@ begin
   updateValueEditor;
 end;
 
+procedure TCEDubProjectEditorWidget.MenuItem1Click(Sender: TObject);
+begin
+  if fProj.isNil then exit;
+  fProj.beginModification;
+  fProj.endModification;
+end;
+
 procedure TCEDubProjectEditorWidget.setJsonValueFromEditor;
 var
   dat: TJSONData;
diff --git a/src/ce_miniexplorer.lfm b/src/ce_miniexplorer.lfm
index f32f50fd..6434d4e3 100644
--- a/src/ce_miniexplorer.lfm
+++ b/src/ce_miniexplorer.lfm
@@ -63,7 +63,7 @@ inherited CEMiniExplorerWidget: TCEMiniExplorerWidget
           Top = 32
           Width = 335
           Align = alTop
-          DefaultItemHeight = 16
+          DefaultItemHeight = 18
           Images = imgList
           ReadOnly = True
           ScrollBars = ssAutoBoth