annotatexlib.pas

Chart FX for Delphi 2005

    function get_Orientation: TextOrient; safecall;
    procedure set_Orientation(retval: TextOrient); safecall;
    procedure SizeToFit; safecall;
  end;
 
//*********************************************************************//
// Class: IAnnText2
//*********************************************************************//
  IAnnText2 = interface(IDispatch)
    ['{EF600D61-358F-11D1-8FD4-00AA00BD091C}']
    function get_ObjectType: OLEVariant; safecall;
    function get_Color: OLE_COLOR; safecall;
    procedure set_Color(retval: OLE_COLOR); safecall;
    function get_BkColor: OLE_COLOR; safecall;
    procedure set_BkColor(retval: OLE_COLOR); safecall;
    function get_BorderStyle: LineStyle; safecall;
    procedure set_BorderStyle(retval: LineStyle); safecall;
    function get_BorderWidth: Smallint; safecall;
    procedure set_BorderWidth(retval: Smallint); safecall;
    function get_Left: Smallint; safecall;
    procedure set_Left(retval: Smallint); safecall;
    function get_Top: Smallint; safecall;
    procedure set_Top(retval: Smallint); safecall;
    function get_Width: Smallint; safecall;
    procedure set_Width(retval: Smallint); safecall;
    function get_Height: Smallint; safecall;
    procedure set_Height(retval: Smallint); safecall;
    function get_Tag: Integer; safecall;
    procedure set_Tag(retval: Integer); safecall;
    function get_AllowMove: WordBool; safecall;
    procedure set_AllowMove(pVal: WordBool); safecall;
    function get_AllowModify: WordBool; safecall;
    procedure set_AllowModify(pVal: WordBool); safecall;
    procedure Attach(nAttach: Smallint; var var_: OLEVariant); safecall;
    procedure Refresh(bErase: WordBool); safecall;
    procedure Rotate(bClockWise: WordBool); safecall;
    procedure Flip(bHorizontal: WordBool); safecall;
    function get_URL: WideString; safecall;
    procedure set_URL(const pVal: WideString); safecall;
    function get_URLTarget: WideString; safecall;
    procedure set_URLTarget(const pVal: WideString); safecall;
    function get_AnnObjInternal: IAnnObjInternal; safecall;
    function get_Text: WideString; safecall;
    procedure set_Text(const retval: WideString); safecall;
    function get_Font: IFontDisp; safecall;
    procedure set_Font(val: IFontDisp); safecall;
    function get_Align: Smallint; safecall;
    procedure set_Align(retval: Smallint); safecall;
    function get_Orientation: TextOrient; safecall;
    procedure set_Orientation(retval: TextOrient); safecall;
    procedure SizeToFit; safecall;
  end;
 
Type
  AnnArc = class;
  AnnArrow = class;
  AnnBalloon = class;
  AnnCircle = class;
  AnnGroup = class;
  AnnPicture = class;
  AnnPolygon = class;
  AnnRect = class;
  AnnText = class;
  AnnotationX = class;
  AnnObject = class;

 
//*********************************************************************//
// Class: AnnArc
//*********************************************************************//
  AnnArc = class
  private
    DefaultInterface : IAnnArc;
  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: AnnArrow
//*********************************************************************//
  AnnArrow = class
  private
    DefaultInterface : IAnnArrow2;
  public
    constructor Create(val: IAnnObject);
  protected
// Properties
    function Get_TailWidth: Smallint;
    procedure Set_TailWidth(val: Smallint);
    function Get_TailSize: Smallint;
    procedure Set_TailSize(val: Smallint);
    function Get_TailStyle: ArrowStyle;
    procedure Set_TailStyle(val: ArrowStyle);
    function Get_HeadWidth: Smallint;
    procedure Set_HeadWidth(val: Smallint);
    function Get_HeadSize: Smallint;
    procedure Set_HeadSize(val: Smallint);
    function Get_HeadStyle: ArrowStyle;
    procedure Set_HeadStyle(val: ArrowStyle);
    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 TailWidth: Smallint read Get_TailWidth write Set_TailWidth;
    property TailSize: Smallint read Get_TailSize write Set_TailSize;
    property TailStyle: ArrowStyle read Get_TailStyle write Set_TailStyle;
    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 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: AnnBalloon
//*********************************************************************//
  AnnBalloon = class
  private
    DefaultInterface : IAnnBalloon2;
  public
    constructor Create(val: IAnnObject);
  protected
// Properties
    function Get_UseArrow: Boolean;
    procedure Set_UseArrow(val: Boolean);
    function Get_HeadWidth: Smallint;
    procedure Set_HeadWidth(val: Smallint);
    function Get_HeadSize: Smallint;
    procedure Set_HeadSize(val: Smallint);
    function Get_HeadStyle: ArrowStyle;
    procedure Set_HeadStyle(val: ArrowStyle);
    function Get_TailCorner: BallonTail;
    procedure Set_TailCorner(val: BallonTail);
    function Get_ArrowY: Smallint;
    procedure Set_ArrowY(val: Smallint);
    function Get_ArrowX: Smallint;
    procedure Set_ArrowX(val: Smallint);
    function Get_Shadow: Smallint;
    procedure Set_Shadow(val: Smallint);
    function Get_Radius: Smallint;
    procedure Set_Radius(val: Smallint);
    function Get_ArrowFactor: Smallint;
    procedure Set_ArrowFactor(val: Smallint);
    function Get_Orientation: TextOrient;
    procedure Set_Orientation(val: TextOrient);
    function Get_Align: Smallint;
    procedure Set_Align(val: Smallint);
    function Get_Font: TFont;
    procedure Set_Font(const val: TFont);
    function Get_Text: WideString;
    procedure Set_Text(const val: WideString);
    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 SizeToFit;
    property UseArrow: Boolean read Get_UseArrow write Set_UseArrow;