96 lines
1.5 KiB
PHP
96 lines
1.5 KiB
PHP
{ simdesign.inc
|
|
|
|
include file for many simdesign projects
|
|
default path: \simlib\general
|
|
|
|
Author: Nils Haeck M.Sc.
|
|
Copyright (c) 2007 - 2011 Simdesign B.V.
|
|
|
|
}
|
|
|
|
// unicode avoid implicit string cast warning
|
|
{$ifdef UNICODE}
|
|
{$WARN IMPLICIT_STRING_CAST OFF}
|
|
{$endif UNICODE}
|
|
|
|
// Delphi and FPC versions
|
|
|
|
// Freepascal
|
|
{$ifdef FPC}
|
|
{$MODE DELPHI}
|
|
{$define D7UP}
|
|
{$endif FPC}
|
|
|
|
// Delphi 5
|
|
{$ifdef VER130}
|
|
{$define D5UP}
|
|
{$endif}
|
|
|
|
//Delphi 6
|
|
{$ifdef VER140}
|
|
{$define D5UP}
|
|
{$endif}
|
|
|
|
//Delphi 7
|
|
{$ifdef VER150}
|
|
{$define D7UP}
|
|
{$endif}
|
|
|
|
//Delphi 8
|
|
{$ifdef VER160}
|
|
{$define D7UP}
|
|
{$endif}
|
|
|
|
// Delphi 2005 / 9
|
|
{$ifdef VER170}
|
|
{$define D7UP}
|
|
{$endif}
|
|
|
|
// Delphi 2006 / 10
|
|
{$ifdef VER180}
|
|
{$define D7UP}
|
|
// D10 publishes OnMouseEnter / OnMouseLeave
|
|
{$define D10UP}
|
|
{$endif}
|
|
|
|
// Delphi 2007 Rad studio / 11?
|
|
{$ifdef VER185}
|
|
{$define D7UP}
|
|
{$define D10UP}
|
|
{$endif}
|
|
|
|
// Delphi 2007 - NET / 11?
|
|
{$ifdef VER190}
|
|
{$define D7UP}
|
|
{$define D10UP}
|
|
{$endif}
|
|
|
|
// Delphi 2009 / 12
|
|
// first UNICODE version, so then directive UNICODE is defined, no need for directive D12UP
|
|
{$ifdef VER200}
|
|
{$define D7UP}
|
|
{$define D10UP}
|
|
{$endif}
|
|
|
|
// Delphi 2010 / 14?
|
|
{$ifdef VER210}
|
|
{$define D7UP}
|
|
{$define D10UP}
|
|
{$endif}
|
|
|
|
// Delphi XE / 15
|
|
{$ifdef VER220}
|
|
{$define D7UP}
|
|
{$define D10UP}
|
|
{$define D15UP}
|
|
{$endif}
|
|
|
|
// Delphi XE2 / 16
|
|
{$ifdef VER230}
|
|
{$define D7UP}
|
|
{$define D10UP}
|
|
{$define D15UP}
|
|
{$endif}
|
|
|
|
|