Many new features! Have to be used.

units/simdesign.inc

@@ -0,0 +1,95 @@
+{ 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}
+
+