paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 06:06:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix color of highlighted item

Browse Source 
* Expand nodes by default

git-svn-id: trunk@3730 -
This commit is contained in:
daniel 2006-05-29 00:02:01 +00:00
parent 4d9e404403
commit 280143028a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fv/outline.pas
View File

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