+ Complete implementation

fcl/xml/htmldoc.pp

@@ -41,6 +41,7 @@ THTMLIsIndexElement = Class;
 THTMLStyleElement = Class;
 THTMLBodyElement = Class;
 THTMLFormElement = Class;
+THTMLTableSectionElement = Class;
 
 { ---------------------------------------------------------------------
     Miscellaneous objects
@@ -225,15 +226,748 @@ THTMLBodyElement = Class(THTMLElement)
     Property vlink : DOMString Read fvLink Write fvLink ;
   end;
 
-THTMLFormElement = Class(THTMLElement)
-  Private
-    FElements : THTMLCollection;
-  Public
-    Constructor Create(AOwner : TDOMDocument);override;
-    Destructor Destroy;
-    Procedure Submit;
-    Procedure Reset;
-  end;
+
+  THTMLAnchorElement = Class(THTMLElement)
+    Private
+      FaccessKey : DOMString;
+      Fcharset : DOMString;
+      Fcoords : DOMString;
+      Fhref : DOMString;
+      Fhreflang : DOMString;
+      Fname : DOMString;
+      Frel : DOMString;
+      Frev : DOMString;
+      Fshape : DOMString;
+      FtabIndex : longint;
+      Ftarget : DOMString;
+      Ftype : DOMString;
+    Public
+      Procedure blur;
+      Procedure focus;
+      Property accessKey : DOMString Read FaccessKey Write FaccessKey;
+      Property charset : DOMString Read Fcharset Write Fcharset;
+      Property coords : DOMString Read Fcoords Write Fcoords;
+      Property href : DOMString Read Fhref Write Fhref;
+      Property hreflang : DOMString Read Fhreflang Write Fhreflang;
+      Property name : DOMString Read Fname Write Fname;
+      Property rel : DOMString Read Frel Write Frel;
+      Property rev : DOMString Read Frev Write Frev;
+      Property shape : DOMString Read Fshape Write Fshape;
+      Property tabIndex : longint Read FtabIndex Write FtabIndex;
+      Property target : DOMString Read Ftarget Write Ftarget;
+      Property htmltype : DOMString Read Ftype Write Ftype;
+  End;
+
+  THTMLAppletElement = Class(THTMLElement)
+    Private
+      Falign : DOMString;
+      Falt : DOMString;
+      Farchive : DOMString;
+      Fcode : DOMString;
+      FcodeBase : DOMString;
+      Fheight : DOMString;
+      Fhspace : DOMString;
+      Fname : DOMString;
+      Fobject : DOMString;
+      Fvspace : DOMString;
+      Fwidth : DOMString;
+    Public
+      Property align : DOMString Read Falign Write Falign;
+      Property alt : DOMString Read Falt Write Falt;
+      Property archive : DOMString Read Farchive Write Farchive;
+      Property code : DOMString Read Fcode Write Fcode;
+      Property codeBase : DOMString Read FcodeBase Write FcodeBase;
+      Property height : DOMString Read Fheight Write Fheight;
+      Property hspace : DOMString Read Fhspace Write Fhspace;
+      Property name : DOMString Read Fname Write Fname;
+      Property htmlobject : DOMString Read Fobject Write Fobject;
+      Property vspace : DOMString Read Fvspace Write Fvspace;
+      Property width : DOMString Read Fwidth Write Fwidth;
+  End;
+
+  THTMLAreaElement = Class(THTMLElement)
+    Private
+      FaccessKey : DOMString;
+      Falt : DOMString;
+      Fcoords : DOMString;
+      Fhref : DOMString;
+      FnoHref : boolean;
+      Fshape : DOMString;
+      FtabIndex : longint;
+      Ftarget : DOMString;
+    Public
+      Property accessKey : DOMString Read FaccessKey Write FaccessKey;
+      Property alt : DOMString Read Falt Write Falt;
+      Property coords : DOMString Read Fcoords Write Fcoords;
+      Property href : DOMString Read Fhref Write Fhref;
+      Property noHref : boolean Read FnoHref Write FnoHref;
+      Property shape : DOMString Read Fshape Write Fshape;
+      Property tabIndex : longint Read FtabIndex Write FtabIndex;
+      Property target : DOMString Read Ftarget Write Ftarget;
+  End;
+
+  THTMLBaseFontElement = Class(THTMLElement)
+    Private
+      Fcolor : DOMString;
+      Fface : DOMString;
+      Fsize : DOMString;
+    Public
+      Property color : DOMString Read Fcolor Write Fcolor;
+      Property face : DOMString Read Fface Write Fface;
+      Property size : DOMString Read Fsize Write Fsize;
+  End;
+
+  THTMLBlockquoteElement = Class(THTMLElement)
+    Private
+      Fcite : DOMString;
+    Public
+      Property cite : DOMString Read Fcite Write Fcite;
+  End;
+
+  THTMLBRElement = Class(THTMLElement)
+    Private
+      Fclear : DOMString;
+    Public
+      Property clear : DOMString Read Fclear Write Fclear;
+  End;
+
+  THTMLButtonElement = Class(THTMLElement)
+    Private
+      Fform : THTMLFormElement;
+      FaccessKey : DOMString;
+      Fdisabled : boolean;
+      Fname : DOMString;
+      FtabIndex : longint;
+      Ftype : DOMString;
+      Fvalue : DOMString;
+    Public
+      Property form : THTMLFormElement Read Fform;
+      Property accessKey : DOMString Read FaccessKey Write FaccessKey;
+      Property disabled : boolean Read Fdisabled Write Fdisabled;
+      Property name : DOMString Read Fname Write Fname;
+      Property tabIndex : longint Read FtabIndex Write FtabIndex;
+      Property htmltype : DOMString Read Ftype;
+      Property value : DOMString Read Fvalue Write Fvalue;
+  End;
+
+  THTMLDirectoryElement = Class(THTMLElement)
+    Private
+      Fcompact : boolean;
+    Public
+      Property compact : boolean Read Fcompact Write Fcompact;
+  End;
+
+  THTMLDivElement = Class(THTMLElement)
+    Private
+      Falign : DOMString;
+    Public
+      Property align : DOMString Read Falign Write Falign;
+  End;
+
+  THTMLDListElement = Class(THTMLElement)
+    Private
+      Fcompact : boolean;
+    Public
+      Property compact : boolean Read Fcompact Write Fcompact;
+  End;
+
+  THTMLFieldSetElement = Class(THTMLElement)
+    Private
+      Fform : THTMLFormElement;
+    Public
+      Property form : THTMLFormElement Read Fform;
+  End;
+
+  THTMLFontElement = Class(THTMLElement)
+    Private
+      Fcolor : DOMString;
+      Fface : DOMString;
+      Fsize : DOMString;
+    Public
+      Property color : DOMString Read Fcolor Write Fcolor;
+      Property face : DOMString Read Fface Write Fface;
+      Property size : DOMString Read Fsize Write Fsize;
+  End;
+
+  THTMLFormElement = Class(THTMLElement)
+    Private
+      Felements : THTMLCollection;
+      Flength : longint;
+      Fname : DOMString;
+      FacceptCharset : DOMString;
+      Faction : DOMString;
+      Fenctype : DOMString;
+      Fmethod : DOMString;
+      Ftarget : DOMString;
+    Public
+      Constructor Create(AOwner : TDOMDocument);override;
+      Destructor Destroy;override;
+      Procedure submit;
+      Procedure reset;
+      Property elements : THTMLCollection Read Felements;
+      Property length : longint Read Flength;
+      Property name : DOMString Read Fname Write Fname;
+      Property acceptCharset : DOMString Read FacceptCharset Write FacceptCharset;
+      Property action : DOMString Read Faction Write Faction;
+      Property enctype : DOMString Read Fenctype Write Fenctype;
+      Property method : DOMString Read Fmethod Write Fmethod;
+      Property target : DOMString Read Ftarget Write Ftarget;
+  End;
+
+  THTMLFrameElement = Class(THTMLElement)
+    Private
+      FframeBorder : DOMString;
+      FlongDesc : DOMString;
+      FmarginHeight : DOMString;
+      FmarginWidth : DOMString;
+      Fname : DOMString;
+      FnoResize : boolean;
+      Fscrolling : DOMString;
+      Fsrc : DOMString;
+    Public
+      Property frameBorder : DOMString Read FframeBorder Write FframeBorder;
+      Property longDesc : DOMString Read FlongDesc Write FlongDesc;
+      Property marginHeight : DOMString Read FmarginHeight Write FmarginHeight;
+      Property marginWidth : DOMString Read FmarginWidth Write FmarginWidth;
+      Property name : DOMString Read Fname Write Fname;
+      Property noResize : boolean Read FnoResize Write FnoResize;
+      Property scrolling : DOMString Read Fscrolling Write Fscrolling;
+      Property src : DOMString Read Fsrc Write Fsrc;
+  End;
+
+  THTMLFrameSetElement = Class(THTMLElement)
+    Private
+      Fcols : DOMString;
+      Frows : DOMString;
+    Public
+      Property cols : DOMString Read Fcols Write Fcols;
+      Property rows : DOMString Read Frows Write Frows;
+  End;
+
+
+  THTMLHeadingElement = Class(THTMLElement)
+    Private
+      Falign : DOMString;
+    Public
+      Property align : DOMString Read Falign Write Falign;
+  End;
+
+  THTMLHRElement = Class(THTMLElement)
+    Private
+      Falign : DOMString;
+      FnoShade : boolean;
+      Fsize : DOMString;
+      Fwidth : DOMString;
+    Public
+      Property align : DOMString Read Falign Write Falign;
+      Property noShade : boolean Read FnoShade Write FnoShade;
+      Property size : DOMString Read Fsize Write Fsize;
+      Property width : DOMString Read Fwidth Write Fwidth;
+  End;
+
+
+  THTMLIFrameElement = Class(THTMLElement)
+    Private
+      Falign : DOMString;
+      FframeBorder : DOMString;
+      Fheight : DOMString;
+      FlongDesc : DOMString;
+      FmarginHeight : DOMString;
+      FmarginWidth : DOMString;
+      Fname : DOMString;
+      Fscrolling : DOMString;
+      Fsrc : DOMString;
+      Fwidth : DOMString;
+    Public
+      Property align : DOMString Read Falign Write Falign;
+      Property frameBorder : DOMString Read FframeBorder Write FframeBorder;
+      Property height : DOMString Read Fheight Write Fheight;
+      Property longDesc : DOMString Read FlongDesc Write FlongDesc;
+      Property marginHeight : DOMString Read FmarginHeight Write FmarginHeight;
+      Property marginWidth : DOMString Read FmarginWidth Write FmarginWidth;
+      Property name : DOMString Read Fname Write Fname;
+      Property scrolling : DOMString Read Fscrolling Write Fscrolling;
+      Property src : DOMString Read Fsrc Write Fsrc;
+      Property width : DOMString Read Fwidth Write Fwidth;
+  End;
+
+  THTMLImageElement = Class(THTMLElement)
+    Private
+      FlowSrc : DOMString;
+      Fname : DOMString;
+      Falign : DOMString;
+      Falt : DOMString;
+      Fborder : DOMString;
+      Fheight : DOMString;
+      Fhspace : DOMString;
+      FisMap : boolean;
+      FlongDesc : DOMString;
+      Fsrc : DOMString;
+      FuseMap : DOMString;
+      Fvspace : DOMString;
+      Fwidth : DOMString;
+    Public
+      Property lowSrc : DOMString Read FlowSrc Write FlowSrc;
+      Property name : DOMString Read Fname Write Fname;
+      Property align : DOMString Read Falign Write Falign;
+      Property alt : DOMString Read Falt Write Falt;
+      Property border : DOMString Read Fborder Write Fborder;
+      Property height : DOMString Read Fheight Write Fheight;
+      Property hspace : DOMString Read Fhspace Write Fhspace;
+      Property isMap : boolean Read FisMap Write FisMap;
+      Property longDesc : DOMString Read FlongDesc Write FlongDesc;
+      Property src : DOMString Read Fsrc Write Fsrc;
+      Property useMap : DOMString Read FuseMap Write FuseMap;
+      Property vspace : DOMString Read Fvspace Write Fvspace;
+      Property width : DOMString Read Fwidth Write Fwidth;
+  End;
+
+  THTMLInputElement = Class(THTMLElement)
+    Private
+      FdefaultValue : DOMString;
+      FdefaultChecked : boolean;
+      Fform : THTMLFormElement;
+      Faccept : DOMString;
+      FaccessKey : DOMString;
+      Falign : DOMString;
+      Falt : DOMString;
+      Fchecked : boolean;
+      Fdisabled : boolean;
+      FmaxLength : longint;
+      Fname : DOMString;
+      FreadOnly : boolean;
+      Fsize : DOMString;
+      Fsrc : DOMString;
+      FtabIndex : longint;
+      Ftype : DOMString;
+      FuseMap : DOMString;
+      Fvalue : DOMString;
+    Public
+      Procedure blur;
+      Procedure focus;
+      Procedure select;
+      Procedure click;
+      Property defaultValue : DOMString Read FdefaultValue Write FdefaultValue;
+      Property defaultChecked : boolean Read FdefaultChecked Write FdefaultChecked;
+      Property form : THTMLFormElement Read Fform;
+      Property accept : DOMString Read Faccept Write Faccept;
+      Property accessKey : DOMString Read FaccessKey Write FaccessKey;
+      Property align : DOMString Read Falign Write Falign;
+      Property alt : DOMString Read Falt Write Falt;
+      Property checked : boolean Read Fchecked Write Fchecked;
+      Property disabled : boolean Read Fdisabled Write Fdisabled;
+      Property maxLength : longint Read FmaxLength Write FmaxLength;
+      Property name : DOMString Read Fname Write Fname;
+      Property readOnly : boolean Read FreadOnly Write FreadOnly;
+      Property size : DOMString Read Fsize Write Fsize;
+      Property src : DOMString Read Fsrc Write Fsrc;
+      Property tabIndex : longint Read FtabIndex Write FtabIndex;
+      Property htmltype : DOMString Read Ftype;
+      Property useMap : DOMString Read FuseMap Write FuseMap;
+      Property value : DOMString Read Fvalue Write Fvalue;
+  End;
+
+  THTMLLabelElement = Class(THTMLElement)
+    Private
+      Fform : THTMLFormElement;
+      FaccessKey : DOMString;
+      FhtmlFor : DOMString;
+    Public
+      Property form : THTMLFormElement Read Fform;
+      Property accessKey : DOMString Read FaccessKey Write FaccessKey;
+      Property htmlFor : DOMString Read FhtmlFor Write FhtmlFor;
+  End;
+
+  THTMLLegendElement = Class(THTMLElement)
+    Private
+      Fform : THTMLFormElement;
+      FaccessKey : DOMString;
+      Falign : DOMString;
+    Public
+      Property form : THTMLFormElement Read Fform;
+      Property accessKey : DOMString Read FaccessKey Write FaccessKey;
+      Property align : DOMString Read Falign Write Falign;
+  End;
+
+  THTMLLIElement = Class(THTMLElement)
+    Private
+      Ftype : DOMString;
+      Fvalue : longint;
+    Public
+      Property htmltype : DOMString Read Ftype Write Ftype;
+      Property value : longint Read Fvalue Write Fvalue;
+  End;
+
+  THTMLMapElement = Class(THTMLElement)
+    Private
+      Fareas : THTMLCollection;
+      Fname : DOMString;
+    Public
+      Property areas : THTMLCollection Read Fareas;
+      Property name : DOMString Read Fname Write Fname;
+  End;
+
+  THTMLMenuElement = Class(THTMLElement)
+    Private
+      Fcompact : boolean;
+    Public
+      Property compact : boolean Read Fcompact Write Fcompact;
+  End;
+
+
+  THTMLModElement = Class(THTMLElement)
+    Private
+      Fcite : DOMString;
+      FdateTime : DOMString;
+    Public
+      Property cite : DOMString Read Fcite Write Fcite;
+      Property dateTime : DOMString Read FdateTime Write FdateTime;
+  End;
+
+  THTMLObjectElement = Class(THTMLElement)
+    Private
+      Fform : THTMLFormElement;
+      Fcode : DOMString;
+      Falign : DOMString;
+      Farchive : DOMString;
+      Fborder : DOMString;
+      FcodeBase : DOMString;
+      FcodeType : DOMString;
+      Fdata : DOMString;
+      Fdeclare : boolean;
+      Fheight : DOMString;
+      Fhspace : DOMString;
+      Fname : DOMString;
+      Fstandby : DOMString;
+      FtabIndex : longint;
+      Ftype : DOMString;
+      FuseMap : DOMString;
+      Fvspace : DOMString;
+      Fwidth : DOMString;
+    Public
+      Property form : THTMLFormElement Read Fform;
+      Property code : DOMString Read Fcode Write Fcode;
+      Property align : DOMString Read Falign Write Falign;
+      Property archive : DOMString Read Farchive Write Farchive;
+      Property border : DOMString Read Fborder Write Fborder;
+      Property codeBase : DOMString Read FcodeBase Write FcodeBase;
+      Property codeType : DOMString Read FcodeType Write FcodeType;
+      Property data : DOMString Read Fdata Write Fdata;
+      Property declare : boolean Read Fdeclare Write Fdeclare;
+      Property height : DOMString Read Fheight Write Fheight;
+      Property hspace : DOMString Read Fhspace Write Fhspace;
+      Property name : DOMString Read Fname Write Fname;
+      Property standby : DOMString Read Fstandby Write Fstandby;
+      Property tabIndex : longint Read FtabIndex Write FtabIndex;
+      Property htmltype : DOMString Read Ftype Write Ftype;
+      Property useMap : DOMString Read FuseMap Write FuseMap;
+      Property vspace : DOMString Read Fvspace Write Fvspace;
+      Property width : DOMString Read Fwidth Write Fwidth;
+  End;
+
+  THTMLOListElement = Class(THTMLElement)
+    Private
+      Fcompact : boolean;
+      Fstart : longint;
+      Ftype : DOMString;
+    Public
+      Property compact : boolean Read Fcompact Write Fcompact;
+      Property start : longint Read Fstart Write Fstart;
+      Property htmltype : DOMString Read Ftype Write Ftype;
+  End;
+
+  THTMLOptGroupElement = Class(THTMLElement)
+    Private
+      Fdisabled : boolean;
+      Flabel : DOMString;
+    Public
+      Property disabled : boolean Read Fdisabled Write Fdisabled;
+      Property htmllabel : DOMString Read Flabel Write Flabel;
+  End;
+
+  THTMLOptionElement = Class(THTMLElement)
+    Private
+      Fform : THTMLFormElement;
+      FdefaultSelected : boolean;
+      Ftext : DOMString;
+      Findex : longint;
+      Fdisabled : boolean;
+      Flabel : DOMString;
+      Fselected : boolean;
+      Fvalue : DOMString;
+    Public
+      Property form : THTMLFormElement Read Fform;
+      Property defaultSelected : boolean Read FdefaultSelected Write FdefaultSelected;
+      Property htmltext : DOMString Read Ftext;
+      Property index : longint Read Findex Write Findex;
+      Property disabled : boolean Read Fdisabled Write Fdisabled;
+      Property htmllabel : DOMString Read Flabel Write Flabel;
+      Property selected : boolean Read Fselected;
+      Property value : DOMString Read Fvalue Write Fvalue;
+  End;
+
+  THTMLParagraphElement = Class(THTMLElement)
+    Private
+      Falign : DOMString;
+    Public
+      Property align : DOMString Read Falign Write Falign;
+  End;
+
+  THTMLParamElement = Class(THTMLElement)
+    Private
+      Fname : DOMString;
+      Ftype : DOMString;
+      Fvalue : DOMString;
+      FvalueType : DOMString;
+    Public
+      Property name : DOMString Read Fname Write Fname;
+      Property htmltype : DOMString Read Ftype Write Ftype;
+      Property value : DOMString Read Fvalue Write Fvalue;
+      Property valueType : DOMString Read FvalueType Write FvalueType;
+  End;
+
+  THTMLPreElement = Class(THTMLElement)
+    Private
+      Fwidth : longint;
+    Public
+      Property width : longint Read Fwidth Write Fwidth;
+  End;
+
+  THTMLQuoteElement = Class(THTMLElement)
+    Private
+      Fcite : DOMString;
+    Public
+      Property cite : DOMString Read Fcite Write Fcite;
+  End;
+
+  THTMLScriptElement = Class(THTMLElement)
+    Private
+      Ftext : DOMString;
+      FhtmlFor : DOMString;
+      Fevent : DOMString;
+      Fcharset : DOMString;
+      Fdefer : boolean;
+      Fsrc : DOMString;
+      Ftype : DOMString;
+    Public
+      Property htmltext : DOMString Read Ftext Write Ftext;
+      Property htmlFor : DOMString Read FhtmlFor Write FhtmlFor;
+      Property event : DOMString Read Fevent Write Fevent;
+      Property charset : DOMString Read Fcharset Write Fcharset;
+      Property defer : boolean Read Fdefer Write Fdefer;
+      Property src : DOMString Read Fsrc Write Fsrc;
+      Property htmltype : DOMString Read Ftype Write Ftype;
+  End;
+
+  THTMLSelectElement = Class(THTMLElement)
+    Private
+      Ftype : DOMString;
+      FselectedIndex : longint;
+      Fvalue : DOMString;
+      Flength : longint;
+      Fform : THTMLFormElement;
+      Foptions : THTMLCollection;
+      Fdisabled : boolean;
+      Fmultiple : boolean;
+      Fname : DOMString;
+      Fsize : longint;
+      FtabIndex : longint;
+    Public
+      Procedure add;
+      Procedure remove;
+      Procedure blur;
+      Procedure focus;
+      Property htmltype : DOMString Read Ftype;
+      Property selectedIndex : longint Read FselectedIndex Write FselectedIndex;
+      Property value : DOMString Read Fvalue Write Fvalue;
+      Property length : longint Read Flength;
+      Property form : THTMLFormElement Read Fform;
+      Property options : THTMLCollection Read Foptions;
+      Property disabled : boolean Read Fdisabled Write Fdisabled;
+      Property multiple : boolean Read Fmultiple Write Fmultiple;
+      Property name : DOMString Read Fname Write Fname;
+      Property size : longint Read Fsize Write Fsize;
+      Property tabIndex : longint Read FtabIndex Write FtabIndex;
+  End;
+
+  THTMLTableCaptionElement = Class(THTMLElement)
+    Private
+      Falign : DOMString;
+    Public
+      Property align : DOMString Read Falign Write Falign;
+  End;
+
+  THTMLTableCellElement = Class(THTMLElement)
+    Private
+      FcellIndex : longint;
+      Fabbr : DOMString;
+      Falign : DOMString;
+      Faxis : DOMString;
+      FbgColor : DOMString;
+      Fch : DOMString;
+      FchOff : DOMString;
+      FcolSpan : longint;
+      Fheaders : DOMString;
+      Fheight : DOMString;
+      FnoWrap : boolean;
+      FrowSpan : longint;
+      Fscope : DOMString;
+      FvAlign : DOMString;
+      Fwidth : DOMString;
+    Public
+      Property cellIndex : longint Read FcellIndex Write FcellIndex;
+      Property abbr : DOMString Read Fabbr Write Fabbr;
+      Property align : DOMString Read Falign Write Falign;
+      Property axis : DOMString Read Faxis Write Faxis;
+      Property bgColor : DOMString Read FbgColor Write FbgColor;
+      Property ch : DOMString Read Fch Write Fch;
+      Property chOff : DOMString Read FchOff Write FchOff;
+      Property colSpan : longint Read FcolSpan Write FcolSpan;
+      Property headers : DOMString Read Fheaders Write Fheaders;
+      Property height : DOMString Read Fheight Write Fheight;
+      Property noWrap : boolean Read FnoWrap Write FnoWrap;
+      Property rowSpan : longint Read FrowSpan Write FrowSpan;
+      Property scope : DOMString Read Fscope Write Fscope;
+      Property vAlign : DOMString Read FvAlign Write FvAlign;
+      Property width : DOMString Read Fwidth Write Fwidth;
+  End;
+
+  THTMLTableColElement = Class(THTMLElement)
+    Private
+      Falign : DOMString;
+      Fch : DOMString;
+      FchOff : DOMString;
+      Fspan : longint;
+      FvAlign : DOMString;
+      Fwidth : DOMString;
+    Public
+      Property align : DOMString Read Falign Write Falign;
+      Property ch : DOMString Read Fch Write Fch;
+      Property chOff : DOMString Read FchOff Write FchOff;
+      Property span : longint Read Fspan Write Fspan;
+      Property vAlign : DOMString Read FvAlign Write FvAlign;
+      Property width : DOMString Read Fwidth Write Fwidth;
+  End;
+
+  THTMLTableElement = Class(THTMLElement)
+    Private
+      Fcaption : THTMLTableCaptionElement;
+      FtHead : THTMLTableSectionElement;
+      FtFoot : THTMLTableSectionElement;
+      Frows : THTMLCollection;
+      FtBodies : THTMLCollection;
+      Falign : DOMString;
+      FbgColor : DOMString;
+      Fborder : DOMString;
+      FcellPadding : DOMString;
+      FcellSpacing : DOMString;
+      Fframe : DOMString;
+      Frules : DOMString;
+      Fsummary : DOMString;
+      Fwidth : DOMString;
+    Public
+      Function createTHead : THTMLElement;
+      Procedure deleteTHead;
+      Function createTFoot : THTMLElement;
+      Procedure deleteTFoot;
+      Function createCaption : THTMLElement;
+      Procedure deleteCaption;
+      Function insertRow : THTMLElement;
+      Procedure deleteRow;
+      Property caption : THTMLTableCaptionElement Read Fcaption Write Fcaption;
+      Property tHead : THTMLTableSectionElement Read FtHead Write FtHead;
+      Property tFoot : THTMLTableSectionElement Read FtFoot Write FtFoot;
+      Property rows : THTMLCollection Read Frows;
+      Property tBodies : THTMLCollection Read FtBodies;
+      Property align : DOMString Read Falign Write Falign;
+      Property bgColor : DOMString Read FbgColor Write FbgColor;
+      Property border : DOMString Read Fborder Write Fborder;
+      Property cellPadding : DOMString Read FcellPadding Write FcellPadding;
+      Property cellSpacing : DOMString Read FcellSpacing Write FcellSpacing;
+      Property frame : DOMString Read Fframe Write Fframe;
+      Property rules : DOMString Read Frules Write Frules;
+      Property summary : DOMString Read Fsummary Write Fsummary;
+      Property width : DOMString Read Fwidth Write Fwidth;
+  End;
+
+  THTMLTableRowElement = Class(THTMLElement)
+    Private
+      FrowIndex : longint;
+      FsectionRowIndex : longint;
+      Fcells : THTMLCollection;
+      Falign : DOMString;
+      FbgColor : DOMString;
+      Fch : DOMString;
+      FchOff : DOMString;
+      FvAlign : DOMString;
+    Public
+      Function insertCell : THTMLElement;
+      Procedure deleteCell;
+      Property rowIndex : longint Read FrowIndex Write FrowIndex;
+      Property sectionRowIndex : longint Read FsectionRowIndex Write FsectionRowIndex;
+      Property cells : THTMLCollection Read Fcells Write Fcells;
+      Property align : DOMString Read Falign Write Falign;
+      Property bgColor : DOMString Read FbgColor Write FbgColor;
+      Property ch : DOMString Read Fch Write Fch;
+      Property chOff : DOMString Read FchOff Write FchOff;
+      Property vAlign : DOMString Read FvAlign Write FvAlign;
+  End;
+
+  THTMLTableSectionElement = Class(THTMLElement)
+    Private
+      Falign : DOMString;
+      Fch : DOMString;
+      FchOff : DOMString;
+      FvAlign : DOMString;
+      Frows : THTMLCollection;
+    Public
+      Function insertRow : THTMLElement;
+      Procedure deleteRow;
+      Property align : DOMString Read Falign Write Falign;
+      Property ch : DOMString Read Fch Write Fch;
+      Property chOff : DOMString Read FchOff Write FchOff;
+      Property vAlign : DOMString Read FvAlign Write FvAlign;
+      Property rows : THTMLCollection Read Frows;
+  End;
+
+  THTMLTextAreaElement = Class(THTMLElement)
+    Private
+      FdefaultValue : DOMString;
+      Fform : THTMLFormElement;
+      FaccessKey : DOMString;
+      Fcols : longint;
+      Fdisabled : boolean;
+      Fname : DOMString;
+      FreadOnly : boolean;
+      Frows : longint;
+      FtabIndex : longint;
+      Ftype : DOMString;
+      Fvalue : DOMString;
+    Public
+      Procedure blur;
+      Procedure focus;
+      Procedure select;
+      Property defaultValue : DOMString Read FdefaultValue Write FdefaultValue;
+      Property form : THTMLFormElement Read Fform;
+      Property accessKey : DOMString Read FaccessKey Write FaccessKey;
+      Property cols : longint Read Fcols Write Fcols;
+      Property disabled : boolean Read Fdisabled Write Fdisabled;
+      Property name : DOMString Read Fname Write Fname;
+      Property readOnly : boolean Read FreadOnly Write FreadOnly;
+      Property rows : longint Read Frows Write Frows;
+      Property tabIndex : longint Read FtabIndex Write FtabIndex;
+      Property htmltype : DOMString Read Ftype;
+      Property value : DOMString Read Fvalue Write Fvalue;
+  End;
+
+  THTMLUListElement = Class(THTMLElement)
+    Private
+      Fcompact : boolean;
+      Ftype : DOMString;
+    Public
+      Property compact : boolean Read Fcompact Write Fcompact;
+      Property htmltype : DOMString Read Ftype Write Ftype;
+  End;
   
 implementation    
 
@@ -366,5 +1100,159 @@ Procedure THTMLFormElement.Reset;
 begin
 end;
 
+// Created From file htmlanchorelement.xml
+Procedure THTMLAnchorElement.blur;
+
+Begin
+End;
+
+
+Procedure THTMLAnchorElement.focus;
+
+Begin
+End;
+
+
+
+Procedure THTMLInputElement.blur;
+
+Begin
+End;
+
+
+Procedure THTMLInputElement.focus;
+
+Begin
+End;
+
+
+Procedure THTMLInputElement.select;
+
+Begin
+End;
+
+
+Procedure THTMLInputElement.click;
+
+Begin
+End;
+
+
+Procedure THTMLSelectElement.add;
+
+Begin
+End;
+
+
+Procedure THTMLSelectElement.remove;
+
+Begin
+End;
+
+
+Procedure THTMLSelectElement.blur;
+
+Begin
+End;
+
+
+Procedure THTMLSelectElement.focus;
+
+Begin
+End;
+
+
+Function THTMLTableElement.createTHead : THTMLElement;
+
+Begin
+End;
+
+
+Procedure THTMLTableElement.deleteTHead;
+
+Begin
+End;
+
+
+Function THTMLTableElement.createTFoot : THTMLElement;
+
+Begin
+End;
+
+
+Procedure THTMLTableElement.deleteTFoot;
+
+Begin
+End;
+
+
+Function THTMLTableElement.createCaption : THTMLElement;
+
+Begin
+End;
+
+
+Procedure THTMLTableElement.deleteCaption;
+
+Begin
+End;
+
+
+Function THTMLTableElement.insertRow : THTMLElement;
+
+Begin
+End;
+
+
+Procedure THTMLTableElement.deleteRow;
+
+Begin
+End;
+
+
+// Created From file htmltablerowelement.xml
+Function THTMLTableRowElement.insertCell : THTMLElement;
+
+Begin
+End;
+
+
+Procedure THTMLTableRowElement.deleteCell;
+
+Begin
+End;
+
+
+// Created From file htmltablesectionelement.xml
+Function THTMLTableSectionElement.insertRow : THTMLElement;
+
+Begin
+End;
+
+
+Procedure THTMLTableSectionElement.deleteRow;
+
+Begin
+End;
+
+
+// Created From file htmltextareaelement.xml
+Procedure THTMLTextAreaElement.blur;
+
+Begin
+End;
+
+
+Procedure THTMLTextAreaElement.focus;
+
+Begin
+End;
+
+
+Procedure THTMLTextAreaElement.select;
+
+Begin
+End;
+
 
 end.