delphinewton.inc
上传用户:ctlcnc
上传日期:2021-12-10
资源大小:4933k
文件大小:10k
源码类别:

2D图形编程

开发平台:

Delphi

  1. {******************************************************************************}
  2. {                                                                              }
  3. {       Borland Delphi SDL - Simple DirectMedia Layer                          }
  4. {       Global Conditional Definitions for JEDI-SDL cross-compilation          }
  5. {                                                                              }
  6. {                                                                              }
  7. { The initial developer of this Pascal code was :                              }
  8. {  Prof. Abimbola Olowofoyeku <http://www.bigfoot.com/~African_Chief/>         }
  9. {                                                                              }
  10. { Portions created by Prof. Abimbola Olowofoyeku are                           }
  11. { Copyright (C) 2000 - 2100 Prof. Abimbola Olowofoyeku.                        }
  12. {                                                                              }
  13. {                                                                              }
  14. { Contributor(s)                                                               }
  15. { --------------                                                               }
  16. {  Prof. Abimbola Olowofoyeku <http://www.bigfoot.com/~African_Chief/>         }
  17. {  Dominqiue Louis <Dominique@SavageSoftware.com.au>                           }
  18. {                                                                              }
  19. { Obtained through:                                                            }
  20. { Joint Endeavour of Delphi Innovators ( Project JEDI )                        }
  21. {                                                                              }
  22. { You may retrieve the latest version of this file at the Project              }
  23. { JEDI home page, located at http://delphi-jedi.org                            }
  24. {                                                                              }
  25. { The contents of this file are used with permission, subject to               }
  26. { the Mozilla Public License Version 1.1 (the "License"); you may              }
  27. { not use this file except in compliance with the License. You may             }
  28. { obtain a copy of the License at                                              }
  29. { http://www.mozilla.org/MPL/MPL-1.1.html                                      }
  30. {                                                                              }
  31. { Software distributed under the License is distributed on an                  }
  32. { "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or               }
  33. { implied. See the License for the specific language governing                 }
  34. { rights and limitations under the License.                                    }
  35. {                                                                              }
  36. { Description                                                                  }
  37. { -----------                                                                  }
  38. { This code has been copied from...                                            }
  39. { Global Conditional Definitions for Chief's UNZIP package                     }
  40. { By Prof. Abimbola Olowofoyeku (The African Chief)                            }
  41. {          http://www.bigfoot.com/~African_Chief/                              }
  42. {                                                                              }
  43. {                                                                              }
  44. { Requires                                                                     }
  45. { --------                                                                     }
  46. {   The SDL Runtime libraris on Win32  : SDL.dll on Linux : libSDL.so          }
  47. {   They are available from...                                                 }
  48. {   http://www.libsdl.org .                                                    }
  49. {                                                                              }
  50. { Programming Notes                                                            }
  51. { -----------------                                                            }
  52. {                                                                              }
  53. {                                                                              }
  54. {                                                                              }
  55. {                                                                              }
  56. { Revision History                                                             }
  57. { ----------------                                                             }
  58. {   2003-04-03   DL - Initial addition                                         }
  59. {                                                                              }
  60. {   2003-04-07   DL - Added Macro ON derective for FPC and OpenGL and removed  }
  61. {                WEAKPACKAGE derective. WEAKPACKAGE should be set when         }
  62. {                appropriate.                                                  }
  63. {                                                                              }
  64. {   2003-04-23 - DL : under instruction from Alexey Barkovoy I have added      }
  65. {                          better TMT Pascal support and under instruction     }
  66. {                          from Prof. Abimbola Olowofoyeku (The African Chief) }
  67. {                          I have added better Gnu Pascal support              }
  68. {                                                                              }
  69. {   2004-01-19 - DL : Under instruction from Marco van de Voort, I have added  }
  70. {                     Better FPC support for FreeBSD.                          }
  71. {                                                                              }
  72. {******************************************************************************}
  73. {.$define Debug}           { uncomment for debugging }
  74. {$IFNDEF FPC}
  75.   {$IFDEF __GPC__}
  76.     {$I-}
  77.     {$W-}
  78.     {$X+}
  79.   {$ELSE} {__GPC__}
  80.     {$IFDEF Debug}
  81.       {$F+,D+,Q-,L+,R+,I-,S+,Y+,A+}
  82.     {$ELSE}
  83.       {$F+,Q-,R-,S-,I-,A+}
  84.     {$ENDIF}
  85.   {$ENDIF} {__GPC__}
  86. {$ELSE}  {FPC}
  87.   {$M+}
  88. {$ENDIF} {FPC}
  89. {$IFDEF LINUX}
  90. {$DEFINE UNIX}
  91. {$ENDIF}
  92. {$IFDEF ver70}
  93.    {$IFDEF Windows}
  94.      {$DEFINE Win16}
  95.    {$ENDIF Windows}
  96.    {$IFDEF MSDOS}
  97.      {$DEFINE NO_EXPORTS}
  98.    {$ENDIF MSDOS}
  99.    {$IFDEF DPMI}
  100.      {$DEFINE BP_DPMI}
  101.    {$ENDIF}
  102.    {$DEFINE OS_16_BIT}
  103.    {$DEFINE __OS_DOS__}
  104. {$ENDIF ver70}
  105. {$IFDEF ver80}
  106.    {$DEFINE Delphi}      {Delphi 1.x}
  107.    {$DEFINE Delphi16}
  108.    {$DEFINE Win16}
  109.    {$DEFINE OS_16_BIT}
  110.    {$DEFINE __OS_DOS__}
  111. {$ENDIF ver80}
  112. {$IFDEF ver90}
  113.    {$DEFINE Delphi}      {Delphi 2.x}
  114.    {$DEFINE Delphi32}
  115. {$ENDIF ver90}
  116. {$IFDEF ver100}
  117.    {$DEFINE Delphi}      {Delphi 3.x}
  118.    {$DEFINE Delphi32}
  119.    {$DEFINE WIN32}
  120. {$ENDIF ver100}
  121. {$IFDEF ver93}
  122.    {$DEFINE Delphi}      {C++ Builder 1.x}
  123.    {$DEFINE Delphi32}
  124. {$ENDIF ver93}
  125. {$IFDEF ver110}
  126.    {$DEFINE Delphi}      {C++ Builder 3.x}
  127.    {$DEFINE Delphi32}
  128. {$ENDIF ver110}
  129. {$IFDEF ver120}
  130.    {$DEFINE Delphi}      {Delphi 4.x}
  131.    {$DEFINE Delphi32}
  132.    {$DEFINE Has_Int64}
  133. {$ENDIF ver120}
  134. {$IFDEF ver130}
  135.    {$DEFINE Delphi}      {Delphi 5.x}
  136.    {$DEFINE Delphi32}
  137.    {$DEFINE Has_Int64}
  138. {$ENDIF ver130}
  139. {$IFDEF ver140}
  140.    {$DEFINE Delphi}      {Delphi 6.x}
  141.    {$DEFINE Delphi32}
  142.    {$DEFINE Has_Int64}
  143. {$ENDIF ver140}
  144. {$IFDEF ver150}
  145.    {$DEFINE Delphi}      {Delphi 7.x}
  146.    {$DEFINE Delphi32}
  147.    {$WARN UNSAFE_TYPE OFF} {Disable warning for unsafe types in Delphi 7}
  148.    {$DEFINE Has_Int64}
  149. {$ENDIF ver150}
  150. {$IFDEF VER150}
  151. {$ENDIF}
  152. {$IFDEF ver160}
  153.    {$DEFINE Delphi}      {Delphi 8??}
  154.    {$DEFINE Delphi32}
  155.    {$DEFINE Has_Int64}
  156. {$ENDIF ver160}
  157. {$IFDEF ver170}
  158.    {$DEFINE Delphi}      {Delphi 9??}
  159.    {$DEFINE Delphi32}
  160.    {$DEFINE Has_Int64}
  161. {$ENDIF ver170}
  162. {$IFDEF UNIX}
  163.   {$ifdef VER150}
  164.     {$define KYLIX}
  165.   {$endif}
  166.   {$ifdef VER140}
  167.     {$define KYLIX}
  168.   {$endif}
  169.   {$ifdef VER140}
  170.     {$define KYLIX}
  171.   {$endif}
  172. {$ENDIF UNIX}
  173. {$IFDEF VirtualPascal} {  Virtual Pascal 2.x }
  174.    {$DEFINE Delphi}    {  Use Delphi Syntax }
  175.    {$DEFINE VP2}
  176.    {&Delphi+}
  177. {$ENDIF VirtualPascal}
  178. {$IFDEF Delphi}
  179.   {$DEFINE Windows}
  180.   {$DEFINE USE_STDCALL}
  181. {$ENDIF Delphi}
  182. {$IFDEF FPC}
  183.   {$MODE Delphi}          { use Delphi compatibility mode }
  184.   {$H+}
  185.   {$PACKRECORDS 4}        // Added for record
  186.   {$MACRO ON}             // Added For OpenGL
  187.   {$THREADING on}
  188.   {$DEFINE Delphi}
  189.   {$DEFINE UseAT}
  190.   {$UNDEF USE_STDCALL}
  191.   {$DEFINE OS_BigMem}
  192.   {$DEFINE NO_EXPORTS}
  193.   {$DEFINE Has_Int64}
  194.   {$DEFINE NOCRT}
  195.   {$IFDEF unix}
  196.      {$DEFINE fpc_unix}
  197.   {$ELSE}
  198.      {$DEFINE __OS_DOS__}
  199.   {$ENDIF}
  200.   {$IFDEF WIN32}
  201.    {$DEFINE UseWin}
  202.   {$ENDIF}
  203. {$ENDIF FPC}
  204. {$IFDEF Win16}
  205.   {$K+}   {smart callbacks}
  206. {$ENDIF Win16}
  207.  {$IFDEF OS2}
  208.     {$UNDEF Windows}
  209.     {$DEFINE UseWin}
  210.     {$DEFINE OS_BigMem}
  211.  {$ENDIF OS2}
  212. {$IFDEF __GPC__}
  213.   {$UNDEF UseWin}
  214.   {$UNDEF USE_STDCALL}
  215.   {$DEFINE OS_BigMem}
  216.   {$DEFINE NO_EXPORTS}
  217.   {$DEFINE NOCRT}
  218.   {$DEFINE cdecl attribute(cdecl)}
  219. {$ENDIF}
  220. {$IFDEF __TMT__}
  221.   {$DEFINE OS_BigMem}
  222.   {$DEFINE NO_EXPORTS}
  223.   {$DEFINE __OS_DOS__}
  224.   {$DEFINE UseAT}
  225.   {$IFNDEF MSDOS}
  226.     {$DEFINE USE_STDCALL}
  227.   {$ENDIF}
  228.   {$IFDEF __WIN32__}
  229.     {$DEFINE Win32}
  230.     {$DEFINE UseWin}
  231.     {$DEFINE NOCRT}
  232.     {$DEFINE Win32}
  233.     {$IFNDEF __CON__}
  234.       {$DEFINE Windows}
  235.     {$ENDIF}
  236.   {$ENDIF}
  237.   {$A+}  // Word alignment data
  238.   {$OA+} // Objects and structures align
  239. {$ENDIF}
  240. {$IFDEF Win32}
  241.   {$H-}                    { no long strings, please! }
  242.   {$DEFINE OS_BigMem}
  243. {$ELSE Win32}
  244.   {$IFDEF ver70}
  245.     {$DEFINE assembler}
  246.   {$ENDIF} { use 16-bit assembler! }
  247. {$ENDIF Win32}
  248. { ************************** dos/dos-like platforms **************}
  249. {$IFDEF Windows}
  250.    {$DEFINE __OS_DOS__}
  251.    {$DEFINE UseWin}
  252.    {$DEFINE MSWINDOWS}
  253. {$ENDIF Delphi}
  254. {$IFDEF OS2}
  255.    {$DEFINE __OS_DOS__}
  256.    {$DEFINE Can_Use_DLL}
  257. {$ENDIF Delphi}
  258. {$IFDEF UseWin}
  259.    {$DEFINE Can_Use_DLL}
  260. {$ENDIF}
  261. {$IFDEF Win16}
  262.    {$DEFINE Can_Use_DLL}
  263. {$ENDIF}
  264. {$IFDEF BP_DPMI}
  265.    {$DEFINE Can_Use_DLL}
  266. {$ENDIF}
  267. {$IFDEF USE_STDCALL}
  268.    {$IFNDEF __TMT__}
  269.      {$DEFINE BY_NAME}
  270.    {$ENDIF}
  271. {$ENDIF}
  272. {$IFNDEF ver70}
  273.   {$UNDEF assembler}
  274. {$ENDIF}