//
unit ads_AcroExch_AVPageView; {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_AVPageView.pas This unit contains the following routines.
Register TAcroExch_AVPageView.DevicePointToPage TAcroExch_AVPageView.DoGoBack TAcroExch_AVPageView.DoGoForward TAcroExch_AVPageView.GetAperture TAcroExch_AVPageView.GetAVDoc TAcroExch_AVPageView.GetDoc TAcroExch_AVPageView.GetPage TAcroExch_AVPageView.GetPageNum TAcroExch_AVPageView.GetZoom TAcroExch_AVPageView.GetZoomType TAcroExch_AVPageView.GoTo_ TAcroExch_AVPageView.PointToDevice TAcroExch_AVPageView.ReadPageDown TAcroExch_AVPageView.ReadPageUp TAcroExch_AVPageView.ScrollTo TAcroExch_AVPageView.ZoomTo
*) interface Uses Acrobat_TLB, Classes; Type TAcroExch_AVPageView = class(TComponent) Private FAcroExch_AVPageView : Variant; Public constructor Create(AOwner: TComponent); override; destructor Destroy; override; function DevicePointToPage(const point: IDispatch): IDispatch; function DoGoBack: Integer; function DoGoForward: Integer; function GetAperture: IDispatch; function GetAVDoc: IDispatch; function GetDoc: IDispatch; function GetPage: IDispatch; function GetPageNum: Integer; function GetZoom: Integer; function GetZoomType: Smallint; function GoTo_(nPage: Integer): Integer; function PointToDevice(const point: IDispatch): IDispatch; function ReadPageDown: Integer; function ReadPageUp: Integer; function ScrollTo(nX: Smallint; nY: Smallint): Integer; function ZoomTo(nType: Smallint; nScale: Smallint): Integer; End; procedure Register; implementation Uses Variants, ComObj; //Unit Description UnitIndex Master Index
procedure Register; begin RegisterComponents('Acrobat', [TAcroExch_AVPageView]); end; constructor TAcroExch_AVPageView.Create(AOwner: TComponent); begin inherited; FAcroExch_AVPageView := CreateOleObject('AcroExch.AVPageView'); end; destructor TAcroExch_AVPageView.Destroy; begin FAcroExch_AVPageView := unassigned; inherited; end; //Unit Description UnitIndex Master Index
function TAcroExch_AVPageView.DevicePointToPage(const point: IDispatch): IDispatch; begin Result := FAcroExch_AVPageView.DevicePointToPage(point); end; //Unit Description UnitIndex Master Index
function TAcroExch_AVPageView.DoGoBack: Integer; begin Result := FAcroExch_AVPageView.DoGoBack; end; //Unit Description UnitIndex Master Index
function TAcroExch_AVPageView.DoGoForward: Integer; begin Result := FAcroExch_AVPageView.DoGoForward; end; //Unit Description UnitIndex Master Index
function TAcroExch_AVPageView.GetAperture: IDispatch; begin Result := FAcroExch_AVPageView.GetAperture; end; //Unit Description UnitIndex Master Index
function TAcroExch_AVPageView.GetAVDoc: IDispatch; begin Result := FAcroExch_AVPageView.GetAVDoc; end; //Unit Description UnitIndex Master Index
function TAcroExch_AVPageView.GetDoc: IDispatch; begin Result := FAcroExch_AVPageView.GetDoc; end; //Unit Description UnitIndex Master Index
function TAcroExch_AVPageView.GetPage: IDispatch; begin Result := FAcroExch_AVPageView.GetPage; end; //Unit Description UnitIndex Master Index
function TAcroExch_AVPageView.GetPageNum: Integer; begin Result := FAcroExch_AVPageView.GetPageNum; end; //Unit Description UnitIndex Master Index
function TAcroExch_AVPageView.GetZoom: Integer; begin Result := FAcroExch_AVPageView.GetZoom; end; //Unit Description UnitIndex Master Index
function TAcroExch_AVPageView.GetZoomType: Smallint; begin Result := FAcroExch_AVPageView.GetZoomType; end; //Unit Description UnitIndex Master Index
function TAcroExch_AVPageView.GoTo_(nPage: Integer): Integer; begin Result := FAcroExch_AVPageView.GoTo_(nPage); end; //Unit Description UnitIndex Master Index
function TAcroExch_AVPageView.PointToDevice( const point: IDispatch): IDispatch; begin Result := FAcroExch_AVPageView.PointToDevice(point); end; //Unit Description UnitIndex Master Index
function TAcroExch_AVPageView.ReadPageDown: Integer; begin Result := FAcroExch_AVPageView.ReadPageDown; end; //Unit Description UnitIndex Master Index
function TAcroExch_AVPageView.ReadPageUp: Integer; begin Result := FAcroExch_AVPageView.ReadPageUp; end; //Unit Description UnitIndex Master Index
function TAcroExch_AVPageView.ScrollTo(nX, nY: Smallint): Integer; begin Result := FAcroExch_AVPageView.ScrollTo(nX, nY); end; //Unit Description UnitIndex Master Index
function TAcroExch_AVPageView.ZoomTo(nType, nScale: Smallint): Integer; begin Result := FAcroExch_AVPageView.ZoomTo(nType, nScale); end; end. //