ttf160_tlb.pas

来自「胜天进销存源码,国产优秀的进销存」· PAS 代码 · 共 1,458 行 · 第 1/5 页

PAS
1,458 行
字号
12345
// Constants for enum F1AddInArrayTypeConstants
type
  F1AddInArrayTypeConstants = TOleEnum;
const
  F1AddIn2dArea = $00000001;
  F1AddIn3dArea = $00000002;
  F1AddInRegion = $00000003;

type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  IF1RangeRef = interface;
  IF1RangeRefDisp = dispinterface;
  IF1FileSpec = interface;
  IF1FileSpecDisp = dispinterface;
  IF1ODBCConnect = interface;
  IF1ODBCConnectDisp = dispinterface;
  IF1ODBCQuery = interface;
  IF1ODBCQueryDisp = dispinterface;
  IF1ReplaceResults = interface;
  IF1ReplaceResultsDisp = dispinterface;
  IF1NumberFormat = interface;
  IF1NumberFormatDisp = dispinterface;
  IF1CellFormat = interface;
  IF1CellFormatDisp = dispinterface;
  IF1PageSetup = interface;
  IF1PageSetupDisp = dispinterface;
  IF1Rect = interface;
  IF1RectDisp = dispinterface;
  IF1ObjPos = interface;
  IF1ObjPosDisp = dispinterface;
  IF1FindReplaceInfo = interface;
  IF1FindReplaceInfoDisp = dispinterface;
  IF1DispAddInArray = interface;
  IF1DispAddInArrayDisp = dispinterface;
  IF1DispAddInArrayEx = interface;
  IF1DispAddInArrayExDisp = dispinterface;
  IF1EventArg = interface;
  IF1EventArgDisp = dispinterface;
  IF1Book = dispinterface;
  DF1Events = dispinterface;
  IF1BookView = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  F1RangeRef = IF1RangeRef;
  F1FileSpec = IF1FileSpec;
  F1ODBCConnect = IF1ODBCConnect;
  F1ODBCQuery = IF1ODBCQuery;
  F1ReplaceResults = IF1ReplaceResults;
  F1NumberFormat = IF1NumberFormat;
  F1CellFormat = IF1CellFormat;
  F1PageSetup = IF1PageSetup;
  F1Rect = IF1Rect;
  F1ObjPos = IF1ObjPos;
  F1FindReplaceInfo = IF1FindReplaceInfo;
  F1AddInArray = IF1DispAddInArray;
  F1AddInArrayEx = IF1DispAddInArrayEx;
  F1EventArg = IF1EventArg;
  F1Book = IF1Book;
  F1BookView = IF1BookView;


// *********************************************************************//
// Declaration of structures, unions and aliases.                         
// *********************************************************************//
  PPUserType1 = ^IF1EventArg; {*}
  PWideString1 = ^WideString; {*}


// *********************************************************************//
// Interface: IF1RangeRef
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {B0475020-7740-11D1-BDC3-0020AF9F8E6E}
// *********************************************************************//
  IF1RangeRef = interface(IDispatch)
    ['{B0475020-7740-11D1-BDC3-0020AF9F8E6E}']
    function  Get_StartRow: Integer; safecall;
    function  Get_StartCol: Integer; safecall;
    function  Get_EndRow: Integer; safecall;
    function  Get_EndCol: Integer; safecall;
    function  Get_Rows: Integer; safecall;
    function  Get_Cols: Integer; safecall;
    property StartRow: Integer read Get_StartRow;
    property StartCol: Integer read Get_StartCol;
    property EndRow: Integer read Get_EndRow;
    property EndCol: Integer read Get_EndCol;
    property Rows: Integer read Get_Rows;
    property Cols: Integer read Get_Cols;
  end;

// *********************************************************************//
// DispIntf:  IF1RangeRefDisp
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {B0475020-7740-11D1-BDC3-0020AF9F8E6E}
// *********************************************************************//
  IF1RangeRefDisp = dispinterface
    ['{B0475020-7740-11D1-BDC3-0020AF9F8E6E}']
    property StartRow: Integer readonly dispid 1;
    property StartCol: Integer readonly dispid 2;
    property EndRow: Integer readonly dispid 3;
    property EndCol: Integer readonly dispid 4;
    property Rows: Integer readonly dispid 5;
    property Cols: Integer readonly dispid 6;
  end;

// *********************************************************************//
// Interface: IF1FileSpec
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {B0475023-7740-11D1-BDC3-0020AF9F8E6E}
// *********************************************************************//
  IF1FileSpec = interface(IDispatch)
    ['{B0475023-7740-11D1-BDC3-0020AF9F8E6E}']
    function  Get_Name: WideString; safecall;
    function  Get_Type_: F1FileTypeConstants; safecall;
    procedure Set_Name(const pName: WideString); safecall;
    procedure Set_Type_(pType: F1FileTypeConstants); safecall;
    property Name: WideString read Get_Name write Set_Name;
    property Type_: F1FileTypeConstants read Get_Type_ write Set_Type_;
  end;

// *********************************************************************//
// DispIntf:  IF1FileSpecDisp
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {B0475023-7740-11D1-BDC3-0020AF9F8E6E}
// *********************************************************************//
  IF1FileSpecDisp = dispinterface
    ['{B0475023-7740-11D1-BDC3-0020AF9F8E6E}']
    property Name: WideString dispid 1;
    property Type_: F1FileTypeConstants dispid 2;
  end;

// *********************************************************************//
// Interface: IF1ODBCConnect
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {B0475027-7740-11D1-BDC3-0020AF9F8E6E}
// *********************************************************************//
  IF1ODBCConnect = interface(IDispatch)
    ['{B0475027-7740-11D1-BDC3-0020AF9F8E6E}']
    function  Get_ConnectStr: WideString; safecall;
    procedure Set_ConnectStr(const pConnect: WideString); safecall;
    function  Get_RetCode: Smallint; safecall;
    procedure Set_RetCode(pRetCode: Smallint); safecall;
    property ConnectStr: WideString read Get_ConnectStr write Set_ConnectStr;
    property RetCode: Smallint read Get_RetCode write Set_RetCode;
  end;

// *********************************************************************//
// DispIntf:  IF1ODBCConnectDisp
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {B0475027-7740-11D1-BDC3-0020AF9F8E6E}
// *********************************************************************//
  IF1ODBCConnectDisp = dispinterface
    ['{B0475027-7740-11D1-BDC3-0020AF9F8E6E}']
    property ConnectStr: WideString dispid 1;
    property RetCode: Smallint dispid 2;
  end;

// *********************************************************************//
// Interface: IF1ODBCQuery
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {B0475029-7740-11D1-BDC3-0020AF9F8E6E}
// *********************************************************************//
  IF1ODBCQuery = interface(IDispatch)
    ['{B0475029-7740-11D1-BDC3-0020AF9F8E6E}']
    function  Get_QueryStr: WideString; safecall;
    procedure Set_QueryStr(const pQuery: WideString); safecall;
    function  Get_SetColNames: WordBool; safecall;
    procedure Set_SetColNames(pSetColNames: WordBool); safecall;
    function  Get_SetColFormats: WordBool; safecall;
    procedure Set_SetColFormats(pSetColFormats: WordBool); safecall;
    function  Get_SetColWidths: WordBool; safecall;
    procedure Set_SetColWidths(pSetColWidths: WordBool); safecall;
    function  Get_SetMaxRC: WordBool; safecall;
    procedure Set_SetMaxRC(pSetMaxRC: WordBool); safecall;
    function  Get_RetCode: Smallint; safecall;
    procedure Set_RetCode(pRetCode: Smallint); safecall;
    property QueryStr: WideString read Get_QueryStr write Set_QueryStr;
    property SetColNames: WordBool read Get_SetColNames write Set_SetColNames;
    property SetColFormats: WordBool read Get_SetColFormats write Set_SetColFormats;
    property SetColWidths: WordBool read Get_SetColWidths write Set_SetColWidths;
    property SetMaxRC: WordBool read Get_SetMaxRC write Set_SetMaxRC;
    property RetCode: Smallint read Get_RetCode write Set_RetCode;
  end;

// *********************************************************************//
// DispIntf:  IF1ODBCQueryDisp
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {B0475029-7740-11D1-BDC3-0020AF9F8E6E}
// *********************************************************************//
  IF1ODBCQueryDisp = dispinterface
    ['{B0475029-7740-11D1-BDC3-0020AF9F8E6E}']
    property QueryStr: WideString dispid 1;
    property SetColNames: WordBool dispid 2;
    property SetColFormats: WordBool dispid 3;
    property SetColWidths: WordBool dispid 4;
    property SetMaxRC: WordBool dispid 5;
    property RetCode: Smallint dispid 6;
  end;

// *********************************************************************//
// Interface: IF1ReplaceResults
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {B047502B-7740-11D1-BDC3-0020AF9F8E6E}
// *********************************************************************//
  IF1ReplaceResults = interface(IDispatch)
    ['{B047502B-7740-11D1-BDC3-0020AF9F8E6E}']
    function  Get_Found: Integer; safecall;
    function  Get_Replaced: Integer; safecall;
    property Found: Integer read Get_Found;
    property Replaced: Integer read Get_Replaced;
  end;

// *********************************************************************//
// DispIntf:  IF1ReplaceResultsDisp
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {B047502B-7740-11D1-BDC3-0020AF9F8E6E}
// *********************************************************************//
  IF1ReplaceResultsDisp = dispinterface
    ['{B047502B-7740-11D1-BDC3-0020AF9F8E6E}']
    property Found: Integer readonly dispid 1;
    property Replaced: Integer readonly dispid 2;
  end;

// *********************************************************************//
// Interface: IF1NumberFormat
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {B0475035-7740-11D1-BDC3-0020AF9F8E6E}
// *********************************************************************//
  IF1NumberFormat = interface(IDispatch)
    ['{B0475035-7740-11D1-BDC3-0020AF9F8E6E}']
    function  Get_NumberFormat: WideString; safecall;
    function  Get_NumberFormatLocal: WideString; safecall;
    function  Get_Index: Integer; safecall;
    function  Get_Type_: F1FormatTypeConstants; safecall;
    property NumberFormat: WideString read Get_NumberFormat;
    property NumberFormatLocal: WideString read Get_NumberFormatLocal;
    property Index: Integer read Get_Index;
    property Type_: F1FormatTypeConstants read Get_Type_;
  end;

// *********************************************************************//
// DispIntf:  IF1NumberFormatDisp
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {B0475035-7740-11D1-BDC3-0020AF9F8E6E}
// *********************************************************************//
  IF1NumberFormatDisp = dispinterface
    ['{B0475035-7740-11D1-BDC3-0020AF9F8E6E}']
    property NumberFormat: WideString readonly dispid 1;
    property NumberFormatLocal: WideString readonly dispid 2;
    property Index: Integer readonly dispid 3;
    property Type_: F1FormatTypeConstants readonly dispid 4;
  end;

// *********************************************************************//
// Interface: IF1CellFormat
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {B047503D-7740-11D1-BDC3-0020AF9F8E6E}
// *********************************************************************//
  IF1CellFormat = interface(IDispatch)
    ['{B047503D-7740-11D1-BDC3-0020AF9F8E6E}']
    function  Get_AlignHorizontal: F1HAlignConstants; safecall;
    procedure Set_AlignHorizontal(pAlignHorizontal: F1HAlignConstants); safecall;
    function  Get_WordWrap: WordBool; safecall;
    procedure Set_WordWrap(pWordWrap: WordBool); safecall;
    function  Get_AlignVertical: F1VAlignConstants; safecall;
    procedure Set_AlignVertical(pAlignVertical: F1VAlignConstants); safecall;
    function  Get_BorderStyle(WhichBorder: F1BorderConstants): F1BorderStyleConstants; safecall;
    procedure Set_BorderStyle(WhichBorder: F1BorderConstants; pBorderStyle: F1BorderStyleConstants); safecall;
    function  Get_BorderColor(WhichBorder: F1BorderConstants): OLE_COLOR; safecall;
    procedure Set_BorderColor(WhichBorder: F1BorderConstants; pBorderColor: OLE_COLOR); safecall;
    function  Get_FontName: WideString; safecall;
    procedure Set_FontName(const pFontName: WideString); safecall;
    function  Get_FontCharSet: F1CharSetConstants; safecall;
    procedure Set_FontCharSet(pFontCharSet: F1CharSetConstants); safecall;
    function  Get_FontSize: Smallint; safecall;
    procedure Set_FontSize(pFontSize: Smallint); safecall;
    function  Get_FontBold: WordBool; safecall;
    procedure Set_FontBold(pFontBold: WordBool); safecall;
    function  Get_FontItalic: WordBool; safecall;
    procedure Set_FontItalic(pFontItalic: WordBool); safecall;
    function  Get_FontUnderline: WordBool; safecall;
    procedure Set_FontUnderline(pFontUnderline: WordBool); safecall;
    function  Get_FontStrikeout: WordBool; safecall;
    procedure Set_FontStrikeout(pFontStrikeout: WordBool); safecall;
    function  Get_FontColor: OLE_COLOR; safecall;
    procedure Set_FontColor(pFontColor: OLE_COLOR); safecall;
    function  Get_MergeCells: WordBool; safecall;
12345

ttf160_tlb.pas - 源码说明

本页面展示了「胜天进销存源码,国产优秀的进销存」中的 ttf160_tlb.pas 源码文件，采用 PAS 编程语言编写，共 1,458 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与进销存系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?