浏览代码

* Fix color of highlighted item
* Expand nodes by default

git-svn-id: trunk@3730 -

daniel 19 年之前
父节点
当前提交
280143028a
共有 1 个文件被更改,包括 4 次插入4 次删除
  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