freepascal.compiler/fcl/xml/htmldoc.pp

{
    $Id$
    This file is part of the Free Pascal run time library.
    Copyright (c) 1998 by Michael Van Canneyt, member of 
    the Free Pascal development team

    Implementation of a HTMLdocument class, 
    following the W3 recommendation.
    
    See the file COPYING.FPC, included in this distribution,
    for details about the copyright.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

 **********************************************************************}
unit htmldoc;

interface

Uses Sysutils,   // Uppercase
     Classes,    // TList and the like
     DOM;        // Naturally...

{ ---------------------------------------------------------------------
    Forward Class definitions
  ---------------------------------------------------------------------}
Type

THTMLCollection = Class;
THTMLDocument = Class;
THTMLElement = Class;
THTMLHtmlElement = Class;
THTMLHeadElement = Class;
THTMLLinkElement = Class;
THTMLTitleElement = Class;
THTMLMetaElement = Class;  
THTMLBaseElement = Class;
THTMLIsIndexElement = Class;
THTMLStyleElement = Class;
THTMLBodyElement = Class;
THTMLFormElement = Class;
THTMLTableSectionElement = Class;

{ ---------------------------------------------------------------------
    Miscellaneous objects
  ---------------------------------------------------------------------}

// HTMLCollection  
THTMLCollection = Class
  Private
    Flist : TList;
    Function GetLength : longword;
  Public
    Constructor Create;
    Destructor Destroy; Override;
    Function Item(Index : longword) : TDOMNode;
    Function NamedItem(Name : DomString) : TDOMNode;
    Property Length : LongWord Read GetLength;
  end;

{ ---------------------------------------------------------------------
    THTMLDocument class
  ---------------------------------------------------------------------}

THTMLDocument = Class(TDOMDocument)
  Private
    FTitle,
    FReferrer,
    FDomain,
    FCookie,
    FURL : DOMString;
    FBody : THTMLElement;
    FImages,
    FApplets,
    FLinks,
    FForms,
    Fanchors : THTMLCollection;
  Public
    Constructor Create; Override;
    Destructor Destroy; Override;
    
    Procedure Open;
    Procedure Close;
    Procedure Write (TheText : DOMString);
    Procedure Writeln (TheText : DOMString);
    Function GetElementById (Id :longword) : TDOMElement; 
    Function GetElementByName (Name : DOMString) : TDOMNodeList;

    Property Title : DOMString Read FTitle Write FTitle;
    Property Referrer : DOMString Read FReferrer;
    Property Domain : DOMString Read FDomain;
    Property URL : DOMString Read FURL;
    Property Body : THTMLElement Read FBody;
    Property Images : THTMLCollection Read Fimages;
    Property Applets : THTMLCollection Read FApplets;
    Property Links : THTMLCollection Read FLinks;
    Property Forms : THTMLCollection Read FForms;
    Property Anchors : THTMLCollection Read Fanchors;
    Property Cookie : DOMString Read FCookie;
  end;

{ ---------------------------------------------------------------------
    THTMLElement class
  ---------------------------------------------------------------------}

THTMLElement = Class(TDOMElement)
  Private
    FID,
    FTitle,
    FLang,
    FDir,
    FHTMLClassname : DOMString;
  Public
    Property ID : DOMString Read FID Write FID;
    Property Title : DOMString Read FTitle Write FTitle;
    Property Lang : DOMString Read FLang Write FLang;
    Property Dir : DOMString Read FDir Write FDir;
    Property HTMLClassName : DOMString Read FHTMLClassName Write FHTMLClassName;
  end;  

{ ---------------------------------------------------------------------
    THTMLElement descendent classes
  ---------------------------------------------------------------------}

THTMLHtmlElement = Class(THTMLElement)
 Private
   FVersion : DOMString;
 Public
   Property Version : DOMString Read FVersion Write FVersion;
 end;
   
THTMLHeadElement = Class(THTMLElement)
  Private 
    FProfile : DOMString;
  Public 
    Property Profile : DOMString Read FProfile Write FProfile;
  end;
  
THTMLLinkElement = Class(THTMLElement)
  Private 
    FDisabled : Boolean;
    FCharset,
    FHREF,
    FHREFLang,
    FMedia,
    FRel,
    FREV,
    FTarget,
    FHTMLType : DOMString;
  Public
    Property Disabled : Boolean Read FDisabled Write FDisabled;
    Property Charset : DOMString Read FCharset Write FCharset;
    Property HREF : DOMString Read FHREF Write FHREF;
    Property HREFLang : DOMString Read FHREFLang Write FHREFLang;
    Property Media : DOMString Read FMEdia Write FMedia;
    Property Rel : DOMString READ FRel Write FRel;
    Property Target : DOMString Read FTarget Write FTarget;
    Property HTMLType : DOMString Read FHTMLType Write FHTMLtype;
  end;
    
THTMLTitleElement = Class(THTMLElement)
  Private
    FHTMLtext : DOMString;
  Public
    Property HTMLText : DOMString Read FHTMLText Write FHTMLtext;
  end; 
  
THTMLMetaElement = Class(THTMLElement)
  Private
    FContent,
    FhttpEquiv,
    FName,
    FScheme : DOMString;
  Public
    Property Content : DOMString Read FContent Write FContent;
    Property HttpEquiv  : DOMString Read FHTTPEquiv Write FHTTPEquiv;
    Property Name : DOMString Read FName Write FName;
    Property Scheme : DOMString Read FScheme Write FScheme;
  end;
  
THTMLBaseElement = Class(TDOMElement)
  Private
    FHref,
    FTarget : DOMString;
  Public
    Property HRef : DOMString Read FHref Write FHRef;
    Property Target : DOMstring Read FTarget Write FTarget;
  end;
  
THTMLIsIndexElement = Class(THTMLElement)
  Private
    FForm : THTMLFormElement;
    FPrompt : DomString;
  Public
    Property Form : THTMLFormElement Read FForm;
    Property Prompt : DOMString Read FPrompt Write FPrompt;
  end;
  
  
THTMLStyleElement = Class(THTMLElement)
  Private
    FDisabled : Boolean;
    FMEdia,
    FHTMLtype : DOMString;
  Public
    Property Disabled : Boolean Read FDisabled Write FDisabled;
    Property HTMLtype : DOMString Read FHTMLType Write FHTMLtype;
  end;
  
THTMLBodyElement = Class(THTMLElement)
  Private
    Falink,
    Fbackground,
    Fbgcolor,
    flink,
    fhtmltext,
    fvlink : DOMString;
  Public
    Property alink : DOMString Read falink write falink;
    Property background  : DOMString Read Fbackground write FBackground;
    Property bgcolor : DOMString  Read fbgcolor write fbgcolor;
    Property link : DOMString  Read Flink Write flink;
    Property htmltext : DOMString read fhtmltext Write fhtmltext;
    Property vlink : DOMString Read fvLink Write fvLink ;
  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    

{ ---------------------------------------------------------------------
    THTMLCollection
  ---------------------------------------------------------------------}

Constructor THTMLCollection.Create;

begin
  FList := TList.Create;
end;

Destructor THTMLCollection.Destroy;

begin
  FList.Free;
  Inherited Destroy;
end;

Function THTMLCollection.GetLength : LongWord;

begin
  Result:=FList.Count;
end;

Function THTMLCollection.Item(Index : longword) : TDOMNode;

begin
  If (Index<0) or (Index>Flist.Count-1) then
    Result:=Nil
  else
    Result:=TDOMNode(Flist[Index]);
end;

Function THTMLCollection.NamedItem(Name : DomString) : TDOMNode;

Var I : longword;

begin
  Name:=UpperCase(Name);
  // linear search, since the list is not ordered.
  // W3 says nothing about ordering; maybe we can implement it ? 
  For i:=0 to FList.Count-1 do
    If UpperCase(TDomNode(FList[i]).NodeName)=Name then
      begin
      Result:=TDomNode(Flist[I]);
      Exit;
      end;
  Result:=Nil;
end;

{ ---------------------------------------------------------------------
    THTMLDocument class
  ---------------------------------------------------------------------}
  

Constructor THTMLDocument.Create;

begin
  Inherited Create;
end;


Destructor THTMLDocument.Destroy;

begin
  Inherited Destroy;
end;


Procedure THTMLDocument.Open;

begin
end;


Procedure THTMLDocument.Close;

begin
end;


Procedure THTMLDocument.Write (TheText : DOMString);

begin
end;


Procedure THTMLDocument.Writeln (TheText : DOMString);

begin
end;


Function THTMLDocument.GetElementById (Id :longword) : TDOMElement; 

begin
end;


Function THTMLDocument.GetElementByName (Name : DOMString) : TDOMNodeList;

begin
end;

    
Constructor THTMLFormElement.Create(AOwner : TDOMDocument);

begin
  Inherited Create(AOWner);
  FElements:=THTMLCollection.Create;
end;


Destructor THTMLFormElement.Destroy;

begin
  FElements.Free;
  Inherited Destroy;
end;

Procedure THTMLFormElement.Submit;

begin
end;

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.