annotatexlib.pas

Chart FX for Delphi 2005

    property HeadWidth: Smallint read Get_HeadWidth write Set_HeadWidth;
    property HeadSize: Smallint read Get_HeadSize write Set_HeadSize;
    property HeadStyle: ArrowStyle read Get_HeadStyle write Set_HeadStyle;
    property TailCorner: BallonTail read Get_TailCorner write Set_TailCorner;
    property ArrowY: Smallint read Get_ArrowY write Set_ArrowY;
    property ArrowX: Smallint read Get_ArrowX write Set_ArrowX;
    property Shadow: Smallint read Get_Shadow write Set_Shadow;
    property Radius: Smallint read Get_Radius write Set_Radius;
    property ArrowFactor: Smallint read Get_ArrowFactor write Set_ArrowFactor;
    property Orientation: TextOrient read Get_Orientation write Set_Orientation;
    property Align: Smallint read Get_Align write Set_Align;
    property Font: TFont read Get_Font write Set_Font;
    property Text: WideString read Get_Text write Set_Text;
    property AnnObjInternal: IAnnObjInternal read Get_AnnObjInternal;
    property URLTarget: WideString read Get_URLTarget write Set_URLTarget;
    property URL: WideString read Get_URL write Set_URL;
    property AllowModify: Boolean read Get_AllowModify write Set_AllowModify;
    property AllowMove: Boolean read Get_AllowMove write Set_AllowMove;
    property Tag: Integer read Get_Tag write Set_Tag;
    property Height: Smallint read Get_Height write Set_Height;
    property Width: Smallint read Get_Width write Set_Width;
    property Top: Smallint read Get_Top write Set_Top;
    property Left: Smallint read Get_Left write Set_Left;
    property BorderWidth: Smallint read Get_BorderWidth write Set_BorderWidth;
    property BorderStyle: LineStyle read Get_BorderStyle write Set_BorderStyle;
    property BkColor: TColor read Get_BkColor write Set_BkColor;
    property Color: TColor read Get_Color write Set_Color;
    property ObjectType: OLEVariant read Get_ObjectType;
  end;
 
//*********************************************************************//
// Class: AnnCircle
//*********************************************************************//
  AnnCircle = class
  private
    DefaultInterface : IAnnCircle;
  public
    constructor Create(val: IAnnObject);
  protected
// Properties
    function Get_AnnObjInternal: IAnnObjInternal;
    function Get_URLTarget: WideString;
    procedure Set_URLTarget(const val: WideString);
    function Get_URL: WideString;
    procedure Set_URL(const val: WideString);
    function Get_AllowModify: Boolean;
    procedure Set_AllowModify(val: Boolean);
    function Get_AllowMove: Boolean;
    procedure Set_AllowMove(val: Boolean);
    function Get_Tag: Integer;
    procedure Set_Tag(val: Integer);
    function Get_Height: Smallint;
    procedure Set_Height(val: Smallint);
    function Get_Width: Smallint;
    procedure Set_Width(val: Smallint);
    function Get_Top: Smallint;
    procedure Set_Top(val: Smallint);
    function Get_Left: Smallint;
    procedure Set_Left(val: Smallint);
    function Get_BorderWidth: Smallint;
    procedure Set_BorderWidth(val: Smallint);
    function Get_BorderStyle: LineStyle;
    procedure Set_BorderStyle(val: LineStyle);
    function Get_BkColor: TColor;
    procedure Set_BkColor(const val: TColor);
    function Get_Color: TColor;
    procedure Set_Color(const val: TColor);
    function Get_ObjectType: OLEVariant;
  public
// Methods
    procedure Attach(nAttach: Smallint; var var_: OLEVariant);
    procedure Refresh(bErase: Boolean);
    procedure Rotate(bClockWise: Boolean);
    procedure Flip(bHorizontal: Boolean);
    property AnnObjInternal: IAnnObjInternal read Get_AnnObjInternal;
    property URLTarget: WideString read Get_URLTarget write Set_URLTarget;
    property URL: WideString read Get_URL write Set_URL;
    property AllowModify: Boolean read Get_AllowModify write Set_AllowModify;
    property AllowMove: Boolean read Get_AllowMove write Set_AllowMove;
    property Tag: Integer read Get_Tag write Set_Tag;
    property Height: Smallint read Get_Height write Set_Height;
    property Width: Smallint read Get_Width write Set_Width;
    property Top: Smallint read Get_Top write Set_Top;
    property Left: Smallint read Get_Left write Set_Left;
    property BorderWidth: Smallint read Get_BorderWidth write Set_BorderWidth;
    property BorderStyle: LineStyle read Get_BorderStyle write Set_BorderStyle;
    property BkColor: TColor read Get_BkColor write Set_BkColor;
    property Color: TColor read Get_Color write Set_Color;
    property ObjectType: OLEVariant read Get_ObjectType;
  end;
 
//*********************************************************************//
// Class: AnnGroup
//*********************************************************************//
  AnnGroup = class
  private
    DefaultInterface : IAnnGroup;
  public
    constructor Create(val: IAnnObject); overload;
    constructor Create(pval: IAnnGroup); overload;
  protected
// Properties
    function Get_Count: Integer;
    function Get_URLTarget: WideString;
    procedure Set_URLTarget(const val: WideString);
    function Get_URL: WideString;
    procedure Set_URL(const val: WideString);
    function Get_AllowModify: Boolean;
    procedure Set_AllowModify(val: Boolean);
    function Get_AllowMove: Boolean;
    procedure Set_AllowMove(val: Boolean);
    function Get_Tag: Integer;
    procedure Set_Tag(val: Integer);
    function Get_Height: Smallint;
    procedure Set_Height(val: Smallint);
    function Get_Width: Smallint;
    procedure Set_Width(val: Smallint);
    function Get_Top: Smallint;
    procedure Set_Top(val: Smallint);
    function Get_Left: Smallint;
    procedure Set_Left(val: Smallint);
    function Get_BorderWidth: Smallint;
    procedure Set_BorderWidth(val: Smallint);
    function Get_BorderStyle: LineStyle;
    procedure Set_BorderStyle(val: LineStyle);
    function Get_BkColor: TColor;
    procedure Set_BkColor(const val: TColor);
    function Get_Color: TColor;
    procedure Set_Color(const val: TColor);
    function Get_ObjectType: OLEVariant;
  public
// Methods
    procedure Attach(nAttach: Smallint; var var_: OLEVariant);
    procedure Refresh(bErase: Boolean);
    procedure Rotate(bClockWise: Boolean);
    procedure Flip(bHorizontal: Boolean);
    function GetEnumerator: IUnknown;
    function Item(vIndex: OLEVariant): IAnnObject;
    function Add(obj: OLEVariant; vIndex: OLEVariant): IAnnObject;
    procedure Remove(vIndex: OLEVariant);
    procedure RecalcBounds;
    property Count: Integer read Get_Count;
    property URLTarget: WideString read Get_URLTarget write Set_URLTarget;
    property URL: WideString read Get_URL write Set_URL;
    property AllowModify: Boolean read Get_AllowModify write Set_AllowModify;
    property AllowMove: Boolean read Get_AllowMove write Set_AllowMove;
    property Tag: Integer read Get_Tag write Set_Tag;
    property Height: Smallint read Get_Height write Set_Height;
    property Width: Smallint read Get_Width write Set_Width;
    property Top: Smallint read Get_Top write Set_Top;
    property Left: Smallint read Get_Left write Set_Left;
    property BorderWidth: Smallint read Get_BorderWidth write Set_BorderWidth;
    property BorderStyle: LineStyle read Get_BorderStyle write Set_BorderStyle;
    property BkColor: TColor read Get_BkColor write Set_BkColor;
    property Color: TColor read Get_Color write Set_Color;
    property ObjectType: OLEVariant read Get_ObjectType;
  end;
 
//*********************************************************************//
// Class: AnnPicture
//*********************************************************************//
  AnnPicture = class
  private
    DefaultInterface : IAnnPicture2;
  public
    constructor Create(val: IAnnObject);
  protected
// Properties
    function Get_Picture: TPicture;
    procedure Set_Picture(const val: TPicture);
    function Get_Mode: Smallint;
    procedure Set_Mode(val: Smallint);
    function Get_AnnObjInternal: IAnnObjInternal;
    function Get_URLTarget: WideString;
    procedure Set_URLTarget(const val: WideString);
    function Get_URL: WideString;
    procedure Set_URL(const val: WideString);
    function Get_AllowModify: Boolean;
    procedure Set_AllowModify(val: Boolean);
    function Get_AllowMove: Boolean;
    procedure Set_AllowMove(val: Boolean);
    function Get_Tag: Integer;
    procedure Set_Tag(val: Integer);
    function Get_Height: Smallint;
    procedure Set_Height(val: Smallint);
    function Get_Width: Smallint;
    procedure Set_Width(val: Smallint);
    function Get_Top: Smallint;
    procedure Set_Top(val: Smallint);
    function Get_Left: Smallint;
    procedure Set_Left(val: Smallint);
    function Get_BorderWidth: Smallint;
    procedure Set_BorderWidth(val: Smallint);
    function Get_BorderStyle: LineStyle;
    procedure Set_BorderStyle(val: LineStyle);
    function Get_BkColor: TColor;
    procedure Set_BkColor(const val: TColor);
    function Get_Color: TColor;
    procedure Set_Color(const val: TColor);
    function Get_ObjectType: OLEVariant;
  public
// Methods
    procedure Attach(nAttach: Smallint; var var_: OLEVariant);
    procedure Refresh(bErase: Boolean);
    procedure Rotate(bClockWise: Boolean);
    procedure Flip(bHorizontal: Boolean);
    procedure LoadFromFile(const s: WideString);
    procedure LoadPicture(const s: WideString);
    property Picture: TPicture read Get_Picture write Set_Picture;
    property Mode: Smallint read Get_Mode write Set_Mode;
    property AnnObjInternal: IAnnObjInternal read Get_AnnObjInternal;
    property URLTarget: WideString read Get_URLTarget write Set_URLTarget;
    property URL: WideString read Get_URL write Set_URL;
    property AllowModify: Boolean read Get_AllowModify write Set_AllowModify;
    property AllowMove: Boolean read Get_AllowMove write Set_AllowMove;
    property Tag: Integer read Get_Tag write Set_Tag;
    property Height: Smallint read Get_Height write Set_Height;
    property Width: Smallint read Get_Width write Set_Width;
    property Top: Smallint read Get_Top write Set_Top;
    property Left: Smallint read Get_Left write Set_Left;
    property BorderWidth: Smallint read Get_BorderWidth write Set_BorderWidth;
    property BorderStyle: LineStyle read Get_BorderStyle write Set_BorderStyle;
    property BkColor: TColor read Get_BkColor write Set_BkColor;
    property Color: TColor read Get_Color write Set_Color;
    property ObjectType: OLEVariant read Get_ObjectType;
  end;
 
//*********************************************************************//
// Class: AnnPolygon
//*********************************************************************//
  AnnPolygon = class
  private
    DefaultInterface : IAnnPolygon2;
  public
    constructor Create(val: IAnnObject);
  protected
// Properties
    function Get_Closed: Boolean;
    procedure Set_Closed(val: Boolean);
    function Get_FillMode: PolyFillMode;
    procedure Set_FillMode(val: PolyFillMode);
    function Get_NumVertex: Smallint;
    function Get_AnnObjInternal: IAnnObjInternal;
    function Get_URLTarget: WideString;
    procedure Set_URLTarget(const val: WideString);
    function Get_URL: WideString;
    procedure Set_URL(const val: WideString);
    function Get_AllowModify: Boolean;
    procedure Set_AllowModify(val: Boolean);
    function Get_AllowMove: Boolean;
    procedure Set_AllowMove(val: Boolean);
    function Get_Tag: Integer;
    procedure Set_Tag(val: Integer);
    function Get_Height: Smallint;
    procedure Set_Height(val: Smallint);
    function Get_Width: Smallint;
    procedure Set_Width(val: Smallint);
    function Get_Top: Smallint;
    procedure Set_Top(val: Smallint);
    function Get_Left: Smallint;
    procedure Set_Left(val: Smallint);
    function Get_BorderWidth: Smallint;
    procedure Set_BorderWidth(val: Smallint);
    function Get_BorderStyle: LineStyle;
    procedure Set_BorderStyle(val: LineStyle);
    function Get_BkColor: TColor;
    procedure Set_BkColor(const val: TColor);
    function Get_Color: TColor;
    procedure Set_Color(const val: TColor);
    function Get_ObjectType: OLEVariant;
  public
// Methods
    procedure Attach(nAttach: Smallint; var var_: OLEVariant);
    procedure Refresh(bErase: Boolean);
    procedure Rotate(bClockWise: Boolean);
    procedure Flip(bHorizontal: Boolean);
    procedure SetVertex(nIndex: Smallint; x: Smallint; y: Smallint);
    procedure GetVertex(nIndex: Smallint; out x: Smallint; out y: Smallint);
    procedure RecalcBounds;
    function GetVertexX(nIndex: Smallin