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

added a refresh btn

This commit is contained in:
Basile Burg 2014-08-11 01:43:21 +02:00
parent 4c645c6ccb
commit e342cb843b
2 changed files with 84 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

94
src/ce_staticexplorer.lfm
View File

@ -1,27 +1,27 @@
inherited CEStaticExplorerWidget: TCEStaticExplorerWidget
Left = 1592
Height = 276
Top = 609
Width = 261
Left = 1521
Height = 430
Top = 259
Width = 310
Caption = 'Static explorer'
ClientHeight = 276
ClientWidth = 261
ClientHeight = 430
ClientWidth = 310
inherited Back: TPanel
Height = 276
Width = 261
ClientHeight = 276
ClientWidth = 261
Height = 430
Width = 310
ClientHeight = 430
ClientWidth = 310
inherited Content: TPanel
Height = 276
Width = 261
ClientHeight = 276
ClientWidth = 261
Height = 430
Width = 310
ClientHeight = 430
ClientWidth = 310
PopupMenu = nil
object Tree: TTreeView[0]
Left = 4
Height = 240
Height = 394
Top = 32
Width = 253
Width = 302
Align = alClient
BorderSpacing.Around = 4
DefaultItemHeight = 18
@ -58,19 +58,19 @@ inherited CEStaticExplorerWidget: TCEStaticExplorerWidget
Left = 2
Height = 26
Top = 2
Width = 257
Width = 306
Align = alTop
BorderSpacing.Around = 2
BevelOuter = bvNone
ClientHeight = 26
ClientWidth = 257
ClientWidth = 306
PopupMenu = contextMenu
TabOrder = 1
object TreeFilterEdit1: TTreeFilterEdit
Left = 2
Left = 36
Height = 23
Top = 2
Width = 226
Width = 242
OnAfterFilter = TreeFilterEdit1AfterFilter
ButtonWidth = 23
NumGlyphs = 1
@ -81,11 +81,63 @@ inherited CEStaticExplorerWidget: TCEStaticExplorerWidget
TabOrder = 0
FilteredTreeview = Tree
end
object btnRefresh: TBitBtn
Left = 2
Height = 22
Hint = 'refresh the list'
Top = 2
Width = 30
Align = alLeft
BorderSpacing.Around = 2
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000FFFFFF000000
000000000000000000000000000A000000250000003300000033000000000000
0000000000000000000000000000000000000000000000000000FFFFFF000000
00000000000000000022664A265CAB7B3FC9B88444FFB98545FF000000000000
0000000000330000003300000033000000330000003300000032FFFFFF000000
00000000001EA8783FBBBE8A4AFFDEAC66FFF4C57BFFB88343FF000000000000
0000B98545FFB78343FFB68142FFB78242FFB98444FFBA8646FBFFFFFF000000
0006A3753DAAC18C4CFFECBC72FFF1C581FFF8D39DFFB78242FF000000000000
0000B78343FFF9C97EFFF6C67BFFF5CC8CFFCFA269F100000000FFFFFF005F44
243DBA8646FFE9B86DFFEDC07DFFEFCE9CFFD5AC71FFB88343FF000000000000
0000B68141FFF2C47EFFF0C482FFEAB86FFFBC8947FF0000001AFFFFFF00A879
3FB9D2A059FFE6B368FFEDCC9AFFC08F51FFB882428FBA854523000000000000
0000B78241FFF5D9ACFFF0CF9FFFEAB86CFFD4A25CFF9B6F3999FFFFFF00B884
44FFDDAB61FFE2B167FFD4AB77FFB782418E0000000000000000000000000000
0000B98443FFC5975CFAD7B282FFE6B266FFE0AE65FFB78243F9FFFFFF00B883
44FFDFAB5FFFE2B774FFC6995FFFB98544050000000100000000000000000000
0000BA8646F5B8834209C6975FFFE6BB79FFE5B36AFFB78344FFFFFFFF00B883
43FFDFB373FFDBA85EFFB78243FF000000020F0B063400000000000000000000
0000BB87470300000001B68242FFDFAC63FFE4B877FFB78243FFFFFFFF00B883
42FFE2BB83FFD59F52FFBF8B48FF251B0E32BA8646F800000000000000000000
0000000000001D150B20C08C49FFD9A557FFE5C087FFB78242FFFFFFFF00B782
42F8E1C192FFCF9A4AFFC18C48FFB58343DABA8545FF00000000000000000000
00070000001D9F723CA5C7924BFFD39E4FFFE3C395FFB88241FFFFFFFF00B984
4281D6B386FFD4A661FFC99243FFE4C79DFFB98443FF0000000000000000533C
1F4FA1743DA5BC8746FFCD984AFFD8AC6DFFD9B98EFFB78141AAFFFFFF000000
0000BD8D4FFFD1A668FFC48B39FFD9B580FFB88241FF0000000000000000BA86
46FFC28D45FFC99344FFD09E56FFE7CEAAFFBD8B4FFFB985441FFFFFFF000000
0032C99F6AF1E6CFACFFE9D3B2FFEAD5B4FFB88341FF0000000000000000B984
44FFCD9C54FFDAB57FFFEAD5B5FFC69A64FFB984429500000000FFFFFF00BB86
46FBB98444FFB88241FFB8813FFFB88241FFBA8545FF0000000000000000B983
42FFEAD5B6FFDBBD95FFC09054FFB98342AA0000000000000000FFFFFF000000
000000000000000000000000000000000000000000000000000000000000BA85
44FFBB8849FFB88241BBB9854433000000000000000000000000
}
OnClick = btnRefreshClick
TabOrder = 1
end
end
end
end
inherited contextMenu: TPopupMenu
left = 112
top = 48
end
object imgList: TImageList[2]
left = 32
left = 80
top = 48
Bitmap = {
4C69090000001000000010000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF

12
src/ce_staticexplorer.pas
View File

@ -7,14 +7,19 @@ interface
uses
Classes, SysUtils, FileUtil, TreeFilterEdit, Forms, Controls, Graphics,
Dialogs, ExtCtrls, Menus, ComCtrls, ce_widget, jsonparser, fpjson,
ce_synmemo, process, actnlist, ce_common, ce_project, AnchorDocking;
ce_synmemo, process, actnlist, Buttons, ce_common, ce_project, AnchorDocking;
type
{ TCEStaticExplorerWidget }
TCEStaticExplorerWidget = class(TCEWidget)
btnRefresh: TBitBtn;
imgList: TImageList;
Panel1: TPanel;
Tree: TTreeView;
TreeFilterEdit1: TTreeFilterEdit;
procedure btnRefreshClick(Sender: TObject);
procedure TreeDeletion(Sender: TObject; Node: TTreeNode);
procedure TreeFilterEdit1AfterFilter(Sender: TObject);
procedure TreeKeyPress(Sender: TObject; var Key: char);
@ -272,6 +277,11 @@ begin
Dispose(PInt64(node.Data));
end;
procedure TCEStaticExplorerWidget.btnRefreshClick(Sender: TObject);
begin
fActRefresh.Execute;
end;
procedure TCEStaticExplorerWidget.updateVisibleCat;
begin
ndAlias.Visible := ndAlias.Count > 0;