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

fix #92 - make symlist errors & warnings more visible

This commit is contained in:
Basile Burg 2021-09-19 01:19:01 +02:00
parent 4a41f846f9
commit 0ba7c05e9e
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
CHANGELOG.md
View File

@ -20,6 +20,7 @@
- D2 highlighter: for `Call()`, `Call` wont be considered anymore as a type. (#69) - D2 highlighter: for `Call()`, `Call` wont be considered anymore as a type. (#69)
- GDB commander: 5 empty arguments were passed to the main function called by libc. (#86) - GDB commander: 5 empty arguments were passed to the main function called by libc. (#86)
- Symlist: errors were not visible enough since moved to the top. (#92)
## Other ## Other

11
src/u_symlist.pas
View File

@ -837,6 +837,7 @@ var
i: Integer; i: Integer;
f: string; f: string;
n: TTreeNode; n: TTreeNode;
e: boolean = false;
begin begin
fLockThreadedParsing := false; fLockThreadedParsing := false;
if fDoc.isNotAssigned then if fDoc.isNotAssigned then
@ -857,9 +858,17 @@ begin
if fAutoExpandErrors then if fAutoExpandErrors then
begin begin
if ndWarn.Visible then if ndWarn.Visible then
begin
ndWarn.Expand(true); ndWarn.Expand(true);
ndWarn.MakeVisible();
e := true;
end;
if ndErr.Visible then if ndErr.Visible then
begin
ndErr.Expand(true); ndErr.Expand(true);
ndErr.MakeVisible();
e := true;
end;
end; end;
if fSortSymbols then if fSortSymbols then
for i:= 0 to tree.Items.Count-1 do for i:= 0 to tree.Items.Count-1 do
@ -870,7 +879,7 @@ begin
if n.Count > 0 then if n.Count > 0 then
n.CustomSort(nil); n.CustomSort(nil);
end; end;
if fSmartExpander then if fSmartExpander and not e then
smartExpand; smartExpand;
if f.isNotEmpty then if f.isNotEmpty then
TreeFilterEdit1.Text := f; TreeFilterEdit1.Text := f;