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