forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

dub insp, refresh from ctxt menu

This commit is contained in:
Basile Burg 2016-02-12 14:33:39 +01:00
parent cac8b85e98
commit 3da5b494da
3 changed files with 19 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/ce_dubprojeditor.lfm
View File

@ -28,7 +28,7 @@ inherited CEDubProjectEditorWidget: TCEDubProjectEditorWidget
TabOrder = 0 TabOrder = 0
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Inspector' Caption = 'Inspector'
ClientHeight = 380 ClientHeight = 388
ClientWidth = 395 ClientWidth = 395
object pnlToolBar1: TPanel object pnlToolBar1: TPanel
Left = 4 Left = 4
@ -59,15 +59,16 @@ inherited CEDubProjectEditorWidget: TCEDubProjectEditorWidget
end end
object treeInspect: TTreeView object treeInspect: TTreeView
Left = 4 Left = 4
Height = 344 Height = 352
Top = 32 Top = 32
Width = 387 Width = 387
Align = alClient Align = alClient
BorderSpacing.Around = 4 BorderSpacing.Around = 4
DefaultItemHeight = 16 DefaultItemHeight = 18
DragMode = dmAutomatic DragMode = dmAutomatic
HideSelection = False HideSelection = False
Images = imgList Images = imgList
PopupMenu = contextMenu
ReadOnly = True ReadOnly = True
ScrollBars = ssAutoBoth ScrollBars = ssAutoBoth
TabOrder = 1 TabOrder = 1
@ -91,7 +92,7 @@ inherited CEDubProjectEditorWidget: TCEDubProjectEditorWidget
Width = 387 Width = 387
Align = alClient Align = alClient
BorderSpacing.Around = 4 BorderSpacing.Around = 4
DefaultItemHeight = 16 DefaultItemHeight = 18
HideSelection = False HideSelection = False
Images = imgList Images = imgList
ReadOnly = True ReadOnly = True
@ -189,6 +190,10 @@ inherited CEDubProjectEditorWidget: TCEDubProjectEditorWidget
inherited contextMenu: TPopupMenu inherited contextMenu: TPopupMenu
left = 248 left = 248
top = 8 top = 8
object MenuItem1: TMenuItem[0]
Caption = 'Refresh'
OnClick = MenuItem1Click
end
end end
object imgList: TImageList[2] object imgList: TImageList[2]
left = 208 left = 208

9
src/ce_dubprojeditor.pas
View File

@ -32,6 +32,7 @@ type
edProp: TEdit; edProp: TEdit;
fltEdit: TTreeFilterEdit; fltEdit: TTreeFilterEdit;
imgList: TImageList; imgList: TImageList;
MenuItem1: TMenuItem;
PageControl1: TPageControl; PageControl1: TPageControl;
Panel1: TPanel; Panel1: TPanel;
pnlToolBar: TPanel; pnlToolBar: TPanel;
@ -44,6 +45,7 @@ type
procedure btnAcceptPropClick(Sender: TObject); procedure btnAcceptPropClick(Sender: TObject);
procedure btnAddPropClick(Sender: TObject); procedure btnAddPropClick(Sender: TObject);
procedure btnDelPropClick(Sender: TObject); procedure btnDelPropClick(Sender: TObject);
procedure MenuItem1Click(Sender: TObject);
procedure propTreeSelectionChanged(Sender: TObject); procedure propTreeSelectionChanged(Sender: TObject);
procedure treeInspectDblClick(Sender: TObject); procedure treeInspectDblClick(Sender: TObject);
private private
@ -313,6 +315,13 @@ begin
updateValueEditor; updateValueEditor;
end; end;
procedure TCEDubProjectEditorWidget.MenuItem1Click(Sender: TObject);
begin
if fProj.isNil then exit;
fProj.beginModification;
fProj.endModification;
end;
procedure TCEDubProjectEditorWidget.setJsonValueFromEditor; procedure TCEDubProjectEditorWidget.setJsonValueFromEditor;
var var
dat: TJSONData; dat: TJSONData;

2
src/ce_miniexplorer.lfm
View File

@ -63,7 +63,7 @@ inherited CEMiniExplorerWidget: TCEMiniExplorerWidget
Top = 32 Top = 32
Width = 335 Width = 335
Align = alTop Align = alTop
DefaultItemHeight = 16 DefaultItemHeight = 18
Images = imgList Images = imgList
ReadOnly = True ReadOnly = True
ScrollBars = ssAutoBoth ScrollBars = ssAutoBoth