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

lazutils: TDOMNode.GetLevel

Browse Source 
git-svn-id: trunk@35467 -
This commit is contained in:
mattias 2012-02-18 20:57:36 +00:00
parent e307672e60
commit 75e607c431
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/lazutils/laz2_dom.pas
View File

@ -277,6 +277,7 @@ type
function GetNextNodeSkipChildren: TDOMNode; // first next sibling, then next sibling of parent, ... function GetNextNodeSkipChildren: TDOMNode; // first next sibling, then next sibling of parent, ...
function GetPrevNode: TDOMNode; // the reverse of GetNext function GetPrevNode: TDOMNode; // the reverse of GetNext
function GetLastLeaf: TDOMNode; // get last child of last child of ... function GetLastLeaf: TDOMNode; // get last child of last child of ...
function GetLevel: integer; // root node has 0
function InsertBefore(NewChild, RefChild: TDOMNode): TDOMNode; virtual; function InsertBefore(NewChild, RefChild: TDOMNode): TDOMNode; virtual;
function ReplaceChild(NewChild, OldChild: TDOMNode): TDOMNode; virtual; function ReplaceChild(NewChild, OldChild: TDOMNode): TDOMNode; virtual;
@ -1070,6 +1071,18 @@ begin
end; end;
end; end;
function TDOMNode.GetLevel: integer;
var
Node: TDOMNode;
begin
Result:=0;
Node:=ParentNode;
while Node<>nil do begin
inc(Result);
Node:=Node.ParentNode;
end;
end;
function TDOMNode.GetFirstChild: TDOMNode; function TDOMNode.GetFirstChild: TDOMNode;
begin begin
Result := nil; Result := nil;