|
| 1 | +{$IFDEF FPC} |
| 2 | + {$MODE DELPHI} |
| 3 | + {$DEFINE ABSTRACT_CLASSES} |
| 4 | + {$DEFINE RECORD_METHODS} |
| 5 | + {$DEFINE PBYTE} |
| 6 | + {$DEFINE UITYPES} |
| 7 | + {$DEFINE NESTED_TYPES} |
| 8 | + {$IFNDEF DEBUG} |
| 9 | + {$DEFINE INLINE} |
| 10 | + {$ENDIF} |
| 11 | + {$DEFINE DELPHI_PNG} |
| 12 | +{$ELSE} |
| 13 | + {$IF COMPILERVERSION < 15} |
| 14 | + Your version of Delphi is not supported (Image32 requires Delphi version 7 or above) |
| 15 | + {$IFEND} |
| 16 | + {$IFDEF CPUX86} |
| 17 | + {$DEFINE ASM_X86} //nb: do not define in FPC |
| 18 | + {$ENDIF} |
| 19 | + {$IF COMPILERVERSION >= 17} |
| 20 | + {$IFNDEF DEBUG} |
| 21 | + {$DEFINE INLINE} //Delphi 2005 - added inlining |
| 22 | + {$ENDIF} |
| 23 | + {$DEFINE NESTED_TYPES} //Delphi 2005 - added nested types & nested constants |
| 24 | + {$IF COMPILERVERSION >= 18} |
| 25 | + {$DEFINE ABSTRACT_CLASSES} //Delphi 2006 - added abstract classes |
| 26 | + {$DEFINE RECORD_METHODS} //Delphi 2006 - added records with methods |
| 27 | + {$DEFINE REPORTMEMORYLEAKS} //Delphi 2006 - added ReportMemoryLeaksOnShutdown |
| 28 | + {$WARN SYMBOL_PLATFORM OFF} |
| 29 | + {$DEFINE SETSIZE} //Delphi 2006 - added TBitmap.SetSize |
| 30 | + {$IF COMPILERVERSION >= 18.5} |
| 31 | + {$DEFINE DELPHI_PNG} //Delphi 2007 - added PNG support |
| 32 | + {$DEFINE DELPHI_GIF} //Delphi 2007 - added GIF support |
| 33 | + {$DEFINE MAINFORMONTASKBAR} //Delphi 2007 - added TApplication.MainFormOnTaskbar |
| 34 | + {$if CompilerVersion >= 20} |
| 35 | + {$DEFINE PBYTE} //Delphi 2009 - added PByte |
| 36 | + {$DEFINE CHARINSET} //Delphi 2009 - added CharInSet function |
| 37 | + {$DEFINE EXIT_PARAM} //Delphi 2009 - added Exit(value) |
| 38 | + {$DEFINE ALPHAFORMAT} //Delphi 2009 - added TBitmap.AlphaFormat property |
| 39 | + {$IF COMPILERVERSION >= 21} |
| 40 | + {$DEFINE GESTURES} //Delphi 2010 - added screen gesture support |
| 41 | + {$IF COMPILERVERSION >= 23} |
| 42 | + {$IF declared(FireMonkeyVersion)} //defined in FMX.Types |
| 43 | + {$DEFINE FMX} |
| 44 | + {$IFEND} |
| 45 | + {$DEFINE TROUNDINGMODE} |
| 46 | + {$DEFINE UITYPES} //DelphiXE2 - added UITypes unit |
| 47 | + {$DEFINE XPLAT_GENERICS} //DelphiXE2 - reasonable cross-platform & generics support |
| 48 | + {$DEFINE STYLESERVICES} //DelphiXE2 - added StyleServices unit |
| 49 | + {$IF COMPILERVERSION >= 24} |
| 50 | + {$DEFINE ZEROBASEDSTR} //DelphiXE3 |
| 51 | + {$IF COMPILERVERSION >= 25} |
| 52 | + {$LEGACYIFEND ON} //DelphiXE4 - avoids compiler warning |
| 53 | + {$IFEND} |
| 54 | + {$IFEND} |
| 55 | + {$IFEND} |
| 56 | + {$IFEND} |
| 57 | + {$IFEND} |
| 58 | + {$IFEND} |
| 59 | + {$IFEND} |
| 60 | + {$IFEND} |
| 61 | +{$ENDIF} |
0 commit comments