开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
Jedi.inc
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：17k
源码类别：

Delphi控件源码

开发平台：

Delphi

Jedi.inc：源码内容
  1. {******************************************************************************}
  2. {                                                                              }
  3. { The contents of this file are subject to the Mozilla Public License Version  }
  4. { 1.1 (the "License"); you may not use this file except in compliance with the }
  5. { License. You may obtain a copy of the License at http://www.mozilla.org/MPL/ }
  6. {                                                                              }
  7. { Software distributed under the License is distributed on an "AS IS" basis,   }
  8. { WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
  9. { the specific language governing rights and limitations under the License.    }
  10. {                                                                              }
  11. { The Original Code is jedi.inc.                                               }
  12. {                                                                              }
  13. { The Initial Developer of the Original Code is Project JEDI                   }
  14. { http://www.delphi-jedi.org                                                   }
  15. {                                                                              }
  16. {******************************************************************************}
  17. {                                                                              }
  18. { This file defines various generic compiler directives used in the JEDI Code  }
  19. { Library (JCL) and JEDI Visual Component Library Library (J-VCL). The         }
  20. { directives in this file are of generic nature and consist mostly of mappings }
  21. { from the VERXXX directives defined by Delphi and C++ Builder to friendly     }
  22. { names such as DELPHI5 and SUPPORTS_WIDESTRING. These friendly names are      }
  23. { subsequently used in both libraries to test for compiler versions and/or     }
  24. { whether the compiler supports certain features (such as widestring's or 64   }
  25. { bit integers. Both libraries provide an additional, library specific,        }
  26. { include file. For the JCL this is JCL.INC. These files should be included in }
  27. { source files instead of this file (which is pulled in automatically).        }
  28. {                                                                              }
  29. { Maintainer: Marcel van Brakel                                                }
  30. { Last modified: 2003-07-14, Peter J. Haas (jediplus@pjh2.de)                  }
  31. {                                                                              }
  32. {******************************************************************************}
  34. (*
  36. - Development environment directives
  38.   This file defines two driectives to indicate which development environment the
  39.   library is being compiled with. Currently this can either be Delphi or
  40.   C++ Builder (in the near future "Kylix" will be added).
  42.   Directive    Description
  43.   ------------------------------------------------------------------------------
  44.   DELPHI       Defined if compiled with Delphi
  45.   BCB          Defined if compiled with C++ Builder
  47. - Platform Directives
  49.   Platform directives are not explicitly defined in this file but are defined
  50.   by the compiler itself. They are listed here only for completeness.
  52.   Directive    Description
  53.   ------------------------------------------------------------------------------
  54.   WIN32        Defined when target platform is 32 bit Windows
  55.   LINUX        Defined when target platform is Linux
  57. - Delphi Versions
  59.   The following directives are direct mappings from the VERXXX directives to a
  60.   friendly name of the associated compiler. These directives are only defined if
  61.   the compiler is Delphi (ie DELPHI is defined).
  63.   Directive    Description
  64.   ------------------------------------------------------------------------------
  65.   DELPHI1      Defined when compiling with Delphi 1
  66.   DELPHI2      Defined when compiling with Delphi 2
  67.   DELPHI3      Defined when compiling with Delphi 3
  68.   DELPHI4      Defined when compiling with Delphi 4
  69.   DELPHI5      Defined when compiling with Delphi 5
  70.   DELPHI6      Defined when compiling with Delphi 6
  71.   DELPHI7      Defined when compiling with Delphi 7
  72.   DELPHI1_UP   Defined when compiling with Delphi 1 or higher
  73.   DELPHI2_UP   Defined when compiling with Delphi 2 or higher
  74.   DELPHI3_UP   Defined when compiling with Delphi 3 or higher
  75.   DELPHI4_UP   Defined when compiling with Delphi 4 or higher
  76.   DELPHI5_UP   Defined when compiling with Delphi 5 or higher
  77.   DELPHI6_UP   Defined when compiling with Delphi 6 or higher
  78.   DELPHI7_UP   Defined when compiling with Delphi 7 or higher
  80. - C++ Builder Versions
  82.   The following directives are direct mappings from the VERXXX directives to a
  83.   friendly name of the associated compiler. These directives are only defined if
  84.   the compiler is C++ Builder (ie BCB is defined).
  86.   Directive    Description
  87.   ------------------------------------------------------------------------------
  88.   BCB1         Defined when compiling with C++ Builder 1
  89.   BCB3         Defined when compiling with C++ Builder 3
  90.   BCB4         Defined when compiling with C++ Builder 4
  91.   BCB5         Defined when compiling with C++ Builder 5
  92.   BCB6         Defined when compiling with C++ Builder 6
  93.   BCB7         Defined when compiling with C++ Builder 7
  94.   BCB1_UP      Defined when compiling with C++ Builder 1 or higher
  95.   BCB3_UP      Defined when compiling with C++ Builder 3 or higher
  96.   BCB4_UP      Defined when compiling with C++ Builder 4 or higher
  97.   BCB5_UP      Defined when compiling with C++ Builder 5 or higher
  98.   BCB6_UP      Defined when compiling with C++ Builder 6 or higher
  99.   BCB7_UP      Defined when compiling with C++ Builder 7 or higher
  101. - Compiler Versions
  103.   The following directives are direct mappings from the VERXXX directives to a
  104.   friendly name of the associated compiler. Unlike the DELPHI_X and BCB_X
  105.   directives, these directives are indepedent of the development environment.
  106.   That is, they are defined regardless of whether compilation takes place using
  107.   Delphi or C++ Builder.
  109.   Directive     Description
  110.   ------------------------------------------------------------------------------
  111.   COMPILER1     Defined when compiling with Delphi 1
  112.   COMPILER2     Defined when compiling with Delphi 2 or C++ Builder 1
  113.   COMPILER3     Defined when compiling with Delphi 3
  114.   COMPILER35    Defined when compiling with C++ Builder 3
  115.   COMPILER4     Defined when compiling with Delphi 4 or C++ Builder 4
  116.   COMPILER5     Defined when compiling with Delphi 5 or C++ Builder 5
  117.   COMPILER6     Defined when compiling with Delphi 6 or C++ Builder 6
  118.   COMPILER7     Defined when compiling with Delphi 7 or C++ Builder 7
  119.   COMPILER1_UP  Defined when compiling with Delphi 1 or higher
  120.   COMPILER2_UP  Defined when compiling with Delphi 2 or C++ Builder 1 or higher
  121.   COMPILER3_UP  Defined when compiling with Delphi 3 or higher
  122.   COMPILER35_UP Defined when compiling with C++ Builder 3 or higher
  123.   COMPILER4_UP  Defined when compiling with Delphi 4 or C++ Builder 4 or higher
  124.   COMPILER5_UP  Defined when compiling with Delphi 5 or C++ Builder 5 or higher
  125.   COMPILER6_UP  Defined when compiling with Delphi 6 or C++ Builder 6 or higher
  126.   COMPILER7_UP  Defined when compiling with Delphi 7 or C++ Builder 6 or higher
  128. - Feature Directives
  130.   The features directives are used to test if the compiler supports specific
  131.   features, such as method overloading, and adjust the sources accordingly. Use
  132.   of these directives is preferred over the use of the DELPHI and COMPILER
  133.   directives.
  135.   Directive              Description
  136.   ------------------------------------------------------------------------------
  137.   SUPPORTS_WIDESTRING    Compiler supports the WideString type (D3/BCB3 up)
  138.   SUPPORTS_INTERFACE     Compiler supports interfaces (D3/BCB3)
  139.   SUPPORTS_EXTSYM        Compiler supports the $EXTERNALSYM directive (D4/BCB3)
  140.   SUPPORTS_NODEFINE      Compiler supports the $NODEFINE directive (D4/BCB3)
  141.   SUPPORTS_INT64         Compiler supports the Int64 type (D4/BCB4)
  142.   SUPPORTS_DYNAMICARRAYS Compiler supports dynamic arrays (D4/BCB4)
  143.   SUPPORTS_DEFAULTPARAMS Compiler supports default parameters (D4/BCB4)
  144.   SUPPORTS_OVERLOAD      Compiler supports overloading (D4/BCB4)
  146. - Compiler Settings
  148.   The compiler settings directives indicate whether a specific compiler setting
  149.   is in effect. This facilitates changing compiler settings locally in a more
  150.   compact and readible manner.
  152.   Directive              Description
  153.   ------------------------------------------------------------------------------
  154.   ALIGN_ON               Compiling in the A+ state (no alignment)
  155.   BOOLEVAL_ON            Compiling in the B+ state (complete boolean evaluation)
  156.   ASSERTIONS_ON          Compiling in the C+ state (assertions on)
  157.   DEBUGINFO_ON           Compiling in the D+ state (debug info generation on)
  158.   IMPORTEDDATA_ON        Compiling in the G+ state (creation of imported data references)
  159.   LONGSTRINGS_ON         Compiling in the H+ state (string defined as AnsiString)
  160.   IOCHECKS_ON            Compiling in the I+ state (I/O checking enabled)
  161.   WRITEABLECONST_ON      Compiling in the J+ state (typed constants can be modified)
  162.   LOCALSYMBOLS           Compiling in the L+ state (local symbol generation)
  163.   TYPEINFO_ON            Compiling in the M+ state (RTTI generation on)
  164.   OPTIMIZATION_ON        Compiling in the O+ state (code optimization on)
  165.   OPENSTRINGS_ON         Compiling in the P+ state (variable string parameters are openstrings)
  166.   OVERFLOWCHECKS_ON      Compiling in the Q+ state (overflow checing on)
  167.   RANGECHECKS_ON         Compiling in the R+ state (range checking on)
  168.   TYPEDADDRESS_ON        Compiling in the T+ state (pointers obtained using the @ operator are typed)
  169.   SAFEDIVIDE_ON          Compiling in the U+ state (save FDIV instruction through RTL emulation)
  170.   VARSTRINGCHECKS_ON     Compiling in the V+ state (type checking of shortstrings)
  171.   STACKFRAMES_ON         Compiling in the W+ state (generation of stack frames)
  172.   EXTENDEDSYNTAX_ON      Compiling in the X+ state (Delphi extended syntax enabled)
  174. *)
  176. //------------------------------------------------------------------------------
  177. // Compiler settings
  178. //------------------------------------------------------------------------------
  180. {$IFOPT A+} {$DEFINE ALIGN_ON} {$ENDIF}
  181. {$IFOPT B+} {$DEFINE BOOLEVAL_ON} {$ENDIF}
  182. {$IFOPT C+} {$DEFINE ASSERTIONS_ON} {$ENDIF}
  183. {$IFOPT D+} {$DEFINE DEBUGINFO_ON} {$ENDIF}
  184. {$IFOPT G+} {$DEFINE IMPORTEDDATA_ON} {$ENDIF}
  185. {$IFOPT H+} {$DEFINE LONGSTRINGS_ON} {$ENDIF}
  186. //HINTS
  187. {$IFOPT I+} {$DEFINE IOCHECKS_ON} {$ENDIF}
  188. {$IFOPT J+} {$DEFINE WRITEABLECONST_ON} {$ENDIF}
  189. {$IFOPT L+} {$DEFINE LOCALSYMBOLS} {$ENDIF}
  190. {$IFOPT M+} {$DEFINE TYPEINFO_ON} {$ENDIF}
  191. {$IFOPT O+} {$DEFINE OPTIMIZATION_ON} {$ENDIF}
  192. {$IFOPT P+} {$DEFINE OPENSTRINGS_ON} {$ENDIF}
  193. {$IFOPT Q+} {$DEFINE OVERFLOWCHECKS_ON} {$ENDIF}
  194. {$IFOPT R+} {$DEFINE RANGECHECKS_ON} {$ENDIF}
  195. //REALCOMPATIBILITY
  196. {$IFOPT T+} {$DEFINE TYPEDADDRESS_ON} {$ENDIF}
  197. {$IFOPT U+} {$DEFINE SAFEDIVIDE_ON} {$ENDIF}
  198. {$IFOPT V+} {$DEFINE VARSTRINGCHECKS_ON} {$ENDIF}
  199. {$IFOPT W+} {$DEFINE STACKFRAMES_ON} {$ENDIF}
  200. //WARNINGS
  201. {$IFOPT X+} {$DEFINE EXTENDEDSYNTAX_ON} {$ENDIF}
  203. //------------------------------------------------------------------------------
  204. // VERXXX to COMPILERX, DELPHIX and BCBX mappings
  205. //------------------------------------------------------------------------------
  207. {$IFDEF VER150}
  208.   {$DEFINE COMPILER7}
  209.   {$IFDEF BCB}
  210.     {$DEFINE BCB7}
  211.     {$DEFINE BCB}
  212.   {$ELSE}
  213.     {$DEFINE DELPHI7}
  214.     {$DEFINE DELPHI}
  215.   {$ENDIF}
  216. {$ENDIF}
  218. {$IFDEF VER140}
  219.   {$DEFINE COMPILER6}
  220.   {$IFDEF BCB}
  221.     {$DEFINE BCB6}
  222.     {$DEFINE BCB}
  223.   {$ELSE}
  224.     {$DEFINE DELPHI6}
  225.     {$DEFINE DELPHI}
  226.   {$ENDIF}
  227. {$ENDIF}
  229. {$IFDEF VER130}
  230.   {$DEFINE COMPILER5}
  231.   {$IFDEF BCB}
  232.     {$DEFINE BCB5}
  233.     {$DEFINE BCB}
  234.   {$ELSE}
  235.     {$DEFINE DELPHI5}
  236.     {$DEFINE DELPHI}
  237.   {$ENDIF}
  238. {$ENDIF}
  240. {$IFDEF VER125}
  241.   {$DEFINE COMPILER4}
  242.   {$DEFINE BCB4}
  243.   {$DEFINE BCB}
  244. {$ENDIF}
  246. {$IFDEF VER120}
  247.   {$DEFINE COMPILER4}
  248.   {$DEFINE DELPHI4}
  249.   {$DEFINE DELPHI}
  250. {$ENDIF}
  252. {$IFDEF VER110}
  253.   {$DEFINE COMPILER35}
  254.   {$DEFINE BCB3}
  255. {$ENDIF}
  257. {$IFDEF VER100}
  258.   {$DEFINE COMPILER3}
  259.   {$DEFINE DELPHI3}
  260.   {$DEFINE DELPHI}
  261. {$ENDIF}
  263. {$IFDEF VER93}
  264.   {$DEFINE COMPILER2}
  265.   {$DEFINE BCB1}
  266.   {$DEFINE BCB}
  267. {$ENDIF}
  269. {$IFDEF VER90}
  270.   {$DEFINE COMPILER2}
  271.   {$DEFINE DELPHI2}
  272.   {$DEFINE DELPHI}
  273. {$ENDIF}
  275. {$IFDEF VER80}
  276.   {$DEFINE COMPILER1}
  277.   {$DEFINE DELPHI1}
  278.   {$DEFINE DELPHI}
  279. {$ENDIF}
  281. //------------------------------------------------------------------------------
  282. // DELPHIX_UP from DELPHIX mappings
  283. //------------------------------------------------------------------------------
  285. {$IFDEF DELPHI7}
  286.   {$DEFINE DELPHI7_UP}
  287.   {$DEFINE DELPHI6_UP}
  288.   {$DEFINE DELPHI5_UP}
  289.   {$DEFINE DELPHI4_UP}
  290.   {$DEFINE DELPHI3_UP}
  291.   {$DEFINE DELPHI2_UP}
  292.   {$DEFINE DELPHI1_UP}
  293. {$ENDIF}
  295. {$IFDEF DELPHI6}
  296.   {$DEFINE DELPHI6_UP}
  297.   {$DEFINE DELPHI5_UP}
  298.   {$DEFINE DELPHI4_UP}
  299.   {$DEFINE DELPHI3_UP}
  300.   {$DEFINE DELPHI2_UP}
  301.   {$DEFINE DELPHI1_UP}
  302. {$ENDIF}
  304. {$IFDEF DELPHI5}
  305.   {$DEFINE DELPHI5_UP}
  306.   {$DEFINE DELPHI4_UP}
  307.   {$DEFINE DELPHI3_UP}
  308.   {$DEFINE DELPHI2_UP}
  309.   {$DEFINE DELPHI1_UP}
  310. {$ENDIF}
  312. {$IFDEF DELPHI4}
  313.   {$DEFINE DELPHI4_UP}
  314.   {$DEFINE DELPHI3_UP}
  315.   {$DEFINE DELPHI2_UP}
  316.   {$DEFINE DELPHI1_UP}
  317. {$ENDIF}
  319. {$IFDEF DELPHI3}
  320.   {$DEFINE DELPHI3_UP}
  321.   {$DEFINE DELPHI2_UP}
  322.   {$DEFINE DELPHI1_UP}
  323. {$ENDIF}
  325. {$IFDEF DELPHI2}
  326.   {$DEFINE DELPHI2_UP}
  327.   {$DEFINE DELPHI1_UP}
  328. {$ENDIF}
  330. {$IFDEF DELPHI1}
  331.   {$DEFINE DELPHI1_UP}
  332. {$ENDIF}
  334. //------------------------------------------------------------------------------
  335. // BCBX_UP from BCBX mappings
  336. //------------------------------------------------------------------------------
  338. {$IFDEF BCB7}
  339.   {$DEFINE BCB7_UP}
  340.   {$DEFINE BCB6_UP}
  341.   {$DEFINE BCB5_UP}
  342.   {$DEFINE BCB4_UP}
  343.   {$DEFINE BCB3_UP}
  344.   {$DEFINE BCB1_UP}
  345. {$ENDIF}
  347. {$IFDEF BCB6}
  348.   {$DEFINE BCB6_UP}
  349.   {$DEFINE BCB5_UP}
  350.   {$DEFINE BCB4_UP}
  351.   {$DEFINE BCB3_UP}
  352.   {$DEFINE BCB1_UP}
  353. {$ENDIF}
  355. {$IFDEF BCB5}
  356.   {$DEFINE BCB5_UP}
  357.   {$DEFINE BCB4_UP}
  358.   {$DEFINE BCB3_UP}
  359.   {$DEFINE BCB1_UP}
  360. {$ENDIF}
  362. {$IFDEF BCB4}
  363.   {$DEFINE BCB4_UP}
  364.   {$DEFINE BCB3_UP}
  365.   {$DEFINE BCB1_UP}
  366. {$ENDIF}
  368. {$IFDEF BCB3}
  369.   {$DEFINE BCB3_UP}
  370.   {$DEFINE BCB1_UP}
  371. {$ENDIF}
  373. {$IFDEF BCB1}
  374.   {$DEFINE BCB1_UP}
  375. {$ENDIF}
  377. //------------------------------------------------------------------------------
  378. // COMPILERX_UP from COMPILERX mappings
  379. //------------------------------------------------------------------------------
  381. {$IFDEF COMPILER7}
  382.   {$DEFINE COMPILER7_UP}
  383.   {$DEFINE COMPILER6_UP}
  384.   {$DEFINE COMPILER5_UP}
  385.   {$DEFINE COMPILER4_UP}
  386.   {$DEFINE COMPILER35_UP}
  387.   {$DEFINE COMPILER3_UP}
  388.   {$DEFINE COMPILER2_UP}
  389.   {$DEFINE COMPILER1_UP}
  390. {$ENDIF}
  392. {$IFDEF COMPILER6}
  393.   {$DEFINE COMPILER6_UP}
  394.   {$DEFINE COMPILER5_UP}
  395.   {$DEFINE COMPILER4_UP}
  396.   {$DEFINE COMPILER35_UP}
  397.   {$DEFINE COMPILER3_UP}
  398.   {$DEFINE COMPILER2_UP}
  399.   {$DEFINE COMPILER1_UP}
  400. {$ENDIF}
  402. {$IFDEF COMPILER5}
  403.   {$DEFINE COMPILER5_UP}
  404.   {$DEFINE COMPILER4_UP}
  405.   {$DEFINE COMPILER35_UP}
  406.   {$DEFINE COMPILER3_UP}
  407.   {$DEFINE COMPILER2_UP}
  408.   {$DEFINE COMPILER1_UP}
  409. {$ENDIF}
  411. {$IFDEF COMPILER4}
  412.   {$DEFINE COMPILER4_UP}
  413.   {$DEFINE COMPILER35_UP}
  414.   {$DEFINE COMPILER3_UP}
  415.   {$DEFINE COMPILER2_UP}
  416.   {$DEFINE COMPILER1_UP}
  417. {$ENDIF}
  419. {$IFDEF COMPILER35}
  420.   {$DEFINE COMPILER35_UP}
  421.   {$DEFINE COMPILER3_UP}
  422.   {$DEFINE COMPILER2_UP}
  423.   {$DEFINE COMPILER1_UP}
  424. {$ENDIF}
  426. {$IFDEF COMPILER3}
  427.   {$DEFINE COMPILER3_UP}
  428.   {$DEFINE COMPILER2_UP}
  429.   {$DEFINE COMPILER1_UP}
  430. {$ENDIF}
  432. {$IFDEF COMPILER2}
  433.   {$DEFINE COMPILER2_UP}
  434.   {$DEFINE COMPILER1_UP}
  435. {$ENDIF}
  437. {$IFDEF COMPILER1}
  438.   {$DEFINE COMPILER1_UP}
  439. {$ENDIF}
  441. //------------------------------------------------------------------------------
  442. // Map COMPILERX_UP to friendly feature names
  443. //------------------------------------------------------------------------------
  445. {$IFDEF COMPILER3_UP}
  446.   {$DEFINE SUPPORTS_WIDESTRING}
  447.   {$DEFINE SUPPORTS_INTERFACE}
  448. {$ENDIF}
  450. {$IFDEF COMPILER35_UP}
  451.   {$DEFINE SUPPORTS_EXTSYM}
  452.   {$DEFINE SUPPORTS_NODEFINE}
  453. {$ENDIF}
  455. {$IFDEF COMPILER4_UP}
  456.   {$DEFINE SUPPORTS_INT64}
  457.   {$DEFINE SUPPORTS_DYNAMICARRAYS}
  458.   {$DEFINE SUPPORTS_DEFAULTPARAMS}
  459.   {$DEFINE SUPPORTS_OVERLOAD}
  460. {$ENDIF}
  462. //------------------------------------------------------------------------------
  463. // Cross-platform related defines
  464. //------------------------------------------------------------------------------
  466. {$IFDEF WIN32}
  467.   {$DEFINE MSWINDOWS}
  468. {$ENDIF}
  470. {$IFDEF LINUX}
  471.   {$DEFINE UNIX}
  472.   {$DEFINE COMPLIB_CLX}
  473. {$ENDIF}
  475. {$IFNDEF COMPLIB_CLX}
  476.   {$DEFINE COMPLIB_VCL}
  477. {$ENDIF}