* 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:
dkolmck
2017-01-18 07:58:04 +00:00
parent 4bf5d66775
commit 6b45e73d46

View File

@ -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_}