abks.inc

来自「著名的虚拟仪表控件,包含全部源码, 可以在,delphi2007 下安装运行」· INC 代码 · 共 62 行

{******************************************************************************}
{ Abakus VCL                                                                   }
{                 Abakus Include-File                                          }
{                                                                              }
{******************************************************************************}
{        e-Mail: [e-mail] , Web: http://www.abaecker.com            }
{------------------------------------------------------------------------------}
{          (c) Copyright 1998..2001 A.Baecker, All rights Reserved             }
{******************************************************************************}


{$DEFINE CEnabled}   { TControl get/set Enabled only CB>3 and D>3 }
{$DEFINE V4UP}       { Delphi + CBuilder >= V4 }

{$IFDEF BCB}

  {$ObjExportAll On}

  {$IFDEF VER110} { Borland C++Builder 3.x }
    {$DEFINE CB3} 
    {$UNDEF CEnabled}
    {$UNDEF V4UP}
  {$ENDIF}

  {$IFDEF VER125} { Borland C++Builder 4.x }
    {$DEFINE CB4}
  {$ENDIF}

  {$IFDEF VER130} { Borland C++Builder 5.x }
    {$DEFINE CB5}
    {$DEFINE V5up}  { needed e.g.: for OnContextPopup }
  {$ENDIF}

{$ELSE}

  {$IFDEF VER100} { Borland Delphi 3.x }
    {$DEFINE D3}
    {$UNDEF CEnabled}	
    {$UNDEF V4UP}
  {$ENDIF}

  {$IFDEF VER120} { Borland Delphi 4.x }
    {$DEFINE D4}
  {$ENDIF}

  {$IFDEF VER130} { Borland Delphi 5.x }
    {$DEFINE D5}
    {$DEFINE V5up} { needed e.g.: for OnContextPopup }
  {$ENDIF}

  {$IFDEF VER140} { Borland Delphi 6.x }
    {$DEFINE D6}
    {$DEFINE V5up} { needed e.g.: for OnContextPopup }
  {$ENDIF}

  //  LINUX

{$ENDIF}