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

dub editor, put action refresh in toolbar

This commit is contained in:
Basile Burg 2016-04-24 18:13:30 +02:00
parent 0c1238095f
commit aa368843b5
2 changed files with 32 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/ce_dubprojeditor.lfm
View File

@ -1,7 +1,7 @@
inherited CEDubProjectEditorWidget: TCEDubProjectEditorWidget inherited CEDubProjectEditorWidget: TCEDubProjectEditorWidget
Left = 1471 Left = 771
Height = 424 Height = 424
Top = 10 Top = 245
Width = 411 Width = 411
Caption = 'Dub project editor' Caption = 'Dub project editor'
ClientHeight = 424 ClientHeight = 424
@ -28,7 +28,7 @@ inherited CEDubProjectEditorWidget: TCEDubProjectEditorWidget
TabOrder = 0 TabOrder = 0
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Inspector' Caption = 'Inspector'
ClientHeight = 388 ClientHeight = 380
ClientWidth = 395 ClientWidth = 395
object pnlToolBar1: TPanel object pnlToolBar1: TPanel
Left = 4 Left = 4
@ -44,10 +44,10 @@ inherited CEDubProjectEditorWidget: TCEDubProjectEditorWidget
ClientWidth = 387 ClientWidth = 387
TabOrder = 0 TabOrder = 0
object fltInspect: TTreeFilterEdit object fltInspect: TTreeFilterEdit
Left = 2 Left = 30
Height = 22 Height = 22
Top = 2 Top = 2
Width = 383 Width = 355
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
Align = alClient Align = alClient
@ -56,15 +56,27 @@ inherited CEDubProjectEditorWidget: TCEDubProjectEditorWidget
TabOrder = 0 TabOrder = 0
FilteredTreeview = treeInspect FilteredTreeview = treeInspect
end end
object btnRefresh: TBitBtn
Left = 0
Height = 26
Hint = 'refresh the files and configurations'
Top = 0
Width = 28
Align = alLeft
Layout = blGlyphBottom
OnClick = btnRefreshClick
Spacing = 0
TabOrder = 1
end
end end
object treeInspect: TTreeView object treeInspect: TTreeView
Left = 4 Left = 4
Height = 352 Height = 344
Top = 32 Top = 32
Width = 387 Width = 387
Align = alClient Align = alClient
BorderSpacing.Around = 4 BorderSpacing.Around = 4
DefaultItemHeight = 18 DefaultItemHeight = 16
DragMode = dmAutomatic DragMode = dmAutomatic
HideSelection = False HideSelection = False
Images = imgList Images = imgList

16
src/ce_dubprojeditor.pas
View File

@ -29,6 +29,7 @@ type
btnAcceptProp: TSpeedButton; btnAcceptProp: TSpeedButton;
btnAddProp: TSpeedButton; btnAddProp: TSpeedButton;
btnDelProp: TSpeedButton; btnDelProp: TSpeedButton;
btnRefresh: TBitBtn;
edProp: TEdit; edProp: TEdit;
fltEdit: TTreeFilterEdit; fltEdit: TTreeFilterEdit;
imgList: TImageList; imgList: TImageList;
@ -45,6 +46,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 btnRefreshClick(Sender: TObject);
procedure MenuItem1Click(Sender: TObject); procedure MenuItem1Click(Sender: TObject);
procedure propTreeSelectionChanged(Sender: TObject); procedure propTreeSelectionChanged(Sender: TObject);
procedure treeInspectDblClick(Sender: TObject); procedure treeInspectDblClick(Sender: TObject);
@ -147,6 +149,7 @@ begin
AssignPng(btnAddProp, 'textfield_add'); AssignPng(btnAddProp, 'textfield_add');
AssignPng(btnDelProp, 'textfield_delete'); AssignPng(btnDelProp, 'textfield_delete');
AssignPng(btnAcceptProp, 'accept'); AssignPng(btnAcceptProp, 'accept');
AssignPng(btnRefresh, 'arrow_update');
end; end;
procedure TCEDubProjectEditorWidget.SetVisible(Value: boolean); procedure TCEDubProjectEditorWidget.SetVisible(Value: boolean);
@ -315,11 +318,18 @@ begin
updateValueEditor; updateValueEditor;
end; end;
procedure TCEDubProjectEditorWidget.btnRefreshClick(Sender: TObject);
begin
if fProj.isNil or not fProj.filename.fileExists then
exit;
fProj.loadFromFile(fProj.filename);
end;
procedure TCEDubProjectEditorWidget.MenuItem1Click(Sender: TObject); procedure TCEDubProjectEditorWidget.MenuItem1Click(Sender: TObject);
begin begin
if fProj.isNil then exit; if fProj.isNil or not fProj.filename.fileExists then
fProj.beginModification; exit;
fProj.endModification; fProj.loadFromFile(fProj.filename);
end; end;
procedure TCEDubProjectEditorWidget.setJsonValueFromEditor; procedure TCEDubProjectEditorWidget.setJsonValueFromEditor;