tedefs.inc

来自「delphi2007界面效果控件源码」· INC 代码 · 共 60 行

//{$define BCB} Compile for C++ Builder 5 or C++ Builder 6
//{$define XP_RENDER}

{$ifdef VER130}
  {$ifdef BCB}
    {$define C5} // C++ Builder 5
  {$else}
    {$define D5} // Delphi 5
  {$endif BCB}
{$endif VER130}

{$ifdef VER140}
  {$ifdef BCB}
    {$define C6} // C++ Builder 6
  {$else}
    {$define D6} // Delphi 6
  {$endif BCB}
{$endif VER140}

{$ifdef VER150}
  {$define D7} // Delphi 7
{$endif VER150}

{$ifdef VER170}
  {$define D9} // Delphi 9 (2005)
{$endif VER170}

{$ifdef VER180}
  {$define D10} // Delphi 10 (2006) or Delphi 11 (2007)
{$endif VER180}

{$ifdef D6}
  {$define D6UP} // Delphi 6 or superior
  {$undef D6}
{$endif D6}

{$ifdef C6}
  {$define D6UP} // Delphi 6 or superior
{$endif C6}
{$ifdef D7}
  {$define D6UP} // Delphi 6 or superior
  {$define D7UP} // Delphi 7 or superior
  {$undef D7}
{$endif D7}

{$ifdef D9}
  {$define D6UP} // Delphi 6 or superior
  {$define D7UP} // Delphi 7 or superior
  {$define D9UP} // Delphi 9 or superior
  {$undef D9}
{$endif D9}

{$ifdef D10}
  {$define D6UP}  // Delphi  6 or superior
  {$define D7UP}  // Delphi  7 or superior
  {$define D9UP}  // Delphi  9 or superior
  {$define D10UP} // Delphi 10 or superior
  {$undef D10}
{$endif D10}