annotatexlib.pas

Chart FX for Delphi 2005

unit AnnotateXLib;
{$TYPEDADDRESS OFF}
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}

interface

uses Windows, ActiveX, Classes, Graphics, OleCtrls, AxCtrls, ComObj, ChartFXLib;

const
  // TypeLibrary Major and minor versions
  AnnotateXLibMajorVersion = 4;
  AnnotateXLibMinorVersion = 0;

  CLASS_AnnotationX: TGUID = '{EF600D71-358F-11D1-8FD4-00AA00BD091C}';
  CLASS_AnnRect: TGUID = '{EF600D74-358F-11D1-8FD4-00AA00BD091C}';
  CLASS_AnnArrow: TGUID = '{EF600D7A-358F-11D1-8FD4-00AA00BD091C}';
  CLASS_AnnCircle: TGUID = '{EF600D77-358F-11D1-8FD4-00AA00BD091C}';
  CLASS_AnnArc: TGUID = '{EF600D7D-358F-11D1-8FD4-00AA00BD091C}';
  CLASS_AnnText: TGUID = '{EF600D80-358F-11D1-8FD4-00AA00BD091C}';
  CLASS_AnnBalloon: TGUID = '{EF600D83-358F-11D1-8FD4-00AA00BD091C}';
  CLASS_AnnPicture: TGUID = '{EF600D86-358F-11D1-8FD4-00AA00BD091C}';
  CLASS_AnnGroup: TGUID = '{EF600D89-358F-11D1-8FD4-00AA00BD091C}';
  CLASS_AnnPolygon: TGUID = '{EF600D8C-358F-11D1-8FD4-00AA00BD091C}';

type LineStyle = Smallint;
const
  LS_SOLID = 0;
  LS_DASH = 1;
  LS_DOT = 2;
  LS_DASHDOT = 3;
  LS_DASHDOTDOT = 4;
  LS_NONE = 5;

type ArrowStyle = Smallint;
const
  ARROW_NONE = 0;
  ARROW_TRIANGLE = 1;
  ARROW_KILL = 2;

type BallonTail = Smallint;
const
  BALLOON_LT = 0;
  BALLOON_RT = 1;
  BALLOON_LB = 2;
  BALLOON_RB = 3;

type TextOrient = Smallint;
const
  TO_LEFT2RIGHT = 0;
  TO_BOTTOM2TOP = 1;
  TO_RIGHT2LEFT = 2;
  TO_TOP2BOTTOM = 3;

type ObjectType = Smallint;
const
  OBJECT_TYPE_RECT = 1;
  OBJECT_TYPE_CIRCLE = 2;
  OBJECT_TYPE_ARROW = 3;
  OBJECT_TYPE_ARC = 4;
  OBJECT_TYPE_PICTURE = 5;
  OBJECT_TYPE_TEXT = 6;
  OBJECT_TYPE_BALLOON = 7;
  OBJECT_TYPE_GROUP = 8;
  OBJECT_TYPE_POLYGON = 9;

type PolyFillMode = Smallint;
const
  FILLMODE_ALTERNATE = 1;
  FILLMODE_WINDING = 2;

type
  IAnnArc = interface;
  IAnnArrow = interface;
  IAnnArrow2 = interface;
  IAnnBalloon = interface;
  IAnnBalloon2 = interface;
  IAnnCircle = interface;
  IAnnGroup = interface;
  IAnnList = interface;
  IAnnObjInternal = interface;
  IAnnObject = interface;
  IAnnObject2 = interface;
  IAnnPicture = interface;
  IAnnPicture2 = interface;
  IAnnPolygon = interface;
  IAnnPolygon2 = interface;
  IAnnRect = interface;
  IAnnText = interface;
  IAnnText2 = interface;

//*********************************************************************//
// Class: IAnnArc
//*********************************************************************//
  IAnnArc = interface(IDispatch)
    ['{EF600D7E-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;
  end;
 
//*********************************************************************//
// Class: IAnnArrow
//*********************************************************************//
  IAnnArrow = interface(IDispatch)
    ['{EF600D7B-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_HeadStyle: ArrowStyle; safecall;
    procedure set_HeadStyle(retval: ArrowStyle); safecall;
    function get_HeadSize: Smallint; safecall;
    procedure set_HeadSize(retval: Smallint); safecall;
    function get_HeadWidth: Smallint; safecall;
    procedure set_HeadWidth(retval: Smallint); safecall;
    function get_TailStyle: ArrowStyle; safecall;
    procedure set_TailStyle(retval: ArrowStyle); safecall;
    function get_TailSize: Smallint; safecall;
    procedure set_TailSize(retval: Smallint); safecall;
    function get_TailWidth: Smallint; safecall;
    procedure set_TailWidth(retval: Smallint); safecall;
  end;
 
//*********************************************************************//
// Class: IAnnArrow2
//*********************************************************************//
  IAnnArrow2 = interface(IDispatch)
    ['{EF600D6B-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_HeadStyle: ArrowStyle; safecall;
    procedure set_HeadStyle(retval: ArrowStyle); safecall;
    function get_HeadSize: Smallint; safecall;
    procedure set_HeadSize(retval: Smallint); safecall;
    function get_HeadWidth: Smallint; safecall;
    procedure set_HeadWidth(retval: Smallint); safecall;
    function get_TailStyle: ArrowStyle; safecall;
    procedure set_TailStyle(retval: ArrowStyle); safecall;
    function get_TailSize: Smallint; safecall;
    procedure set_TailSize(retval: Smallint); safecall;
    function get_TailWidth: Smallint; safecall;
    procedure set_TailWidth(retval: Smallint); safecall;
  end;
 
//*********************************************************************//
// Class: IAnnBalloon
//*********************************************************************//
  IAnnBalloon = interface(IDispatch)
    ['{EF600D84-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_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;
    function get_ArrowFactor: Smallint; safecall;
    procedure set_ArrowFactor(retval: Smallint); safecall;
    function get_Radius: Smallint; safecall;
    procedure set_Radius(retval: Smallint); safecall;