dub insp, refresh from ctxt menu

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

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;

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