From e342cb843b96f829e520676b22ea17e2019c615c Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Mon, 11 Aug 2014 01:43:21 +0200 Subject: [PATCH] added a refresh btn --- src/ce_staticexplorer.lfm | 94 ++++++++++++++++++++++++++++++--------- src/ce_staticexplorer.pas | 12 ++++- 2 files changed, 84 insertions(+), 22 deletions(-) diff --git a/src/ce_staticexplorer.lfm b/src/ce_staticexplorer.lfm index e8e006c9..f774c03f 100644 --- a/src/ce_staticexplorer.lfm +++ b/src/ce_staticexplorer.lfm @@ -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 diff --git a/src/ce_staticexplorer.pas b/src/ce_staticexplorer.pas index 82061020..4bad432c 100644 --- a/src/ce_staticexplorer.pas +++ b/src/ce_staticexplorer.pas @@ -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;