Advanced Delphi Systems Code: ads_AcroExch

//Advanced Delphi Systems Code: ads_AcroExch_PDAnnot

unit ads_AcroExch_PDAnnot;
{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_PDAnnot.pas
This unit contains the following routines.

Register TAcroExch_PDAnnot.GetColor TAcroExch_PDAnnot.GetContents TAcroExch_PDAnnot.GetDate TAcroExch_PDAnnot.GetRect TAcroExch_PDAnnot.GetSubtype TAcroExch_PDAnnot.GetTitle TAcroExch_PDAnnot.IsEqual TAcroExch_PDAnnot.IsOpen TAcroExch_PDAnnot.IsValid TAcroExch_PDAnnot.Perform TAcroExch_PDAnnot.SetColor TAcroExch_PDAnnot.SetContents TAcroExch_PDAnnot.SetDate TAcroExch_PDAnnot.SetOpen TAcroExch_PDAnnot.SetRect TAcroExch_PDAnnot.SetTitle

*)
interface
Uses
  Acrobat_TLB, Classes;

Type
  TAcroExch_PDAnnot = class(TComponent)
  Private
    FAcroExch_PDAnnot : Variant;
  Public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    function    GetColor: Integer;
    function    GetContents: WideString;
    function    GetDate: IDispatch;
    function    GetRect: IDispatch;
    function    GetSubtype: WideString;
    function    GetTitle: WideString;
    function    IsEqual(const PDAnnot: IDispatch): Integer;
    function    IsOpen: Integer;
    function    IsValid: Integer;
    function    Perform(const iAcroAVDoc: IDispatch): Integer;
    function    SetColor(nRGBColor: Integer): Integer;
    function    SetContents(const szContents: WideString): Integer;
    function    SetDate(const iAcroTime: IDispatch): Integer;
    function    SetOpen(bIsOpen: Integer): Integer;
    function    SetRect(const rect: IDispatch): Integer;
    function    SetTitle(const szTitle: WideString): Integer;
  End;

  procedure Register;

implementation

Uses
  Variants, ComObj;

//

Unit Description UnitIndex Master Index

procedure Register;
begin
  RegisterComponents('Acrobat', [TAcroExch_PDAnnot]);
end;

constructor TAcroExch_PDAnnot.Create(AOwner: TComponent);
begin
  inherited;
  FAcroExch_PDAnnot := CreateOleObject('AcroExch.PDAnnot');
end;

destructor TAcroExch_PDAnnot.Destroy;
begin
  FAcroExch_PDAnnot := unassigned;         
  inherited;
end;

//

Unit Description UnitIndex Master Index

function TAcroExch_PDAnnot.GetColor: Integer;
begin
  Result := FAcroExch_PDAnnot.GetColor;
end;

//

Unit Description UnitIndex Master Index

function TAcroExch_PDAnnot.GetContents: WideString;
begin
  Result := FAcroExch_PDAnnot.GetContents;
end;

//

Unit Description UnitIndex Master Index

function TAcroExch_PDAnnot.GetDate: IDispatch;
begin
  Result := FAcroExch_PDAnnot.GetDate;
end;

//

Unit Description UnitIndex Master Index

function TAcroExch_PDAnnot.GetRect: IDispatch;
begin
  Result := FAcroExch_PDAnnot.GetRect;
end;

//

Unit Description UnitIndex Master Index

function TAcroExch_PDAnnot.GetSubtype: WideString;
begin
  Result := FAcroExch_PDAnnot.GetSubtype;
end;

//

Unit Description UnitIndex Master Index

function TAcroExch_PDAnnot.GetTitle: WideString;
begin
  Result := FAcroExch_PDAnnot.GetTitle;
end;

//

Unit Description UnitIndex Master Index

function TAcroExch_PDAnnot.IsEqual(const PDAnnot: IDispatch): Integer;
begin
  Result := FAcroExch_PDAnnot.IsEqual(PDAnnot);
end;

//

Unit Description UnitIndex Master Index

function TAcroExch_PDAnnot.IsOpen: Integer;
begin
  Result := FAcroExch_PDAnnot.IsOpen;
end;

//

Unit Description UnitIndex Master Index

function TAcroExch_PDAnnot.IsValid: Integer;
begin
  Result := FAcroExch_PDAnnot.IsValid;
end;

//

Unit Description UnitIndex Master Index

function TAcroExch_PDAnnot.Perform(const iAcroAVDoc: IDispatch): Integer;
begin
  Result := FAcroExch_PDAnnot.Perform(iAcroAVDoc);
end;

//

Unit Description UnitIndex Master Index

function TAcroExch_PDAnnot.SetColor(nRGBColor: Integer): Integer;
begin
  Result := FAcroExch_PDAnnot.SetColor(nRGBColor);
end;

//

Unit Description UnitIndex Master Index

function TAcroExch_PDAnnot.SetContents(const szContents: WideString): Integer;
begin
  Result := FAcroExch_PDAnnot.SetContents(szContents);
end;

//

Unit Description UnitIndex Master Index

function TAcroExch_PDAnnot.SetDate(const iAcroTime: IDispatch): Integer;
begin
  Result := FAcroExch_PDAnnot.SetDate(iAcroTime);
end;

//

Unit Description UnitIndex Master Index

function TAcroExch_PDAnnot.SetOpen(bIsOpen: Integer): Integer;
begin
  Result := FAcroExch_PDAnnot.SetOpen(bIsOpen);
end;

//

Unit Description UnitIndex Master Index

function TAcroExch_PDAnnot.SetRect(const rect: IDispatch): Integer;
begin
  Result := FAcroExch_PDAnnot.SetRect(rect);
end;

//

Unit Description UnitIndex Master Index

function TAcroExch_PDAnnot.SetTitle(const szTitle: WideString): Integer;
begin
  Result := FAcroExch_PDAnnot.SetTitle(szTitle);
end;

end.
//