Browse Source

* Fix color of highlighted item
* Expand nodes by default

git-svn-id: trunk@3730 -

daniel 19 years ago
parent
commit
280143028a
1 changed files with 4 additions and 4 deletions
  1. 4 4
      fv/outline.pas

+ 4 - 4
fv/outline.pas

@@ -92,7 +92,7 @@ begin
       next:=Anext;
       text:=newstr(Atext);
       childlist:=Achildren;
-      expanded:=false;
+      expanded:=true;
     end;
 end;
 
@@ -276,10 +276,10 @@ var c_normal,c_normal_x,c_select,c_focus:byte;
     t:=gettext(cur);
 
     {Determine text colour.}
-    if isselected(position) then
-      c:=c_select
-    else if (foc=position) and (state and sffocused<>0) then
+    if (foc=position) and (state and sffocused<>0) then
       c:=c_focus
+    else if isselected(position) then
+      c:=c_select
     else if flags and ovexpanded<>0 then
       c:=c_normal_x
     else