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

disable symlist with non d files

This commit is contained in:
Basile Burg 2016-06-15 08:36:58 +02:00
parent c75de19110
commit c509e34be4
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ce_symlist.pas
View File

@ -561,7 +561,7 @@ end;
procedure TCESymbolListWidget.updateVisibleCat;
begin
if fDoc.isNotNil then
if fDoc.isNotNil and fDoc.isDSource then
begin
ndAlias.Visible := ndAlias.Count > 0;
ndClass.Visible := ndClass.Count > 0;
@ -672,8 +672,12 @@ var
begin
if not fHasToolExe then exit;
if fDoc.isNil then exit;
if fDoc.Lines.Count = 0 then exit;
if not fDoc.isDSource then exit;
if (fDoc.Lines.Count = 0) or not fDoc.isDSource then
begin
clearTree;
updateVisibleCat;
exit;
end;
//
killProcess(fToolProc);
fToolProc := TCEProcess.Create(nil);