//Advanced Delphi Systems Code: ads_AcroExch_HiliteList
unit ads_AcroExch_HiliteList;
{Copyright(c)2016 Advanced Delphi Systems

 Richard Maley
 Advanced Delphi Systems
 12613 Maidens Bower Drive
 Potomac, MD 20854 USA
 phone 301-840-1554
 dickmaley@advdelphisys.com

 The code herein can be used or modified by anyone.  Please retain references
 to Richard Maley at Advanced Delphi Systems.  If you make improvements to the
 code please send your improvements to dickmaley@advdelphisys.com so that the
 entire Delphi community can benefit.  All comments are welcome.
}
(*
UnitIndex Master Index Implementation Section Download Units
Description: ads_AcroExch_HiliteList.pas
This unit contains the following routines.

Register   TAcroExch_HiliteList.Add  

*)
interface
Uses
  Acrobat_TLB, Classes;

Type
  TAcroExch_HiliteList = class(TComponent)
  Private
    FAcroExch_HiliteList : Variant;
  Public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    function Add(nOffset: Smallint; nLength: Smallint): Integer;
  End;

  procedure Register;

implementation

Uses
  Variants, ComObj;

//
Unit Description UnitIndex Master Index
procedure Register;
begin
  RegisterComponents('Acrobat', [TAcroExch_HiliteList]);
end;

constructor TAcroExch_HiliteList.Create(AOwner: TComponent);
begin
  inherited;
  FAcroExch_HiliteList := CreateOleObject('AcroExch.HiliteList');
end;

destructor TAcroExch_HiliteList.Destroy;
begin
  FAcroExch_HiliteList := unassigned;         
  inherited;
end;

//
Unit Description UnitIndex Master Index
function TAcroExch_HiliteList.Add(nOffset, nLength: Smallint): Integer;
begin
  Result := FAcroExch_HiliteList.Add(nOffset, nLength);
end;

end.
//