msinkautlib.pas

看到很多手写控件

  IInkWordListDisp = dispinterface;
  IInkRecognizers = interface;
  IInkRecognizersDisp = dispinterface;
  _IInkRecognitionEvents = dispinterface;
  IInk = interface;
  IInkLineInfo = interface;
  ISketchInk = interface;
  ISketchInkDisp = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  InkDisp = IInkDisp;
  InkOverlay = IInkOverlay;
  InkPicture = IInkPicture;
  InkCollector = IInkCollector;
  InkDrawingAttributes = IInkDrawingAttributes;
  InkRectangle = IInkRectangle;
  InkRenderer = IInkRenderer;
  InkTransform = IInkTransform;
  InkRecognizers = IInkRecognizers;
  InkRecognizerContext = IInkRecognizerContext;
  InkRecognizerGuide = IInkRecognizerGuide;
  InkTablets = IInkTablets;
  InkWordList = IInkWordList;
  InkStrokes = IInkStrokes;
  Ink = IInk;
  SketchInk = ISketchInk;


// *********************************************************************//
// Declaration of structures, unions and aliases.                         
// *********************************************************************//
  wireCLIPFORMAT = ^_userCLIPFORMAT; 
  wireSTGMEDIUM = ^_userSTGMEDIUM; 
  wireFLAG_STGMEDIUM = ^_userFLAG_STGMEDIUM; 
  wireASYNC_STGMEDIUM = ^_userSTGMEDIUM; 
  PUserType1 = ^tagFORMATETC; {*}
  PPUserType1 = ^wireFLAG_STGMEDIUM; {*}
  PPUserType2 = ^wireASYNC_STGMEDIUM; {*}
  PUserType2 = ^TGUID; {*}
  PByte1 = ^Byte; {*}
  PUserType3 = ^tagBIND_OPTS2; {*}
  PUserType4 = ^_FILETIME; {*}
  PUserType5 = ^tagINKMETRIC; {*}
  PSYSUINT1 = ^SYSUINT; {*}

  InkSelectionConstants = ItemSelectionConstants; 

  tagRECT = packed record
    Left: Integer;
    Top: Integer;
    Right: Integer;
    Bottom: Integer;
  end;

  tagXFORM = packed record
    eM11: Single;
    eM12: Single;
    eM21: Single;
    eM22: Single;
    eDx: Single;
    eDy: Single;
  end;

  XFORM = tagXFORM; 

  tagDVTARGETDEVICE = packed record
    tdSize: LongWord;
    tdDriverNameOffset: Word;
    tdDeviceNameOffset: Word;
    tdPortNameOffset: Word;
    tdExtDevmodeOffset: Word;
    tdData: ^Byte;
  end;

  __MIDL_IWinTypes_0001 = record
    case Integer of
      0: (dwValue: LongWord);
      1: (pwszName: PWideChar);
  end;

  _userCLIPFORMAT = packed record
    fContext: Integer;
    u: __MIDL_IWinTypes_0001;
  end;

  tagFORMATETC = packed record
    cfFormat: wireCLIPFORMAT;
    ptd: ^tagDVTARGETDEVICE;
    dwAspect: LongWord;
    lindex: Integer;
    tymed: LongWord;
  end;


  _BYTE_BLOB = packed record
    clSize: LongWord;
    abData: ^Byte;
  end;

  __MIDL_IWinTypes_0004 = record
    case Integer of
      0: (hInproc: Integer);
      1: (hRemote: ^_BYTE_BLOB);
      2: (hInproc64: Int64);
  end;

  _userHMETAFILE = packed record
    fContext: Integer;
    u: __MIDL_IWinTypes_0004;
  end;

  _remoteMETAFILEPICT = packed record
    mm: Integer;
    xExt: Integer;
    yExt: Integer;
    hMF: ^_userHMETAFILE;
  end;

  __MIDL_IWinTypes_0005 = record
    case Integer of
      0: (hInproc: Integer);
      1: (hRemote: ^_remoteMETAFILEPICT);
      2: (hInproc64: Int64);
  end;

  _userHMETAFILEPICT = packed record
    fContext: Integer;
    u: __MIDL_IWinTypes_0005;
  end;

  __MIDL_IWinTypes_0006 = record
    case Integer of
      0: (hInproc: Integer);
      1: (hRemote: ^_BYTE_BLOB);
      2: (hInproc64: Int64);
  end;

  _userHENHMETAFILE = packed record
    fContext: Integer;
    u: __MIDL_IWinTypes_0006;
  end;

  _userBITMAP = packed record
    bmType: Integer;
    bmWidth: Integer;
    bmHeight: Integer;
    bmWidthBytes: Integer;
    bmPlanes: Word;
    bmBitsPixel: Word;
    cbSize: LongWord;
    pBuffer: ^Byte;
  end;

  __MIDL_IWinTypes_0007 = record
    case Integer of
      0: (hInproc: Integer);
      1: (hRemote: ^_userBITMAP);
      2: (hInproc64: Int64);
  end;

  _userHBITMAP = packed record
    fContext: Integer;
    u: __MIDL_IWinTypes_0007;
  end;

  tagPALETTEENTRY = packed record
    peRed: Byte;
    peGreen: Byte;
    peBlue: Byte;
    peFlags: Byte;
  end;

  tagLOGPALETTE = packed record
    palVersion: Word;
    palNumEntries: Word;
    palPalEntry: ^tagPALETTEENTRY;
  end;

  __MIDL_IWinTypes_0008 = record
    case Integer of
      0: (hInproc: Integer);
      1: (hRemote: ^tagLOGPALETTE);
      2: (hInproc64: Int64);
  end;

  _userHPALETTE = packed record
    fContext: Integer;
    u: __MIDL_IWinTypes_0008;
  end;

  _FLAGGED_BYTE_BLOB = packed record
    fFlags: LongWord;
    clSize: LongWord;
    abData: ^Byte;
  end;

  __MIDL_IWinTypes_0003 = record
    case Integer of
      0: (hInproc: Integer);
      1: (hRemote: ^_FLAGGED_BYTE_BLOB);
      2: (hInproc64: Int64);
  end;

  _userHGLOBAL = packed record
    fContext: Integer;
    u: __MIDL_IWinTypes_0003;
  end;

  __MIDL_IAdviseSink_0002 = record
    case Integer of
      0: (hBitmap: ^_userHBITMAP);
      1: (hPalette: ^_userHPALETTE);
      2: (hGeneric: ^_userHGLOBAL);
  end;

  _GDI_OBJECT = packed record
    ObjectType: LongWord;
    u: __MIDL_IAdviseSink_0002;
  end;

  __MIDL_IAdviseSink_0003 = record
    case Integer of
      0: (hMetaFilePict: ^_userHMETAFILEPICT);
      1: (hHEnhMetaFile: ^_userHENHMETAFILE);
      2: (hGdiHandle: ^_GDI_OBJECT);
      3: (hGlobal: ^_userHGLOBAL);
      4: (lpszFileName: PWideChar);
      5: (pstm: ^_BYTE_BLOB);
      6: (pstg: ^_BYTE_BLOB);
  end;

  _STGMEDIUM_UNION = packed record
    tymed: LongWord;
    u: __MIDL_IAdviseSink_0003;
  end;

  _userSTGMEDIUM = packed record
    __MIDL_0003: _STGMEDIUM_UNION;
    pUnkForRelease: IUnknown;
  end;


  _userFLAG_STGMEDIUM = packed record
    ContextFlags: Integer;
    fPassOwnership: Integer;
    Stgmed: _userSTGMEDIUM;
  end;


  _LARGE_INTEGER = packed record
    QuadPart: Int64;
  end;

  _ULARGE_INTEGER = packed record
    QuadPart: Largeuint;
  end;

  _FILETIME = packed record
    dwLowDateTime: LongWord;
    dwHighDateTime: LongWord;
  end;

  tagSTATSTG = packed record
    pwcsName: PWideChar;
    type_: LongWord;
    cbSize: _ULARGE_INTEGER;
    mtime: _FILETIME;
    ctime: _FILETIME;
    atime: _FILETIME;
    grfMode: LongWord;
    grfLocksSupported: LongWord;
    clsid: TGUID;
    grfStateBits: LongWord;
    reserved: LongWord;
  end;

  _COAUTHIDENTITY = packed record
    User: ^Word;
    UserLength: LongWord;
    Domain: ^Word;
    DomainLength: LongWord;
    Password: ^Word;
    PasswordLength: LongWord;
    Flags: LongWord;
  end;

  _COAUTHINFO = packed record
    dwAuthnSvc: LongWord;
    dwAuthzSvc: LongWord;
    pwszServerPrincName: PWideChar;
    dwAuthnLevel: LongWord;
    dwImpersonationLevel: LongWord;
    pAuthIdentityData: ^_COAUTHIDENTITY;
    dwCapabilities: LongWord;
  end;

  _COSERVERINFO = packed record
    dwReserved1: LongWord;
    pwszName: PWideChar;
    pAuthInfo: ^_COAUTHINFO;
    dwReserved2: LongWord;
  end;

  tagBIND_OPTS2 = packed record
    cbStruct: LongWord;
    grfFlags: LongWord;
    grfMode: LongWord;
    dwTickCountDeadline: LongWord;
    dwTrackFlags: LongWord;
    dwClassContext: LongWord;
    locale: LongWord;
    pServerInfo: ^_COSERVERINFO;
  end;

  tagSTATDATA = packed record
    formatetc: tagFORMATETC;
    advf: LongWord;
    pAdvSink: IAdviseSink;
    dwConnection: LongWord;
  end;

  _InkRecoGuide = packed record
    rectWritingBox: tagRECT;
    rectDrawnBox: tagRECT;
    cRows: Integer;
    cColumns: Integer;
    Midline: Integer;
  end;

  InkRecoGuide = _InkRecoGuide; 

  tagINKMETRIC = packed record
    iHeight: SYSINT;
    iFontAscent: SYSINT;
    iFontDescent: SYSINT;
    dwFlags: LongWord;
    Color: LongWord;
  end;


// *********************************************************************//
// Interface: IInkRectangle
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {9794FF82-6071-4717-8A8B-6AC7C64A686E}
// *********************************************************************//
  IInkRectangle = interface(IDispatch)
    ['{9794FF82-6071-4717-8A8B-6AC7C64A686E}']
    function Get_Top: Integer; safecall;
    procedure Set_Top(Units: Integer); safecall;
    function Get_Left: Integer; safecall;
    procedure Set_Left(Units: Integer); safecall;
    function Get_Bottom: Integer; safecall;