* fix compatibility with FPC 3.0 (Thaddy)
git-svn-id: https://svn.code.sf.net/p/kolmck/code@155 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07
This commit is contained in:
473
KOLDEF.inc
473
KOLDEF.inc
@ -1,107 +1,107 @@
|
|||||||
{$IFDEF VER90}
|
{$IFDEF VER90}
|
||||||
{$DEFINE _D2}
|
{$DEFINE _D2}
|
||||||
{$DEFINE _D2orD3}
|
{$DEFINE _D2orD3}
|
||||||
{$DEFINE _D2orD3orD4}
|
{$DEFINE _D2orD3orD4}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
{$IFDEF VER100}
|
{$IFDEF VER100}
|
||||||
{$DEFINE _D3}
|
{$DEFINE _D3}
|
||||||
{$DEFINE _D3orHigher}
|
{$DEFINE _D3orHigher}
|
||||||
{$DEFINE _D2orD3}
|
{$DEFINE _D2orD3}
|
||||||
{$DEFINE _D2orD3orD4}
|
{$DEFINE _D2orD3orD4}
|
||||||
{$DEFINE _D3orD4}
|
{$DEFINE _D3orD4}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
{$IFDEF VER120}
|
{$IFDEF VER120}
|
||||||
{$DEFINE _D3orHigher}
|
{$DEFINE _D3orHigher}
|
||||||
{$DEFINE _D3orD4}
|
{$DEFINE _D3orD4}
|
||||||
{$DEFINE _D4}
|
{$DEFINE _D4}
|
||||||
{$DEFINE _D4orHigher}
|
{$DEFINE _D4orHigher}
|
||||||
{$DEFINE _D2orD3orD4}
|
{$DEFINE _D2orD3orD4}
|
||||||
{$IFnDEF KOL_MCK}
|
{$IFnDEF KOL_MCK}
|
||||||
{$DEFINE INPACKAGE}
|
{$DEFINE INPACKAGE}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
{$IFDEF VER130}
|
{$IFDEF VER130}
|
||||||
{$DEFINE _D3orHigher}
|
{$DEFINE _D3orHigher}
|
||||||
{$DEFINE _D4orHigher}
|
{$DEFINE _D4orHigher}
|
||||||
{$DEFINE _D5}
|
{$DEFINE _D5}
|
||||||
{$DEFINE _D5orHigher}
|
{$DEFINE _D5orHigher}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
{$IFDEF VER140}
|
{$IFDEF VER140}
|
||||||
{$DEFINE _D3orHigher}
|
{$DEFINE _D3orHigher}
|
||||||
{$DEFINE _D4orHigher}
|
{$DEFINE _D4orHigher}
|
||||||
{$DEFINE _D5orHigher}
|
{$DEFINE _D5orHigher}
|
||||||
{$DEFINE _D6}
|
{$DEFINE _D6}
|
||||||
{$DEFINE _D6orHigher}
|
{$DEFINE _D6orHigher}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
{$IFDEF VER150}
|
{$IFDEF VER150}
|
||||||
{$DEFINE _D3orHigher}
|
{$DEFINE _D3orHigher}
|
||||||
{$DEFINE _D4orHigher}
|
{$DEFINE _D4orHigher}
|
||||||
{$DEFINE _D5orHigher}
|
{$DEFINE _D5orHigher}
|
||||||
{$DEFINE _D6orHigher}
|
{$DEFINE _D6orHigher}
|
||||||
{$DEFINE _D7}
|
{$DEFINE _D7}
|
||||||
{$DEFINE _D7orHigher}
|
{$DEFINE _D7orHigher}
|
||||||
{$WARN UNIT_DEPRECATED OFF}
|
{$WARN UNIT_DEPRECATED OFF}
|
||||||
{$WARN SYMBOL_PLATFORM OFF}
|
{$WARN SYMBOL_PLATFORM OFF}
|
||||||
{$WARN UNSAFE_TYPE OFF}
|
{$WARN UNSAFE_TYPE OFF}
|
||||||
{$WARN UNSAFE_CAST OFF}
|
{$WARN UNSAFE_CAST OFF}
|
||||||
{$WARN UNSAFE_CODE OFF}
|
{$WARN UNSAFE_CODE OFF}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
{$IFDEF VER160} // Delphi 8
|
{$IFDEF VER160} // Delphi 8
|
||||||
Delphi version 8 not supported! (delphi 8 is .net only)
|
Delphi version 8 not supported! (delphi 8 is .net only)
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
{$IFDEF VER170} // Delphi 2005
|
{$IFDEF VER170} // Delphi 2005
|
||||||
{$DEFINE _D3orHigher}
|
{$DEFINE _D3orHigher}
|
||||||
{$DEFINE _D4orHigher}
|
{$DEFINE _D4orHigher}
|
||||||
{$DEFINE _D5orHigher}
|
{$DEFINE _D5orHigher}
|
||||||
{$DEFINE _D6orHigher}
|
{$DEFINE _D6orHigher}
|
||||||
{$DEFINE _D7orHigher}
|
{$DEFINE _D7orHigher}
|
||||||
{$DEFINE _D8}
|
{$DEFINE _D8}
|
||||||
{$DEFINE _D8orHigher}
|
{$DEFINE _D8orHigher}
|
||||||
{$DEFINE _D2005}
|
{$DEFINE _D2005}
|
||||||
{$DEFINE _D2005orHigher}
|
{$DEFINE _D2005orHigher}
|
||||||
{$WARN UNIT_DEPRECATED OFF}
|
{$WARN UNIT_DEPRECATED OFF}
|
||||||
{$WARN SYMBOL_PLATFORM OFF}
|
{$WARN SYMBOL_PLATFORM OFF}
|
||||||
{$WARN UNSAFE_TYPE OFF}
|
{$WARN UNSAFE_TYPE OFF}
|
||||||
{$WARN UNSAFE_CAST OFF}
|
{$WARN UNSAFE_CAST OFF}
|
||||||
{$WARN UNSAFE_CODE OFF}
|
{$WARN UNSAFE_CODE OFF}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
{$IFDEF VER180} // Delphi 2006
|
{$IFDEF VER180} // Delphi 2006
|
||||||
{$DEFINE _D3orHigher}
|
{$DEFINE _D3orHigher}
|
||||||
{$DEFINE _D4orHigher}
|
{$DEFINE _D4orHigher}
|
||||||
{$DEFINE _D5orHigher}
|
{$DEFINE _D5orHigher}
|
||||||
{$DEFINE _D6orHigher}
|
{$DEFINE _D6orHigher}
|
||||||
{$DEFINE _D7orHigher}
|
{$DEFINE _D7orHigher}
|
||||||
{$DEFINE _D8orHigher}
|
{$DEFINE _D8orHigher}
|
||||||
{$DEFINE _D2005}
|
{$DEFINE _D2005}
|
||||||
{$DEFINE _D2005orHigher}
|
{$DEFINE _D2005orHigher}
|
||||||
{$DEFINE _D2006orHigher}
|
{$DEFINE _D2006orHigher}
|
||||||
{$WARN UNIT_DEPRECATED OFF}
|
{$WARN UNIT_DEPRECATED OFF}
|
||||||
{$WARN SYMBOL_PLATFORM OFF}
|
{$WARN SYMBOL_PLATFORM OFF}
|
||||||
{$WARN UNSAFE_TYPE OFF}
|
{$WARN UNSAFE_TYPE OFF}
|
||||||
{$WARN UNSAFE_CAST OFF}
|
{$WARN UNSAFE_CAST OFF}
|
||||||
{$WARN UNSAFE_CODE OFF}
|
{$WARN UNSAFE_CODE OFF}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
{$IFDEF _D2005orHigher}
|
{$IFDEF _D2005orHigher}
|
||||||
// by Thaddy de Koning:
|
// by Thaddy de Koning:
|
||||||
{$IFDEF VER185} // Delphi 2007 ( and Highlander )
|
{$IFDEF VER185} // Delphi 2007 ( and Highlander )
|
||||||
{$DEFINE _D3orHigher}
|
{$DEFINE _D3orHigher}
|
||||||
{$DEFINE _D4orHigher}
|
{$DEFINE _D4orHigher}
|
||||||
{$DEFINE _D5orHigher}
|
{$DEFINE _D5orHigher}
|
||||||
{$DEFINE _D6orHigher}
|
{$DEFINE _D6orHigher}
|
||||||
{$DEFINE _D7orHigher}
|
{$DEFINE _D7orHigher}
|
||||||
{$DEFINE _D2005orHigher}
|
{$DEFINE _D2005orHigher}
|
||||||
{$DEFINE _D2006orHigher}
|
{$DEFINE _D2006orHigher}
|
||||||
{$DEFINE _D2007}
|
{$DEFINE _D2007}
|
||||||
{$DEFINE _D2007orHigher}
|
{$DEFINE _D2007orHigher}
|
||||||
{$WARN UNIT_DEPRECATED OFF}
|
{$WARN UNIT_DEPRECATED OFF}
|
||||||
{$WARN SYMBOL_PLATFORM OFF}
|
{$WARN SYMBOL_PLATFORM OFF}
|
||||||
{$WARN UNSAFE_TYPE OFF}
|
{$WARN UNSAFE_TYPE OFF}
|
||||||
@ -130,172 +130,172 @@
|
|||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
{$IFDEF VER210} // Delphi 2010
|
{$IFDEF VER210} // Delphi 2010
|
||||||
{$DEFINE _D3orHigher}
|
{$DEFINE _D3orHigher}
|
||||||
{$DEFINE _D4orHigher}
|
{$DEFINE _D4orHigher}
|
||||||
{$DEFINE _D5orHigher}
|
{$DEFINE _D5orHigher}
|
||||||
{$DEFINE _D6orHigher}
|
{$DEFINE _D6orHigher}
|
||||||
{$DEFINE _D7orHigher}
|
{$DEFINE _D7orHigher}
|
||||||
{$DEFINE _D2005orHigher}
|
{$DEFINE _D2005orHigher}
|
||||||
{$DEFINE _D2006orHigher}
|
{$DEFINE _D2006orHigher}
|
||||||
{$DEFINE _D2007orHigher}
|
{$DEFINE _D2007orHigher}
|
||||||
{$DEFINE _D2009orHigher}
|
{$DEFINE _D2009orHigher}
|
||||||
{$DEFINE _D2010}
|
{$DEFINE _D2010}
|
||||||
{$DEFINE _D2010orHigher}
|
{$DEFINE _D2010orHigher}
|
||||||
{$WARN UNIT_DEPRECATED OFF}
|
{$WARN UNIT_DEPRECATED OFF}
|
||||||
{$WARN SYMBOL_PLATFORM OFF}
|
{$WARN SYMBOL_PLATFORM OFF}
|
||||||
{$WARN UNSAFE_TYPE OFF}
|
{$WARN UNSAFE_TYPE OFF}
|
||||||
{$WARN UNSAFE_CAST OFF}
|
{$WARN UNSAFE_CAST OFF}
|
||||||
{$WARN UNSAFE_CODE OFF}
|
{$WARN UNSAFE_CODE OFF}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
{$IFDEF VER220} // Delphi XE
|
{$IFDEF VER220} // Delphi XE
|
||||||
{$DEFINE _D3orHigher}
|
{$DEFINE _D3orHigher}
|
||||||
{$DEFINE _D4orHigher}
|
{$DEFINE _D4orHigher}
|
||||||
{$DEFINE _D5orHigher}
|
{$DEFINE _D5orHigher}
|
||||||
{$DEFINE _D6orHigher}
|
{$DEFINE _D6orHigher}
|
||||||
{$DEFINE _D7orHigher}
|
{$DEFINE _D7orHigher}
|
||||||
{$DEFINE _D2005orHigher}
|
{$DEFINE _D2005orHigher}
|
||||||
{$DEFINE _D2006orHigher}
|
{$DEFINE _D2006orHigher}
|
||||||
{$DEFINE _D2007orHigher}
|
{$DEFINE _D2007orHigher}
|
||||||
{$DEFINE _D2009orHigher}
|
{$DEFINE _D2009orHigher}
|
||||||
{$DEFINE _D2010orHigher}
|
{$DEFINE _D2010orHigher}
|
||||||
{$DEFINE _DXE}
|
{$DEFINE _DXE}
|
||||||
{$DEFINE _DXEorHigher}
|
{$DEFINE _DXEorHigher}
|
||||||
{$WARN UNIT_DEPRECATED OFF}
|
{$WARN UNIT_DEPRECATED OFF}
|
||||||
{$WARN SYMBOL_PLATFORM OFF}
|
{$WARN SYMBOL_PLATFORM OFF}
|
||||||
{$WARN UNSAFE_TYPE OFF}
|
{$WARN UNSAFE_TYPE OFF}
|
||||||
{$WARN UNSAFE_CAST OFF}
|
{$WARN UNSAFE_CAST OFF}
|
||||||
{$WARN UNSAFE_CODE OFF}
|
{$WARN UNSAFE_CODE OFF}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
{$IFDEF VER230} // Delphi XE2
|
{$IFDEF VER230} // Delphi XE2
|
||||||
{$DEFINE _D3orHigher}
|
{$DEFINE _D3orHigher}
|
||||||
{$DEFINE _D4orHigher}
|
{$DEFINE _D4orHigher}
|
||||||
{$DEFINE _D5orHigher}
|
{$DEFINE _D5orHigher}
|
||||||
{$DEFINE _D6orHigher}
|
{$DEFINE _D6orHigher}
|
||||||
{$DEFINE _D7orHigher}
|
{$DEFINE _D7orHigher}
|
||||||
{$DEFINE _D2005orHigher}
|
{$DEFINE _D2005orHigher}
|
||||||
{$DEFINE _D2006orHigher}
|
{$DEFINE _D2006orHigher}
|
||||||
{$DEFINE _D2007orHigher}
|
{$DEFINE _D2007orHigher}
|
||||||
{$DEFINE _D2009orHigher}
|
{$DEFINE _D2009orHigher}
|
||||||
{$DEFINE _D2010orHigher}
|
{$DEFINE _D2010orHigher}
|
||||||
{$DEFINE _DXEorHigher}
|
{$DEFINE _DXEorHigher}
|
||||||
{$DEFINE _DXE2}
|
{$DEFINE _DXE2}
|
||||||
{$DEFINE _DXE2orHigher}
|
{$DEFINE _DXE2orHigher}
|
||||||
{$IFDEF WIN64}
|
{$IFDEF WIN64}
|
||||||
{$DEFINE PAS_VERSION}
|
{$DEFINE PAS_VERSION}
|
||||||
{$DEFINE PAS_ONLY}
|
{$DEFINE PAS_ONLY}
|
||||||
{.$DEFINE UNICODE_CTRLS}
|
{.$DEFINE UNICODE_CTRLS}
|
||||||
{$DEFINE STREAM_LARGE64}
|
{$DEFINE STREAM_LARGE64}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
{$WARN UNIT_DEPRECATED OFF}
|
{$WARN UNIT_DEPRECATED OFF}
|
||||||
{.$WARN SYMBOL_PLATFORM OFF}
|
{.$WARN SYMBOL_PLATFORM OFF}
|
||||||
{.$WARN UNSAFE_TYPE OFF}
|
{.$WARN UNSAFE_TYPE OFF}
|
||||||
{.$WARN UNSAFE_CAST OFF}
|
{.$WARN UNSAFE_CAST OFF}
|
||||||
{.$WARN UNSAFE_CODE OFF}
|
{.$WARN UNSAFE_CODE OFF}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
{$IFDEF VER240} // Delphi XE3
|
{$IFDEF VER240} // Delphi XE3
|
||||||
{$DEFINE _D3orHigher}
|
{$DEFINE _D3orHigher}
|
||||||
{$DEFINE _D4orHigher}
|
{$DEFINE _D4orHigher}
|
||||||
{$DEFINE _D5orHigher}
|
{$DEFINE _D5orHigher}
|
||||||
{$DEFINE _D6orHigher}
|
{$DEFINE _D6orHigher}
|
||||||
{$DEFINE _D7orHigher}
|
{$DEFINE _D7orHigher}
|
||||||
{$DEFINE _D2005orHigher}
|
{$DEFINE _D2005orHigher}
|
||||||
{$DEFINE _D2006orHigher}
|
{$DEFINE _D2006orHigher}
|
||||||
{$DEFINE _D2007orHigher}
|
{$DEFINE _D2007orHigher}
|
||||||
{$DEFINE _D2009orHigher}
|
{$DEFINE _D2009orHigher}
|
||||||
{$DEFINE _D2010orHigher}
|
{$DEFINE _D2010orHigher}
|
||||||
{$DEFINE _DXEorHigher}
|
{$DEFINE _DXEorHigher}
|
||||||
{$DEFINE _DXE2orHigher}
|
{$DEFINE _DXE2orHigher}
|
||||||
{$DEFINE _DXE3}
|
{$DEFINE _DXE3}
|
||||||
{$DEFINE _DXE3orHigher}
|
{$DEFINE _DXE3orHigher}
|
||||||
{$IFDEF WIN64}
|
{$IFDEF WIN64}
|
||||||
{$DEFINE PAS_VERSION}
|
{$DEFINE PAS_VERSION}
|
||||||
{$DEFINE PAS_ONLY}
|
{$DEFINE PAS_ONLY}
|
||||||
{.$DEFINE UNICODE_CTRLS}
|
{.$DEFINE UNICODE_CTRLS}
|
||||||
{$DEFINE STREAM_LARGE64}
|
{$DEFINE STREAM_LARGE64}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
{$WARN UNIT_DEPRECATED OFF}
|
{$WARN UNIT_DEPRECATED OFF}
|
||||||
{.$WARN SYMBOL_PLATFORM OFF}
|
{.$WARN SYMBOL_PLATFORM OFF}
|
||||||
{.$WARN UNSAFE_TYPE OFF}
|
{.$WARN UNSAFE_TYPE OFF}
|
||||||
{.$WARN UNSAFE_CAST OFF}
|
{.$WARN UNSAFE_CAST OFF}
|
||||||
{.$WARN UNSAFE_CODE OFF}
|
{.$WARN UNSAFE_CODE OFF}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
{$IFDEF VER250} // Delphi XE4
|
{$IFDEF VER250} // Delphi XE4
|
||||||
{$DEFINE _D3orHigher}
|
{$DEFINE _D3orHigher}
|
||||||
{$DEFINE _D4orHigher}
|
{$DEFINE _D4orHigher}
|
||||||
{$DEFINE _D5orHigher}
|
{$DEFINE _D5orHigher}
|
||||||
{$DEFINE _D6orHigher}
|
{$DEFINE _D6orHigher}
|
||||||
{$DEFINE _D7orHigher}
|
{$DEFINE _D7orHigher}
|
||||||
{$DEFINE _D2005orHigher}
|
{$DEFINE _D2005orHigher}
|
||||||
{$DEFINE _D2006orHigher}
|
{$DEFINE _D2006orHigher}
|
||||||
{$DEFINE _D2007orHigher}
|
{$DEFINE _D2007orHigher}
|
||||||
{$DEFINE _D2009orHigher}
|
{$DEFINE _D2009orHigher}
|
||||||
{$DEFINE _D2010orHigher}
|
{$DEFINE _D2010orHigher}
|
||||||
{$DEFINE _DXEorHigher}
|
{$DEFINE _DXEorHigher}
|
||||||
{$DEFINE _DXE2orHigher}
|
{$DEFINE _DXE2orHigher}
|
||||||
{$DEFINE _DXE3orHigher}
|
{$DEFINE _DXE3orHigher}
|
||||||
{$DEFINE _DXE4}
|
{$DEFINE _DXE4}
|
||||||
{$DEFINE _DXE4orHigher}
|
{$DEFINE _DXE4orHigher}
|
||||||
{$IFDEF WIN64}
|
{$IFDEF WIN64}
|
||||||
{$DEFINE PAS_VERSION}
|
{$DEFINE PAS_VERSION}
|
||||||
{$DEFINE PAS_ONLY}
|
{$DEFINE PAS_ONLY}
|
||||||
{.$DEFINE UNICODE_CTRLS}
|
{.$DEFINE UNICODE_CTRLS}
|
||||||
{$DEFINE STREAM_LARGE64}
|
{$DEFINE STREAM_LARGE64}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
{$WARN UNIT_DEPRECATED OFF}
|
{$WARN UNIT_DEPRECATED OFF}
|
||||||
{.$WARN SYMBOL_PLATFORM OFF}
|
{.$WARN SYMBOL_PLATFORM OFF}
|
||||||
{.$WARN UNSAFE_TYPE OFF}
|
{.$WARN UNSAFE_TYPE OFF}
|
||||||
{.$WARN UNSAFE_CAST OFF}
|
{.$WARN UNSAFE_CAST OFF}
|
||||||
{.$WARN UNSAFE_CODE OFF}
|
{.$WARN UNSAFE_CODE OFF}
|
||||||
{$DEFINE TMSG_WINDOWS}
|
{$DEFINE TMSG_WINDOWS}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
{$IFDEF VER260} // Delphi XE5
|
{$IFDEF VER260} // Delphi XE5
|
||||||
{$DEFINE _D3orHigher}
|
{$DEFINE _D3orHigher}
|
||||||
{$DEFINE _D4orHigher}
|
{$DEFINE _D4orHigher}
|
||||||
{$DEFINE _D5orHigher}
|
{$DEFINE _D5orHigher}
|
||||||
{$DEFINE _D6orHigher}
|
{$DEFINE _D6orHigher}
|
||||||
{$DEFINE _D7orHigher}
|
{$DEFINE _D7orHigher}
|
||||||
{$DEFINE _D2005orHigher}
|
{$DEFINE _D2005orHigher}
|
||||||
{$DEFINE _D2006orHigher}
|
{$DEFINE _D2006orHigher}
|
||||||
{$DEFINE _D2007orHigher}
|
{$DEFINE _D2007orHigher}
|
||||||
{$DEFINE _D2009orHigher}
|
{$DEFINE _D2009orHigher}
|
||||||
{$DEFINE _D2010orHigher}
|
{$DEFINE _D2010orHigher}
|
||||||
{$DEFINE _DXEorHigher}
|
{$DEFINE _DXEorHigher}
|
||||||
{$DEFINE _DXE2orHigher}
|
{$DEFINE _DXE2orHigher}
|
||||||
{$DEFINE _DXE3orHigher}
|
{$DEFINE _DXE3orHigher}
|
||||||
{$DEFINE _DXE4orHigher}
|
{$DEFINE _DXE4orHigher}
|
||||||
{$DEFINE _DXE5}
|
{$DEFINE _DXE5}
|
||||||
{$DEFINE _DXE5orHigher}
|
{$DEFINE _DXE5orHigher}
|
||||||
{$IFDEF WIN64}
|
{$IFDEF WIN64}
|
||||||
{$DEFINE PAS_VERSION}
|
{$DEFINE PAS_VERSION}
|
||||||
{$DEFINE PAS_ONLY}
|
{$DEFINE PAS_ONLY}
|
||||||
{.$DEFINE UNICODE_CTRLS}
|
{.$DEFINE UNICODE_CTRLS}
|
||||||
{$DEFINE STREAM_LARGE64}
|
{$DEFINE STREAM_LARGE64}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
{$WARN UNIT_DEPRECATED OFF}
|
{$WARN UNIT_DEPRECATED OFF}
|
||||||
{.$WARN SYMBOL_PLATFORM OFF}
|
{.$WARN SYMBOL_PLATFORM OFF}
|
||||||
{.$WARN UNSAFE_TYPE OFF}
|
{.$WARN UNSAFE_TYPE OFF}
|
||||||
{.$WARN UNSAFE_CAST OFF}
|
{.$WARN UNSAFE_CAST OFF}
|
||||||
{.$WARN UNSAFE_CODE OFF}
|
{.$WARN UNSAFE_CODE OFF}
|
||||||
{$DEFINE TMSG_WINDOWS}
|
{$DEFINE TMSG_WINDOWS}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
{$IFDEF VER270} // Delphi XE6
|
{$IFDEF VER270} // Delphi XE6
|
||||||
{$DEFINE _D3orHigher}
|
{$DEFINE _D3orHigher}
|
||||||
{$DEFINE _D4orHigher}
|
{$DEFINE _D4orHigher}
|
||||||
{$DEFINE _D5orHigher}
|
{$DEFINE _D5orHigher}
|
||||||
{$DEFINE _D6orHigher}
|
{$DEFINE _D6orHigher}
|
||||||
{$DEFINE _D7orHigher}
|
{$DEFINE _D7orHigher}
|
||||||
{$DEFINE _D2005orHigher}
|
{$DEFINE _D2005orHigher}
|
||||||
{$DEFINE _D2006orHigher}
|
{$DEFINE _D2006orHigher}
|
||||||
{$DEFINE _D2007orHigher}
|
{$DEFINE _D2007orHigher}
|
||||||
{$DEFINE _D2009orHigher}
|
{$DEFINE _D2009orHigher}
|
||||||
{$DEFINE _D2010orHigher}
|
{$DEFINE _D2010orHigher}
|
||||||
{$DEFINE _DXEorHigher}
|
{$DEFINE _DXEorHigher}
|
||||||
{$DEFINE _DXE2orHigher}
|
{$DEFINE _DXE2orHigher}
|
||||||
{$DEFINE _DXE3orHigher}
|
{$DEFINE _DXE3orHigher}
|
||||||
{$DEFINE _DXE4orHigher}
|
{$DEFINE _DXE4orHigher}
|
||||||
@ -305,29 +305,29 @@
|
|||||||
{$IFDEF WIN64}
|
{$IFDEF WIN64}
|
||||||
{$DEFINE PAS_VERSION}
|
{$DEFINE PAS_VERSION}
|
||||||
{$DEFINE PAS_ONLY}
|
{$DEFINE PAS_ONLY}
|
||||||
{.$DEFINE UNICODE_CTRLS}
|
{.$DEFINE UNICODE_CTRLS}
|
||||||
{$DEFINE STREAM_LARGE64}
|
{$DEFINE STREAM_LARGE64}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
{$WARN UNIT_DEPRECATED OFF}
|
{$WARN UNIT_DEPRECATED OFF}
|
||||||
{.$WARN SYMBOL_PLATFORM OFF}
|
{.$WARN SYMBOL_PLATFORM OFF}
|
||||||
{.$WARN UNSAFE_TYPE OFF}
|
{.$WARN UNSAFE_TYPE OFF}
|
||||||
{.$WARN UNSAFE_CAST OFF}
|
{.$WARN UNSAFE_CAST OFF}
|
||||||
{.$WARN UNSAFE_CODE OFF}
|
{.$WARN UNSAFE_CODE OFF}
|
||||||
{$DEFINE TMSG_WINDOWS}
|
{$DEFINE TMSG_WINDOWS}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
{$IFDEF VER280} // Delphi XE7
|
{$IFDEF VER280} // Delphi XE7
|
||||||
{$DEFINE _D3orHigher}
|
{$DEFINE _D3orHigher}
|
||||||
{$DEFINE _D4orHigher}
|
{$DEFINE _D4orHigher}
|
||||||
{$DEFINE _D5orHigher}
|
{$DEFINE _D5orHigher}
|
||||||
{$DEFINE _D6orHigher}
|
{$DEFINE _D6orHigher}
|
||||||
{$DEFINE _D7orHigher}
|
{$DEFINE _D7orHigher}
|
||||||
{$DEFINE _D2005orHigher}
|
{$DEFINE _D2005orHigher}
|
||||||
{$DEFINE _D2006orHigher}
|
{$DEFINE _D2006orHigher}
|
||||||
{$DEFINE _D2007orHigher}
|
{$DEFINE _D2007orHigher}
|
||||||
{$DEFINE _D2009orHigher}
|
{$DEFINE _D2009orHigher}
|
||||||
{$DEFINE _D2010orHigher}
|
{$DEFINE _D2010orHigher}
|
||||||
{$DEFINE _DXEorHigher}
|
{$DEFINE _DXEorHigher}
|
||||||
{$DEFINE _DXE2orHigher}
|
{$DEFINE _DXE2orHigher}
|
||||||
{$DEFINE _DXE3orHigher}
|
{$DEFINE _DXE3orHigher}
|
||||||
{$DEFINE _DXE4orHigher}
|
{$DEFINE _DXE4orHigher}
|
||||||
@ -338,14 +338,14 @@
|
|||||||
{$IFDEF WIN64}
|
{$IFDEF WIN64}
|
||||||
{$DEFINE PAS_VERSION}
|
{$DEFINE PAS_VERSION}
|
||||||
{$DEFINE PAS_ONLY}
|
{$DEFINE PAS_ONLY}
|
||||||
{.$DEFINE UNICODE_CTRLS}
|
{.$DEFINE UNICODE_CTRLS}
|
||||||
{$DEFINE STREAM_LARGE64}
|
{$DEFINE STREAM_LARGE64}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
{$WARN UNIT_DEPRECATED OFF}
|
{$WARN UNIT_DEPRECATED OFF}
|
||||||
{.$WARN SYMBOL_PLATFORM OFF}
|
{.$WARN SYMBOL_PLATFORM OFF}
|
||||||
{.$WARN UNSAFE_TYPE OFF}
|
{.$WARN UNSAFE_TYPE OFF}
|
||||||
{.$WARN UNSAFE_CAST OFF}
|
{.$WARN UNSAFE_CAST OFF}
|
||||||
{.$WARN UNSAFE_CODE OFF}
|
{.$WARN UNSAFE_CODE OFF}
|
||||||
{$DEFINE TMSG_WINDOWS}
|
{$DEFINE TMSG_WINDOWS}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
@ -360,26 +360,39 @@
|
|||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
{$IFDEF FPC}
|
{$IFDEF FPC}
|
||||||
{$DEFINE PAS_ONLY}
|
{$DEFINE PAS_ONLY}
|
||||||
{$DEFINE USE_OLD_FLAGS} //size of set type in fpc is 4 bytes
|
{$DEFINE USE_OLD_FLAGS} //size of set type in fpc is 4 bytes
|
||||||
{------------------------------------
|
{------------------------------------
|
||||||
by Thaddy de Koning:
|
by Thaddy de Koning:
|
||||||
|
|
||||||
FPC version 2.1.1 is very compatible with Delphi and kol now.
|
FPC version 2.1.1 is very compatible with Delphi and kol now.
|
||||||
You can simply use the $(DELPHI)\source\rtl\win\*.pas files from Delphi 4/5 instead of the prepared files that were needed for
|
You can simply use the $(DELPHI)\source\rtl\win\*.pas files from Delphi 4/5 instead of the prepared files that were needed for
|
||||||
FPC1.X
|
FPC1.X
|
||||||
|
|
||||||
That is all to have full compatibility.
|
That is all to have full compatibility.
|
||||||
------------------------------------}
|
------------------------------------}
|
||||||
{$DEFINE PAS_VERSION}
|
{$DEFINE PAS_VERSION}
|
||||||
{$IFDEF VER2}
|
{$IFDEF VER2}
|
||||||
{$DEFINE _D3orHigher}
|
{$DEFINE _D3orHigher}
|
||||||
{$DEFINE _D4orHigher}
|
{$DEFINE _D4orHigher}
|
||||||
{$DEFINE _D5orHigher}
|
{$DEFINE _D5orHigher}
|
||||||
{$DEFINE _D6orHigher}
|
{$DEFINE _D6orHigher}
|
||||||
{$DEFINE _D7}
|
{$DEFINE _D7}
|
||||||
{$DEFINE _D7orHigher}
|
{$DEFINE _D7orHigher}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
{$IFDEF VER3}
|
||||||
|
// I should clean this up later.
|
||||||
|
{$DEFINE VER2}
|
||||||
|
{$DEFINE _D3orHigher}
|
||||||
|
{$DEFINE _D4orHigher}
|
||||||
|
{$DEFINE _D5orHigher}
|
||||||
|
{$DEFINE _D6orHigher}
|
||||||
|
{$DEFINE _D7}
|
||||||
|
{$DEFINE _D7orHigher}
|
||||||
|
{$DEFINE _D2005orHigher}
|
||||||
|
{$DEFINE _D2006orHigher}
|
||||||
|
{$DEFINE _D2007orHigher}
|
||||||
|
{$ENDIF}
|
||||||
{$ENDIF FPC}
|
{$ENDIF FPC}
|
||||||
|
|
||||||
{$IFNDEF _NOT_KOLCtrlWrapper_}
|
{$IFNDEF _NOT_KOLCtrlWrapper_}
|
||||||
|
Reference in New Issue
Block a user