unit elibTypes;

{$IFNDEF __LIB_H}
{$DEFINE __LIB_H}

interface

//uses

type
  PLongBool  = ^LongBool;
  PByteArray = ^TByteArray;
  TByteArray = array[0..32767] of Byte;

type
  DATA_TYPE  = LongWord ;    // 數(shù)據(jù)類型: _SDT_NULL, _SDT_ALL, SDT_BYTE, SDT_SHORT, SDT_INT, SDT_INT64, SDT_FLOAT, SDT_DOUBLE, SDT_BOOL, SDT_DATE_TIME, SDT_TEXT, SDT_BIN, SDT_SUB_PTR 等
  pDATA_TYPE = ^LongWord ;   // DATA_TYPE 參見下面的常量定義

const
  //////////////////////////////////////////////////////////////////////////////
  // 以下是由系統(tǒng)定義的基本數(shù)據(jù)類型，不可更改。(以下常量數(shù)值的定義絕對不會有錯!)

  _SDT_NULL     = 0;           // 空白數(shù)據(jù)類型
  _SDT_ALL      = 2147483648;  // 通用型, 僅用于支持庫命令定義其參數(shù)或返回值的數(shù)據(jù)類型，當(dāng)用于定義庫命令參數(shù)時，_SDT_ALL可以匹配所有數(shù)據(jù)類型（數(shù)組類型必須符合要求）

  SDT_BYTE      = 2147483905;  // 字節(jié)型
  SDT_SHORT     = 2147484161;  // 短整數(shù)型
  SDT_INT       = 2147484417;  // 整數(shù)型
  SDT_INT64     = 2147484673;  // 長整數(shù)型
  SDT_FLOAT     = 2147484929;  // 小數(shù)型
  SDT_DOUBLE    = 2147485185;  // 雙精度小數(shù)型
  SDT_BOOL      = 2147483650;  // 邏輯型
  SDT_DATE_TIME = 2147483651;  // 日期時間型
  SDT_TEXT      = 2147483652;  // 文本型
  SDT_BIN       = 2147483653;  // 字節(jié)集
  SDT_SUB_PTR   = 2147483654;  // 子程序指針

  //////////////////////////////////////////////////////////////////////////////
  
type
  //////////////////////////////////////////////////////////////////////////////
  // “參數(shù)信息”數(shù)據(jù)結(jié)構(gòu) ARG_INFO

  pARG_INFO = ^ARG_INFO;
  ARG_INFO  = record
    m_szName         : PChar;     // 參數(shù)名稱
    m_szExplain      : PChar;     // 參數(shù)詳細(xì)解釋
    m_shtBitmapIndex : Word;      // 參見 CMD_INFO 中的同名成員
    m_shtBitmapCount : Word;      // 參見 CMD_INFO 中的同名成員
    m_dtDataType     : DATA_TYPE; // 參數(shù)的數(shù)據(jù)類型
    m_nDefault       : LongWord;  // 參數(shù)默認(rèn)值，見下面的說明
    m_dwState        : LongWord;  // 狀態(tài)值，見下面的說明和常量定義

    ////////////////////////////////////////////////////////////////////////////
    //
    // 其中, m_nDefault 為系統(tǒng)基本類型參數(shù)的默認(rèn)指定值（在編譯時編譯器將自動處理）：
    //
    //   1、數(shù)值型：直接為數(shù)值（如為小數(shù)，只能指定其整數(shù)部分，如為長整數(shù)，只能指定不超過INT限值的部分）；
    //   2、邏輯型：1 代表'真'，0 代表'假'；
    //   3、文本型：本成員此時為PChar指針，指向默認(rèn)文本串；
    //   4、其它所有類型參數(shù)一律無默認(rèn)指定值。
    //
    // 其中, m_dwState 可以為 0 和以下數(shù)值的組合：（0 表示該參數(shù)沒有默認(rèn)值，用戶必須提供該參數(shù)）
    //
    //   AS_HAS_DEFAULT_VALUE      = 1;  // 本參數(shù)有默認(rèn)值，默認(rèn)值在m_nDefault中說明，與下標(biāo)志互斥
    //   AS_DEFAULT_VALUE_IS_EMPTY = 2;  // 本參數(shù)有默認(rèn)值，默認(rèn)值為空，與上標(biāo)志互斥
    //
    //   (下面5個標(biāo)志位只能取其一)
    //   AS_RECEIVE_VAR            = 4;  // 為本參數(shù)提供數(shù)據(jù)時必須提供非數(shù)組型容器
    //   AS_RECEIVE_VAR_ARRAY      = 8;  // 為本參數(shù)提供數(shù)據(jù)時必須提供數(shù)組型容器
    //   AS_RECEIVE_VAR_OR_ARRAY   = 16; // 為本參數(shù)提供數(shù)據(jù)時必須提供數(shù)組或非數(shù)組型容器
    //   AS_RECEIVE_ARRAY_DATA     = 32; // 為本參數(shù)提供數(shù)據(jù)時必須提供數(shù)組型數(shù)據(jù)
    //   AS_RECEIVE_ALL_TYPE_DATA  = 64; // 為本參數(shù)提供數(shù)據(jù)時可以提供非數(shù)組或數(shù)組數(shù)據(jù)
    //
    ////////////////////////////////////////////////////////////////////////////
  end;

const
  //////////////////////////////////////////////////////////////////////////////
  // 以下常量用于 ARG_INFO 結(jié)構(gòu)中的 m_dwState 成員

  AS_HAS_DEFAULT_VALUE      = 1;  // 本參數(shù)有默認(rèn)值，默認(rèn)值在m_nDefault中說明，與下標(biāo)志互斥
  AS_DEFAULT_VALUE_IS_EMPTY = 2;  // 本參數(shù)有默認(rèn)值，默認(rèn)值為空，與上標(biāo)志互斥

  //(下面5個標(biāo)志位只能取其一)
  AS_RECEIVE_VAR            = 4;  // 為本參數(shù)提供數(shù)據(jù)時必須提供非數(shù)組型容器（!!!注意：必須是“容器(變量)”，而不能是類似123,"abc"的數(shù)據(jù)。下同。  ——liigo注）
  AS_RECEIVE_VAR_ARRAY      = 8;  // 為本參數(shù)提供數(shù)據(jù)時必須提供數(shù)組型容器
  AS_RECEIVE_VAR_OR_ARRAY   = 16; // 為本參數(shù)提供數(shù)據(jù)時必須提供數(shù)組或非數(shù)組型容器
  AS_RECEIVE_ARRAY_DATA     = 32; // 為本參數(shù)提供數(shù)據(jù)時必須提供數(shù)組型數(shù)據(jù)
  AS_RECEIVE_ALL_TYPE_DATA  = 64; // 為本參數(shù)提供數(shù)據(jù)時可以提供非數(shù)組或數(shù)組數(shù)據(jù)

  //////////////////////////////////////////////////////////////////////////////

type
  //////////////////////////////////////////////////////////////////////////////
  // “命令信息”數(shù)據(jù)結(jié)構(gòu) CMD_INFO

  pCMD_INFO = ^CMD_INFO;
  CMD_INFO  = record
    m_szName         : PChar;     // 命令中文名稱
    m_szEGName       : PChar;     // 命令英文名稱，可以為空或nil
    m_szExplain      : PChar;     // 命令詳細(xì)解釋
    m_shtCategory    : Word;      // 全局命令的所屬類別，從1開始，減一后的值為指向LIB_INFO的m_szzCategory成員所提供的某個類別字符串的索引; 對象成員命令的此值為-1
    m_wState         : Word;      // 命令狀態(tài)，見后面的說明及常量定義
    m_dtRetType      : DATA_TYPE; // 返回值類型（!!!!! 千萬注意：如果返回值類型定義為_SDT_ALL，絕對不能返回數(shù)組(即CT_RETURN_ARRAY_DATA置位)或復(fù)合數(shù)據(jù)類型的數(shù)據(jù)(即用戶或庫自定義數(shù)據(jù)類型但不包含窗口或菜單單元)，因?yàn)橛脩舫绦驘o法自動刪除復(fù)合類型中所分配的額外空間(如文本型或者字節(jié)集型成員等)）
    m_wReserved      : Word;      // 保留，必須為0
    m_shtUserLevel   : Word;      // 難度等級，取值1,2,3，分別代表“初-中-高”級；見后面的說明及常量定義
    m_shtBitmapIndex : Word;      // 指定圖像索引，從1開始，0表示無。減一后的值為指向支持庫中名為"LIB_BITMAP"的BITMAP資源中某一部分16X13位圖的索引
    m_shtBitmapCount : Word;      // 圖像數(shù)目(用作為IDE提供動畫圖片)
    m_nArgCount      : LongWord;  // 命令的參數(shù)數(shù)目
    m_pBeginArgInfo  : pARG_INFO; // 指向本命令的參數(shù)定義信息數(shù)組

    ////////////////////////////////////////////////////////////////////////////
    //
    // 其中, m_wState 取 0 或以下值的組合：（0 表示該命令為正常命令）
    //   CT_IS_HIDED                = 4;  // 本命令是否為隱含命令（即不需要由用戶直接輸入的命令（如循環(huán)結(jié)束命令）或被廢棄但為了保持兼容性又要存在的命令）
    //   CT_IS_ERROR                = 8;  // 本命令在本庫中不能使用，具有此標(biāo)志一定隱含，主要用作在不同語言版本的相同庫中使用，即：A命令在A語言版本庫中可能需要實(shí)現(xiàn)并使用，但在B語言版本庫中可能就不需要。如果程序中使用了具有此標(biāo)志的命令，則只能支持該程序調(diào)入和編譯，而不能支持運(yùn)行。如具有此標(biāo)志，可以不實(shí)現(xiàn)本命令的執(zhí)行部分。
    //   CT_DISABLED_IN_RELEASE_VER = 16; // 具有本標(biāo)志的命令在易語言系統(tǒng)編譯RELEASE版易程序時將被跳過，本類型命令必須無返回值
    //   CT_ALLOW_APPEND_NEW_ARG    = 32; // 在本命令的參數(shù)表的末尾是否可以添加新的參數(shù)，新參數(shù)等同于參數(shù)表中的最后一個參數(shù)
    //   CT_RETURN_ARRAY_DATA       = 64; // 用于說明m_dtRetType，是否返回數(shù)組數(shù)據(jù)
    //
    // 其中, m_shtUserLevel 取以下值之一：
    //   LVL_SIMPLE    = 1;               // 初級
    //   LVL_SECONDARY = 2;               // 中級
    //   LVL_HIGH      = 3;               // 高級
    //
    // !!!!! 千萬注意：如果返回值類型(m_dtRetType)定義為 _SDT_ALL ，
    // 絕對不能返回數(shù)組(即CT_RETURN_ARRAY_DATA置位)或復(fù)合數(shù)據(jù)類型的數(shù)據(jù)(即用戶或庫自定義數(shù)據(jù)類型但不包含窗口或菜單單元)，
    // 因?yàn)橛脩舫绦驘o法自動刪除復(fù)合類型中所分配的額外空間(如文本型或者字節(jié)集型成員等) !!!!!
    //
    ////////////////////////////////////////////////////////////////////////////
  end;

const
  //////////////////////////////////////////////////////////////////////////////
  // 以下常量用于 CMD_INFO 結(jié)構(gòu)的 m_wState 和 m_shtUserLevel 成員中：

  // 命令狀態(tài)(m_wState)
  CT_IS_HIDED                = 4;  // 本命令是否為隱含命令（即不需要由用戶直接輸入的命令（如循環(huán)結(jié)束命令）或被廢棄但為了保持兼容性又要存在的命令）
  CT_IS_ERROR                = 8;  // 本命令在本庫中不能使用，具有此標(biāo)志一定隱含，主要用作在不同語言版本的相同庫中使用，即：A命令在A語言版本庫中可能需要實(shí)現(xiàn)并使用，但在B語言版本庫中可能就不需要。如果程序中使用了具有此標(biāo)志的命令，則只能支持該程序調(diào)入和編譯，而不能支持運(yùn)行。如具有此標(biāo)志，可以不實(shí)現(xiàn)本命令的執(zhí)行部分。
  CT_DISABLED_IN_RELEASE_VER = 16; // 具有本標(biāo)志的命令在易語言系統(tǒng)編譯RELEASE版易程序時將被跳過，本類型命令必須無返回值
  CT_ALLOW_APPEND_NEW_ARG    = 32; // 在本命令的參數(shù)表的末尾是否可以添加新的參數(shù)，新參數(shù)等同于參數(shù)表中的最后一個參數(shù)
  CT_RETURN_ARRAY_DATA       = 64; // 用于說明m_dtRetType，是否返回數(shù)組數(shù)據(jù)

  // 命令的難度等級(m_shtUserLevel)
  LVL_SIMPLE    = 1;  // 初級
  LVL_SECONDARY = 2;  // 中級
  LVL_HIGH      = 3;  // 高級

  //////////////////////////////////////////////////////////////////////////////

const

  //////////////////////////////////////////////////////////////////////////////
  // 以下常量用作區(qū)分?jǐn)?shù)據(jù)類型的類別

  DTM_SYS_DATA_TYPE_MASK  = $80000000;  // 系統(tǒng)定義數(shù)據(jù)類型
  DTM_USER_DATA_TYPE_MASK = $40000000;  // 用戶定義數(shù)據(jù)類型
  DTM_LIB_DATA_TYPE_MASK  = $00000000;  // 庫定義數(shù)據(jù)類型

  //////////////////////////////////////////////////////////////////////////////
  // DT_IS_ARY：在數(shù)據(jù)類型中的數(shù)組標(biāo)志。如果某數(shù)據(jù)類型值此位置1，則表示為此數(shù)據(jù)類型的數(shù)組。
  // 本標(biāo)志僅用作在運(yùn)行時為具有AS_RECEIVE_VAR_OR_ARRAY或AS_RECEIVE_ALL_TYPE_DATA
  // 標(biāo)志的庫命令參數(shù)說明其為是否為數(shù)組數(shù)據(jù)，其他場合均未使用。因此其他地方均可以忽略本標(biāo)志。

  DT_IS_ARY = $20000000;

type
  pLIB_DATA_TYPE_ELEMENT = ^LIB_DATA_TYPE_ELEMENT;
  LIB_DATA_TYPE_ELEMENT  = record
    m_dtDataType : DATA_TYPE ; // 本數(shù)據(jù)成員的數(shù)據(jù)類型。
    m_pArySpec   : ^BYTE;      // 如果本成員為數(shù)組，則本成員提供數(shù)組指定串，否則此值為NULL。數(shù)組指定串的格式為：首先為一個Byte記錄該數(shù)組的維數(shù)（如果為0表示不為數(shù)組，最大值為0x7f），然后為對應(yīng)數(shù)目的Integer值順序記錄對應(yīng)維的元素數(shù)目。
    m_szName     : PChar;      // 本數(shù)據(jù)成員的名稱，如果本數(shù)據(jù)成員所屬的數(shù)據(jù)類型只有這一個數(shù)據(jù)成員，此值應(yīng)該為NULL。
    m_szEGName   : PChar;      // 本數(shù)據(jù)成員的英文名稱，可以為空或NULL。
    m_szExplain  : PChar;      // 本數(shù)據(jù)成員的詳細(xì)說明。

    m_dwState    : LongWord;   // 狀態(tài)值，指定本數(shù)據(jù)成員是否有默認(rèn)值。見下面的常量定義（const LES_HAS_DEFAULT_VALUE = (1 shl 0);）。
    m_nDefault   : Integer;    // 默認(rèn)值，僅當(dāng) m_dwState 包含 LES_HAS_DEFAULT_VALUE 標(biāo)志且非數(shù)組時才有效。

    ////////////////////////////////////////////////////////////////////////////
    //
    // 關(guān)于數(shù)據(jù)成員的默認(rèn)值(m_nDefault)：
    //
    //   1、數(shù)值型：直接為數(shù)值（如為小數(shù)，只能指定其整數(shù)部分，如為長整數(shù)，只能指定不超過INT限值的部分）；
    //   2、邏輯型：1 代表真，0 代表假；
    //   3、文本型：本變量此時為PChar指針，指向默認(rèn)文本串；
    //   4、其它所有類型參數(shù)一律無默認(rèn)指定值。
    //
    ////////////////////////////////////////////////////////////////////////////
  end;

const
  //////////////////////////////////////////////////////////////////////////////
  // 以下常量用于LIB_DATA_TYPE_ELEMENT結(jié)構(gòu)的m_dwState成員

  LES_HAS_DEFAULT_VALUE = (1 shl 0);    // 本數(shù)據(jù)成員有默認(rèn)值，默認(rèn)值在m_nDefault中說明。

type
  //////////////////////////////////////////////////////////////////////////////
  // “窗口單元屬性”：UNIT_PROPERTY

  pUNIT_PROPERTY = ^UNIT_PROPERTY;
  UNIT_PROPERTY  = record
    m_szName     : PChar;     // 屬性名稱，注意為利于在屬性表中同時設(shè)置多對象的屬性，相同意義屬性的名稱最好一致。
    m_szEGName   : PChar;     // 英文名稱。
    m_szExplain  : PChar;     // 屬性解釋。

    m_shtType    : SmallInt;  // 屬性的數(shù)據(jù)類型，見下面的常量定義
    m_wState     : Word;      // 狀態(tài)值，見下面的常量定義
    m_szzPickStr : PChar;     // 順序記錄以"\0"分隔的所有備選文本（除開UD_FILE_NAME為所說明的特殊格式），最后以一個"\0"結(jié)束。當(dāng)m_nType為UP_PICK_INT、UP_PICK_TEXT、UD_EDIT_PICK_TEXT、UD_FILE_NAME時不能為NULL。
  end;
  //////////////////////////////////////////////////////////////////////////////

const
  //////////////////////////////////////////////////////////////////////////////
  // 以下常量用于UNIT_PROPERTY結(jié)構(gòu)的m_shtType和m_wState成員

  // “窗口單元屬性”的數(shù)據(jù)類型(m_shtType)
  UD_INT              = 1001;  // 數(shù)據(jù)為INT值
  UD_DOUBLE           = 1002;  // 數(shù)據(jù)為DOUBLE值
  UD_BOOL             = 1003;  // 數(shù)據(jù)為BOOL值
  UD_DATE_TIME        = 1004;  // 數(shù)據(jù)為DATE值
  UD_TEXT             = 1005;  // 數(shù)據(jù)為字符串
  UD_PICK_INT         = 1006;  // 數(shù)據(jù)為INT值，用戶只能選擇，不能編輯。
  UD_PICK_TEXT        = 1007;  // 數(shù)據(jù)為待選字符串，用戶只能選擇，不能編輯。
  UD_EDIT_PICK_TEXT   = 1008;  // 數(shù)據(jù)為待選字符串，用戶可以編輯。
  UD_PIC              = 1009;  // 為圖片文件數(shù)據(jù)
  UD_ICON             = 1010;  // 為圖標(biāo)文件數(shù)據(jù)
  UD_CURSOR           = 1011;  // 第一個INT記錄鼠標(biāo)指針類型，具體值見Windows API的LoadCursor函數(shù)。如為-1，則為自定義鼠標(biāo)指針，此時后跟相應(yīng)長度的鼠標(biāo)指針文件內(nèi)容。
  UD_MUSIC            = 1012;  // 為聲音文件數(shù)據(jù)
  UD_FONT             = 1013;  // 為一個LOGFONT數(shù)據(jù)結(jié)構(gòu)，不能再改。
  UD_COLOR            = 1014;  // 數(shù)據(jù)為COLORREF值。
  UD_COLOR_TRANS      = 1015;  // 數(shù)據(jù)為COLORREF值，允許透明顏色(用CLR_DEFAULT代表，CLR_DEFAULT在VC++的COMMCTRL.H頭文件中定義)。
  UD_FILE_NAME        = 1016;  // 數(shù)據(jù)為文件名字符串。此時m_szzPickStr中的數(shù)據(jù)為：對話框標(biāo)題 + "\0" + 文件過濾器串 + "\0" + 默認(rèn)后綴 + "\0" + "1"（取保存文件名）或"0"（取讀入文件名）+ "\0" 。
  UD_COLOR_BACK       = 1017;  // 數(shù)據(jù)為COLORREF值，允許系統(tǒng)默認(rèn)背景顏色(用CLR_DEFAULT代表)。
  UD_ODBC_CONNECT_STR = 1021;  // ODBC數(shù)據(jù)連接文本
  UD_ODBC_SELECT_STR  = 1022;  // ODBC數(shù)據(jù)查詢SQL文本
  UD_IMAGE_LIST       = 1023;  // 圖片組，數(shù)據(jù)結(jié)構(gòu)為
    {  #define	IMAGE_LIST_DATA_MARK	(MAKELONG ('IM', 'LT'))
	/*
	DWORD: 標(biāo)志數(shù)據(jù)：為 IMAGE_LIST_DATA_MARK
	COLORREF: 透明顏色（可以為CLR_DEFAULT）
	后面為圖片組數(shù)據(jù)，用CImageList::Read和CImageList::Write讀寫。
	*/
    }