//Advanced Delphi Systems Code: ads_AcroExch_Time
unit ads_AcroExch_Time;
{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_Time.pas
This unit contains the following routines.

Register   TAcroExch_Time.Setdate   TAcroExch_Time.Setday   TAcroExch_Time.Sethour   TAcroExch_Time.Setmillisecond  TAcroExch_Time.Setminute   TAcroExch_Time.Setmonth   TAcroExch_Time.Setsecond   TAcroExch_Time.Setyear   

*)
interface
Uses
  Acrobat_TLB, Classes;

Type
  TAcroExch_Time = class(TComponent)
  Private
    FAcroExch_Time : Variant;
    Fdate: Integer;
    Fmonth: Integer;
    Fsecond: Integer;
    Fminute: Integer;
    Fhour: Integer;
    Fyear: Integer;
    Fmillisecond: Integer;
    Fday: Integer;
    procedure Setdate(const Value: Integer);
    procedure Setday(const Value: Integer);
    procedure Sethour(const Value: Integer);
    procedure Setmillisecond(const Value: Integer);
    procedure Setminute(const Value: Integer);
    procedure Setmonth(const Value: Integer);
    procedure Setsecond(const Value: Integer);
    procedure Setyear(const Value: Integer);
  Public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    property    date         : Integer read Fdate write Setdate;
    property    day          : Integer read Fday write Setday;
    property    hour         : Integer read Fhour write Sethour;
    property    millisecond  : Integer read Fmillisecond write Setmillisecond;
    property    minute       : Integer read Fminute write Setminute;
    property    month        : Integer read Fmonth write Setmonth;
    property    second       : Integer read Fsecond write Setsecond;
    property    year         : Integer read Fyear write Setyear;
  End;

  procedure Register;

implementation

Uses
  Variants, ComObj;

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

constructor TAcroExch_Time.Create(AOwner: TComponent);
begin
  inherited;
  FAcroExch_Time := CreateOleObject('AcroExch.Time');
end;

destructor TAcroExch_Time.Destroy;
begin
  FAcroExch_Time := unassigned;
  inherited;
end;

//
Unit Description UnitIndex Master Index
procedure TAcroExch_Time.Setdate(const Value: Integer);
begin
  Fdate := Value;
end;

//
Unit Description UnitIndex Master Index
procedure TAcroExch_Time.Setday(const Value: Integer);
begin
  Fday := Value;
end;

//
Unit Description UnitIndex Master Index
procedure TAcroExch_Time.Sethour(const Value: Integer);
begin
  Fhour := Value;
end;

//
Unit Description UnitIndex Master Index
procedure TAcroExch_Time.Setmillisecond(const Value: Integer);
begin
  Fmillisecond := Value;
end;

//
Unit Description UnitIndex Master Index
procedure TAcroExch_Time.Setminute(const Value: Integer);
begin
  Fminute := Value;
end;

//
Unit Description UnitIndex Master Index
procedure TAcroExch_Time.Setmonth(const Value: Integer);
begin
  Fmonth := Value;
end;

//
Unit Description UnitIndex Master Index
procedure TAcroExch_Time.Setsecond(const Value: Integer);
begin
  Fsecond := Value;
end;

//
Unit Description UnitIndex Master Index
procedure TAcroExch_Time.Setyear(const Value: Integer);
begin
  Fyear := Value;
end;

end.
//