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

symlist, fix, re-apply filter on refresh

This commit is contained in:
Basile Burg 2015-12-11 04:44:20 +01:00
parent e2765665eb
commit 95b11b821d
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ce_symlist.lfm
View File

@ -24,7 +24,7 @@ inherited CESymbolListWidget: TCESymbolListWidget
Width = 302
Align = alClient
BorderSpacing.Around = 4
DefaultItemHeight = 18
DefaultItemHeight = 16
HideSelection = False
Images = imgList
ReadOnly = True

8
src/ce_symlist.pas
View File

@ -441,7 +441,7 @@ end;
procedure TCESymbolListWidget.actAutoRefreshExecute(Sender: TObject);
begin
autoRefresh := fActAutoRefresh.Checked;
fOptions.Assign(self);
//fOptions.Assign(self);
end;
procedure TCESymbolListWidget.actRefreshOnChangeExecute(Sender: TObject);
@ -735,6 +735,7 @@ end;
//
var
i: Integer;
flt: string;
begin
if ndAlias = nil then exit;
clearTree;
@ -747,6 +748,8 @@ begin
if fToolProc.OutputStack.Size = 0 then exit;
fSyms.LoadFromTool(fToolProc.OutputStack);
//
flt := TreeFilterEdit1.Filter;
TreeFilterEdit1.Text := '';
tree.BeginUpdate;
for i := 0 to fSyms.symbols.Count-1 do
symbolToTreeNode(nil, fSyms.symbols[i]);
@ -761,10 +764,11 @@ begin
for i:= 0 to tree.Items.Count-1 do
if Tree.Items[i].Count > 0 then
tree.Items[i].CustomSort(nil);
if fSmartExpander then
smartExpand;
tree.EndUpdate;
if flt <> '' then
TreeFilterEdit1.Text := flt;
end;
procedure TCESymbolListWidget.smartExpand;