* Further development.

git-svn-id: trunk@3678 -

fv/outline.pas

@@ -28,9 +28,11 @@ type  Pnode=^Tnode;
         function firstthat(test:pointer):pointer;
         procedure focused(i:sw_integer);virtual;
         procedure foreach(node:pointer);
+        function getchild(node:pointer;i:sw_integer):pointer;virtual;
         function getgraph(level:integer;lines:longint;flags:word):string;
+        function getnode(i:sw_integer):pointer;virtual;
         function getnumchildren(node:pointer):sw_integer;virtual;
-        function getchild(node:pointer;i:sw_integer):pointer;virtual;
+        function getroot:pointer;virtual;
         function gettext(node:pointer):string;virtual;
         function haschildren(node:pointer):boolean;virtual;
         function isexpanded(node:pointer):boolean;virtual;
@@ -43,12 +45,15 @@ type  Pnode=^Tnode;
                          AHscrollbar,AVscrollbar:Pscrollbar;
                          Aroot:Pnode);
         procedure adjust(node:pointer;expand:boolean);virtual;
-        function getnumchildren(node:pointer):sw_integer;virtual;
         function getchild(node:pointer;i:sw_integer):pointer;virtual;
+        function getnumchildren(node:pointer):sw_integer;virtual;
+        function getroot:pointer;virtual;
         function gettext(node:pointer):string;virtual;
         function haschildren(node:pointer):boolean;virtual;
         function isexpanded(node:pointer):boolean;virtual;
-        destructor done;virtual;
+        function isselected(node:pointer):boolean;virtual;
+        procedure selected(i:sw_integer);virtual;
+        procedure setstate(Astate:word;enable:boolean);virtual;
       end;
 
 function newnode(const Atext:string;Achildren,Anext:Pnode):Pnode;
@@ -59,6 +64,11 @@ procedure disposenode(node:Pnode);
                                 implementation
 {***************************************************************************}
 
+type TMyFunc = function(_EBP: Pointer; Cur: Pointer;
+                        Level, Position: sw_integer; Lines: LongInt;
+                        Flags: Word): Boolean;
+
+
 function newnode(const Atext:string;Achildren,Anext:Pnode):Pnode;
 
 begin
@@ -81,6 +91,7 @@ begin
         disposenode(childlist);
       if next<>nil then
         disposenode(next)
+      disposestr(text);
     end;
   dispose(node);
 end;
@@ -219,19 +230,30 @@ procedure Toutlineviewer.foreach(action:pointer);
 begin
 end;
 
+function Toutlineviewer.getchild(node:pointer;i:sw_integer):pointer;
+
+begin
+  abstract;
+end;
+
 function Toutlineviewer.getgraph(level:integer;lines:longint;
                                  flags:word):string;
 
 begin
 end;
 
+function Toutlineviewer.getnode(i:sw_integer):pointer;
+
+begin
+end;
+
 function Toutlineviewer.getnumchildren(node:pointer):sw_integer;
 
 begin
   abstract;
 end;
 
-function Toutlineviewer.getchild(node:pointer;i:sw_integer):pointer;
+function Toutlineviewer.getroot:pointer;
 
 begin
   abstract;
@@ -252,13 +274,30 @@ end;
 function Toutlineviewer.isexpanded(node:pointer):boolean;
 
 begin
+  abstract;
+end;
+
+function Toutlineviewer.isexpanded(i:sw_integer):boolean;
+
+begin
+  isexpanded:=foc=i;
+end;
+
+procedure Toutlineviewer.selected(i:sw_integer);
+
+begin
+  {Does nothing by default.}
 end;
 
-destructor Toutlineviewer.done;virtual;
+procedure Toutlineviewer.setstate(Astate:word;enable:boolean);
 
 begin
+  if Astate and sffocused<>0 then
+    drawview;
+  inherited setstate(Astate);
 end;
 
+
 {+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
 {                          Toutline object methods                          }
 {+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
@@ -310,6 +349,12 @@ begin
     end;
 end;
 
+function Toutlineviewer.getroot:pointer;
+
+begin
+  getroot:=root;
+end;
+
 function Toutline.gettext(node:pointer):string;
 
 begin