* fixed class conversion and inheritance tree errors

git-svn-id: trunk@6871 -

packages/fcl-net/src/mkxmlrpc.pp

@@ -308,7 +308,7 @@ type
     Result := Result + ')';
   end;
 
-  function GetParseValueFnName(PasType: TPasType): String;
+  function GetParseValueFnName(PasType: TPasElement): String;
   var
     s: String;
   begin

packages/fcl-xml/src/xhtml.pp

@@ -26,9 +26,9 @@ uses DOM, DOM_HTML;
 
 type
 
-  TXHTMLTitleElement = class(TDOMElement);
+  TXHTMLTitleElement = class(THTMLTitleElement);
 
-  TXHTMLHeadElement = class(TDOMElement)
+  TXHTMLHeadElement = class(THTMLHeadElement)
   private
     function GetTitleElement: TXHTMLTitleElement;
   public
@@ -36,7 +36,7 @@ type
     property TitleElement: TXHTMLTitleElement read GetTitleElement;
   end;
 
-  TXHTMLBodyElement = class(TDOMElement);
+  TXHTMLBodyElement = class(THTMLBodyElement);
 
 
   TXHTMLType = (xhtmlStrict, xhtmlTransitional);