(*
  Name:             GenericXMLRenderer
  Copyright:        Copyright (C) SIL International.
  Documentation:    
  Description:      
  Create Date:      5 Dec 2006

  Modified Date:    5 Dec 2006
  Authors:          mcdurdin
  Related Files:    
  Dependencies:     

  Bugs:             
  Todo:             
  Notes:            
  History:          05 Dec 2006 - mcdurdin - Initial version
*)
unit GenericXMLRenderer;

interface

uses
  XMLRenderer,
  Windows;

type
  TGenericXMLRenderer = class(TXMLRenderer)
  private
    FXML: WideString;
  protected
    function XMLData: WideString; override;
  public
    constructor Create(AOwner: TXMLRenderers; const AXML: WideString = '');
  end;

implementation

{ TGenericXMLRenderer }

constructor TGenericXMLRenderer.Create(AOwner: TXMLRenderers; const AXML: WideString);
begin
  inherited Create(AOwner);
  FXML := AXML;
end;

function TGenericXMLRenderer.XMLData: WideString;
begin
  Result := FXML;
end;

end.
