msinkautlib.pas

看到很多手写控件

    procedure Set_Bottom(Units: Integer); safecall;
    function Get_Right: Integer; safecall;
    procedure Set_Right(Units: Integer); safecall;
    function Get_Data: tagRECT; safecall;
    procedure Set_Data(Rect: tagRECT); safecall;
    procedure GetRectangle(out Top: Integer; out Left: Integer; out Bottom: Integer; 
                           out Right: Integer); safecall;
    procedure SetRectangle(Top: Integer; Left: Integer; Bottom: Integer; Right: Integer); safecall;
    property Top: Integer read Get_Top write Set_Top;
    property Left: Integer read Get_Left write Set_Left;
    property Bottom: Integer read Get_Bottom write Set_Bottom;
    property Right: Integer read Get_Right write Set_Right;
    property Data: tagRECT read Get_Data write Set_Data;
  end;

// *********************************************************************//
// DispIntf:  IInkRectangleDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {9794FF82-6071-4717-8A8B-6AC7C64A686E}
// *********************************************************************//
  IInkRectangleDisp = dispinterface
    ['{9794FF82-6071-4717-8A8B-6AC7C64A686E}']
    property Top: Integer dispid 1;
    property Left: Integer dispid 2;
    property Bottom: Integer dispid 3;
    property Right: Integer dispid 4;
    property Data: {??tagRECT}OleVariant dispid 7;
    procedure GetRectangle(out Top: Integer; out Left: Integer; out Bottom: Integer; 
                           out Right: Integer); dispid 5;
    procedure SetRectangle(Top: Integer; Left: Integer; Bottom: Integer; Right: Integer); dispid 6;
  end;

// *********************************************************************//
// Interface: IInkExtendedProperty
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {DB489209-B7C3-411D-90F6-1548CFFF271E}
// *********************************************************************//
  IInkExtendedProperty = interface(IDispatch)
    ['{DB489209-B7C3-411D-90F6-1548CFFF271E}']
    function Get_Guid: WideString; safecall;
    function Get_Data: OleVariant; safecall;
    procedure Set_Data(Data: OleVariant); safecall;
    property Guid: WideString read Get_Guid;
    property Data: OleVariant read Get_Data write Set_Data;
  end;

// *********************************************************************//
// DispIntf:  IInkExtendedPropertyDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {DB489209-B7C3-411D-90F6-1548CFFF271E}
// *********************************************************************//
  IInkExtendedPropertyDisp = dispinterface
    ['{DB489209-B7C3-411D-90F6-1548CFFF271E}']
    property Guid: WideString readonly dispid 1;
    property Data: OleVariant dispid 2;
  end;

// *********************************************************************//
// Interface: IInkExtendedProperties
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {89F2A8BE-95A9-4530-8B8F-88E971E3E25F}
// *********************************************************************//
  IInkExtendedProperties = interface(IDispatch)
    ['{89F2A8BE-95A9-4530-8B8F-88E971E3E25F}']
    function Get_Count: Integer; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Item(Identifier: OleVariant): IInkExtendedProperty; safecall;
    function Add(const Guid: WideString; Data: OleVariant): IInkExtendedProperty; safecall;
    procedure Remove(Identifier: OleVariant); safecall;
    procedure Clear; safecall;
    function DoesPropertyExist(const Guid: WideString): WordBool; safecall;
    property Count: Integer read Get_Count;
    property _NewEnum: IUnknown read Get__NewEnum;
  end;

// *********************************************************************//
// DispIntf:  IInkExtendedPropertiesDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {89F2A8BE-95A9-4530-8B8F-88E971E3E25F}
// *********************************************************************//
  IInkExtendedPropertiesDisp = dispinterface
    ['{89F2A8BE-95A9-4530-8B8F-88E971E3E25F}']
    property Count: Integer readonly dispid 1;
    property _NewEnum: IUnknown readonly dispid -4;
    function Item(Identifier: OleVariant): IInkExtendedProperty; dispid 0;
    function Add(const Guid: WideString; Data: OleVariant): IInkExtendedProperty; dispid 2;
    procedure Remove(Identifier: OleVariant); dispid 3;
    procedure Clear; dispid 4;
    function DoesPropertyExist(const Guid: WideString): WordBool; dispid 5;
  end;

// *********************************************************************//
// Interface: IInkDrawingAttributes
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {BF519B75-0A15-4623-ADC9-C00D436A8092}
// *********************************************************************//
  IInkDrawingAttributes = interface(IDispatch)
    ['{BF519B75-0A15-4623-ADC9-C00D436A8092}']
    function Get_Color: Integer; safecall;
    procedure Set_Color(CurrentColor: Integer); safecall;
    function Get_Width: Single; safecall;
    procedure Set_Width(CurrentWidth: Single); safecall;
    function Get_Height: Single; safecall;
    procedure Set_Height(CurrentHeight: Single); safecall;
    function Get_FitToCurve: WordBool; safecall;
    procedure Set_FitToCurve(Flag: WordBool); safecall;
    function Get_IgnorePressure: WordBool; safecall;
    procedure Set_IgnorePressure(Flag: WordBool); safecall;
    function Get_AntiAliased: WordBool; safecall;
    procedure Set_AntiAliased(Flag: WordBool); safecall;
    function Get_Transparency: Integer; safecall;
    procedure Set_Transparency(CurrentTransparency: Integer); safecall;
    function Get_RasterOperation: InkRasterOperation; safecall;
    procedure Set_RasterOperation(CurrentRasterOperation: InkRasterOperation); safecall;
    function Get_PenTip: InkPenTip; safecall;
    procedure Set_PenTip(CurrentPenTip: InkPenTip); safecall;
    function Get_ExtendedProperties: IInkExtendedProperties; safecall;
    function Clone: IInkDrawingAttributes; safecall;
    property Color: Integer read Get_Color write Set_Color;
    property Width: Single read Get_Width write Set_Width;
    property Height: Single read Get_Height write Set_Height;
    property FitToCurve: WordBool read Get_FitToCurve write Set_FitToCurve;
    property IgnorePressure: WordBool read Get_IgnorePressure write Set_IgnorePressure;
    property AntiAliased: WordBool read Get_AntiAliased write Set_AntiAliased;
    property Transparency: Integer read Get_Transparency write Set_Transparency;
    property RasterOperation: InkRasterOperation read Get_RasterOperation write Set_RasterOperation;
    property PenTip: InkPenTip read Get_PenTip write Set_PenTip;
    property ExtendedProperties: IInkExtendedProperties read Get_ExtendedProperties;
  end;

// *********************************************************************//
// DispIntf:  IInkDrawingAttributesDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {BF519B75-0A15-4623-ADC9-C00D436A8092}
// *********************************************************************//
  IInkDrawingAttributesDisp = dispinterface
    ['{BF519B75-0A15-4623-ADC9-C00D436A8092}']
    property Color: Integer dispid 2;
    property Width: Single dispid 3;
    property Height: Single dispid 1;
    property FitToCurve: WordBool dispid 4;
    property IgnorePressure: WordBool dispid 5;
    property AntiAliased: WordBool dispid 6;
    property Transparency: Integer dispid 7;
    property RasterOperation: InkRasterOperation dispid 8;
    property PenTip: InkPenTip dispid 9;
    property ExtendedProperties: IInkExtendedProperties readonly dispid 11;
    function Clone: IInkDrawingAttributes; dispid 10;
  end;

// *********************************************************************//
// Interface: IInkTransform
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {615F1D43-8703-4565-88E2-8201D2ECD7B7}
// *********************************************************************//
  IInkTransform = interface(IDispatch)
    ['{615F1D43-8703-4565-88E2-8201D2ECD7B7}']
    procedure Reset; safecall;
    procedure Translate(HorizontalComponent: Single; VerticalComponent: Single); safecall;
    procedure Rotate(Degrees: Single; x: Single; y: Single); safecall;
    procedure Reflect(Horizontally: WordBool; Vertically: WordBool); safecall;
    procedure Shear(HorizontalComponent: Single; VerticalComponent: Single); safecall;
    procedure ScaleTransform(HorizontalMultiplier: Single; VerticalMultiplier: Single); safecall;
    procedure GetTransform(out eM11: Single; out eM12: Single; out eM21: Single; out eM22: Single; 
                           out eDx: Single; out eDy: Single); safecall;
    procedure SetTransform(eM11: Single; eM12: Single; eM21: Single; eM22: Single; eDx: Single; 
                           eDy: Single); safecall;
    function Get_eM11: Single; safecall;
    procedure Set_eM11(Value: Single); safecall;
    function Get_eM12: Single; safecall;
    procedure Set_eM12(Value: Single); safecall;
    function Get_eM21: Single; safecall;
    procedure Set_eM21(Value: Single); safecall;
    function Get_eM22: Single; safecall;
    procedure Set_eM22(Value: Single); safecall;
    function Get_eDx: Single; safecall;
    procedure Set_eDx(Value: Single); safecall;
    function Get_eDy: Single; safecall;
    procedure Set_eDy(Value: Single); safecall;
    function Get_Data: XFORM; safecall;
    procedure Set_Data(XFORM: XFORM); safecall;
    property eM11: Single read Get_eM11 write Set_eM11;
    property eM12: Single read Get_eM12 write Set_eM12;
    property eM21: Single read Get_eM21 write Set_eM21;
    property eM22: Single read Get_eM22 write Set_eM22;
    property eDx: Single read Get_eDx write Set_eDx;
    property eDy: Single read Get_eDy write Set_eDy;
    property Data: XFORM read Get_Data write Set_Data;
  end;

// *********************************************************************//
// DispIntf:  IInkTransformDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {615F1D43-8703-4565-88E2-8201D2ECD7B7}
// *********************************************************************//
  IInkTransformDisp = dispinterface
    ['{615F1D43-8703-4565-88E2-8201D2ECD7B7}']
    procedure Reset; dispid 1;
    procedure Translate(HorizontalComponent: Single; VerticalComponent: Single); dispid 2;
    procedure Rotate(Degrees: Single; x: Single; y: Single); dispid 3;
    procedure Reflect(Horizontally: WordBool; Vertically: WordBool); dispid 4;
    procedure Shear(HorizontalComponent: Single; VerticalComponent: Single); dispid 5;
    procedure ScaleTransform(HorizontalMultiplier: Single; VerticalMultiplier: Single); dispid 6;
    procedure GetTransform(out eM11: Single; out eM12: Single; out eM21: Single; out eM22: Single; 
                           out eDx: Single; out eDy: Single); dispid 13;
    procedure SetTransform(eM11: Single; eM12: Single; eM21: Single; eM22: Single; eDx: Single; 
                           eDy: Single); dispid 14;
    property eM11: Single dispid 7;
    property eM12: Single dispid 8;
    property eM21: Single dispid 9;
    property eM22: Single dispid 10;
    property eDx: Single dispid 11;
    property eDy: Single dispid 12;
    property Data: {??XFORM}OleVariant dispid 15;
  end;

// *********************************************************************//
// Interface: IInkGesture
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3BDC0A97-04E5-4E26-B813-18F052D41DEF}
// *********************************************************************//
  IInkGesture = interface(IDispatch)
    ['{3BDC0A97-04E5-4E26-B813-18F052D41DEF}']
    function Get_Confidence: InkRecognitionConfidence; safecall;
    function Get_Id: InkApplicationGesture; safecall;
    procedure GetHotPoint(var x: Integer; var y: Integer); safecall;
    property Confidence: InkRecognitionConfidence read Get_Confidence;
    property Id: InkApplicationGesture read Get_Id;
  end;

// *********************************************************************//
// DispIntf:  IInkGestureDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3BDC0A97-04E5-4E26-B813-18F052D41DEF}
// *********************************************************************//
  IInkGestureDisp = dispinterface
    ['{3BDC0A97-04E5-4E26-B813-18F052D41DEF}']
    property Confidence: InkRecognitionConfidence readonly dispid 2;
    property Id: InkApplicationGesture readonly dispid 0;
    procedure GetHotPoint(var x: Integer; var y: Integer); dispid 1;
  end;

// *********************************************************************//
// Interface: IInkCursor
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {AD30C630-40C5-4350-8405-9C71012FC558}
// *********************************************************************//
  IInkCursor = interface(IDispatch)
    ['{AD30C630-40C5-4350-8405-9C71012FC558}']
    function Get_Name: WideString; safecall;
    function Get_Id: Integer; safecall;
    function Get_Inverted: WordBool; safecall;
    function Get_DrawingAttributes: IInkDrawingAttributes; safecall;
    procedure _Set_DrawingAttributes(const Attributes: IInkDrawingAttributes); safecall;
    function Get_Tablet: IInkTablet; safecall;
    function Get_Buttons: IInkCursorButtons; safecall;
    property Name: WideString read Get_Name;
    property Id: Integer read Get_Id;
    property Inverted: WordBool read Get_Inverted;
    property DrawingAttributes: IInkDrawingAttributes read Get_DrawingAttributes write _Set_DrawingAttributes;
    property Tablet: IInkTablet read Get_Tablet;
    property Buttons: IInkCursorButtons read Get_Buttons;
  end;

// *********************************************************************//
// DispIntf:  IInkCursorDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {AD30C630-40C5-4350-8405-9C71012FC558}
// *********************************************************************//
  IInkCursorDisp = dispinterface
    ['{AD30C630-40C5-4350-8405-9C71012FC558}']
    property Name: WideString readonly dispid 0;
    property Id: Integer readonly dispid 1;
    property Inverted: WordBool readonly dispid 4;
    property DrawingAttributes: IInkDrawingAttributes dispid 2;
    property Tablet: IInkTablet readonly dispid 5;
    property Buttons: IInkCursorButtons readonly dispid 3;
  end;

// *********************************************************************//
// Interface: IInkTablet
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {2DE25EAA-6EF8-42D5-AEE9-185BC81B912D}
// *********************************************************************//
  IInkTablet = interface(IDispatch)
    ['{2DE25EAA-6EF8-42D5-AEE9-185BC81B912D}']
    function Get_Name: WideString; safecall;
    function Get_PlugAndPlayId: WideString; safecall;
    function Get_MaximumInputRectangle: IInkRectangle; safecall;
    function Get_HardwareCapabilities: TabletHardwareCapabilities; safecall;
    function IsPacketPropertySupported(const packetPropertyName: WideString): WordBool; safecall;
    procedure GetPropertyMetrics(const propertyName: WideString; out Minimum: Integer; 
                                 out Maximum: Integer; out Units: TabletPropertyMetricUnit; 
                                 out Resolution: Single); safecall;
    property Name: WideString read Get_Name;
    property PlugAndPlayId: WideString read Get_PlugAndPlayId;
    property MaximumInputRectangle: IInkRectangle read Get_MaximumInputRectangle;
    property HardwareCapabilities: TabletHardwareCapabilities read Get_HardwareCapabilities;
  end;

// *********************************************************************//
// DispIntf:  IInkTabletDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {2DE25EAA-6EF8-42D5-AEE9-185BC81B912D}
// *********************************************************************//
  IInkTabletDisp = dispinterface
    ['{2DE25EAA-6EF8-42D5-AEE9-185BC81B912D}']
    property Name: WideString readonly dispid 0;
    property PlugAndPlayId: WideString readonly dispid 1;
    property MaximumInputRectangle: IInkRectangle readonly dispid 4;
    property HardwareCapabilities: TabletHardwareCapabilities readonly dispid 5;
    function IsPacketPropertySupported(const packetPropertyName: WideString): WordBool; dispid 3;
    procedure GetPropertyMetrics(const propertyName: WideString; out Minimum: Integer; 
                                 out Maximum: Integer; out Units: TabletPropertyMetricUnit; 
                                 out Resolution: Single); dispid 2;
  end;

// *********************************************************************//
// Interface: IInkCursorButtons
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3671CC40-B624-4671-9FA0-DB119D952D54}
// *********************************************************************//
  IInkCursorButtons = interface(IDispatch)
    ['{3671CC40-B624-4671-9FA0-DB119D952D54}']
    function Get_Count: Integer; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Item(Identifier: OleVariant): IInkCursorButton; safecall;
    property Count: Integer read Get_Count;
    property _NewEnum: IUnknown read Get__NewEnum;
  end;

// *********************************************************************//
// DispIntf:  IInkCursorButtonsDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3671CC40-B624-4671-9FA0-DB119D952D54}
// *********************************************************************//
  IInkCursorButtonsDisp = dispinterface
    ['{3671CC40-B624-4671-9FA0-DB119D952D54}']
    property Count: Integer readonly dispid 1;
    property _NewEnum: IUnknown readonly dispid -4;
    function Item(Identifier: OleVariant): IInkCursorButton; dispid 0;
  end;

// *********************************************************************//
// Interface: IInkCursorButton
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {85EF9417-1D59-49B2-A13C-702C85430894}
// *********************************************************************//
  IInkCursorButton = interface(IDispatch)
    ['{85EF9417-1D59-49B2-A13C-702C85430894}']
    function Get_Name: WideString; safecall;
    function Get_Id: WideString; safecall;
    function Get_State: InkCursorButtonState; safecall;
    propert