[JVCL-Checkins] SF.net SVN: jvcl: [11741] trunk/jvcl/run/JvLinkLabelParser.pas

[<ob...@us...>]

Revision: 11741
          http://jvcl.svn.sourceforge.net/jvcl/?rev=11741&view=rev
Author:   obones
Date:     2008-02-21 05:25:32 -0800 (Thu, 21 Feb 2008)

Log Message:
-----------
Mantis 4246,4247: Fixed problems painting dynamic tags

Modified Paths:
--------------
    trunk/jvcl/run/JvLinkLabelParser.pas

Modified: trunk/jvcl/run/JvLinkLabelParser.pas
===================================================================
--- trunk/jvcl/run/JvLinkLabelParser.pas	2008-02-21 13:24:59 UTC (rev 11740)
+++ trunk/jvcl/run/JvLinkLabelParser.pas	2008-02-21 13:25:32 UTC (rev 11741)
@@ -243,7 +243,7 @@
 
     Tree.Root.OwnsChildren := False;
     for I := 0 to Tree.Root.Children.Count - 1 do
-      Node.AddChild(Tree.Root.Children[I], Tree.Root);
+      Node.AddChild(Tree.Root.Children[I], Node.Root);
   finally
     Tree.Free;
   end;
@@ -357,8 +357,6 @@
   else
     Result := TUnknownNode.Create(Tag);
 
-  if CurrentTag = ttDynamic then
-    HandleDynamicTag(Result as TDynamicNode);
 end;
 
 procedure TDefaultParser.HandleDynamicTag(const Node: TDynamicNode);
@@ -432,6 +430,9 @@
     else
       Node.AddChild(NewNode, Node.Root);
 
+    if NewNode is TDynamicNode then
+      HandleDynamicTag(NewNode as TDynamicNode);
+
     if IsNodeContainer(NewNode, Element) then
       ParseNode(NewNode as TParentNode);
   end;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.