gsdef-bak.inc

来自「本系统前端界面采用WINDOWS 窗口风格」· INC 代码 · 共 56 行

{$B-} {- Complete Boolean Evaluation }
{$R-} {- Range-Checking }
{$T-} {- Typed @ operator }
{$X+} {- Extended syntax }
{$P+} {- Open string params }
{$J+} {- Writeable structured consts }
{$H+} {- Use long strings by default }
{$Q-} { Overflow checking }

{$IFDEF VER120} { Delphi 4.0 }
  {$DEFINE D4}
{$ENDIF}

{$IFDEF VER125} { Borland C++ Builder 4.0 }
  {$DEFINE D4}
  {$ObjExportAll On}
{$ENDIF}

{$IFDEF VER130} { Delphi 5.0 }
  {$DEFINE D5}
{$ENDIF}

{$IFDEF VER140} { Delphi 6.0 }
  {$DEFINE D6}
{$ENDIF}

{$IFDEF D4}
  {$DEFINE D4MAX}
  {$DEFINE D5MAX}
  {$DEFINE D6MAX}
  {$DEFINE D4MIN}
{$ENDIF}

{$IFDEF D5}
  {$DEFINE D5MAX}
  {$DEFINE D6MAX}
  {$DEFINE D4MIN}
  {$DEFINE D5MIN}
{$ENDIF}

{$IFDEF D6}
  {$DEFINE D6MAX}
  {$DEFINE D4MIN}
  {$DEFINE D5MIN}
  {$DEFINE D6MIN}
{$ENDIF}
 
{
   D4MAX    D4            - Delphi 4 or less
   D5MAX    D4  D5        - Delphi 5 or less
   D6MAX    D4  D5  D6    - Delphi 6 or less
   D4MIN    D4  D5  D6    - Delphi 4 or more
   D5MIN        D5  D6    - Delphi 5 or more
   D6MIN            D6    - Delphi 6 or more
}