fix #92 - make symlist errors & warnings more visible

CHANGELOG.md

@@ -20,6 +20,7 @@
 
 - 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)
+- Symlist: errors were not visible enough since moved to the top. (#92)
 
 ## Other
 

src/u_symlist.pas

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