ah_def.inc

来自「一个STRINGGRID 控件,比原DELPHI自带的STRINGGRID 功能」· INC 代码 · 共 94 行

(*$define iso_latin1 *)
(*@/// Compiler switches for version checks *)
(*$ifdef ver140 *)
  (*$define delphi_6 *)
(*$else *)
  (*$ifdef ver130 *)
    (*$define delphi_5 *)
  (*$else *)
    (*$ifdef ver120 *)
      (*$define delphi_4 *)
    (*$else *)
      (*$ifdef ver110 *)
        (*$define builder_3 *)
      (*$else *)
        (*$ifdef ver100 *)
          (*$define delphi_3 *)
        (*$else *)
          (*$ifdef ver95 *)
            (*$define builder_1 *)
          (*$endif *)
          (*$ifdef ver90 *)
            (*$define delphi_2 *)
          (*$else *)
            (*$ifdef ver80 *)
              (*$define Delphi_1 *)
            (*$else
              (*$define bp_7 *)
            (*$endif *)
          (*$endif *)
        (*$endif *)
      (*$endif *)
    (*$endif *)
  (*$endif *)
(*$endif *)

(*$ifdef delphi_1 *)
  (*$define delphi_ge_1 *)
(*$endif *)
(*$ifdef delphi_2 *)
  (*$define delphi_gt_1 *)
  (*$define delphi_ge_1 *)
  (*$define delphi_ge_2 *)
(*$endif *)
(*$ifdef delphi_3 *)
  (*$define delphi_gt_2 *)
  (*$define delphi_gt_1 *)
  (*$define delphi_ge_1 *)
  (*$define delphi_ge_2 *)
  (*$define delphi_ge_3 *)
(*$endif *)
(*$ifdef delphi_4 *)
  (*$define delphi_gt_3 *)
  (*$define delphi_gt_2 *)
  (*$define delphi_gt_1 *)
  (*$define delphi_ge_1 *)
  (*$define delphi_ge_2 *)
  (*$define delphi_ge_3 *)
  (*$define delphi_ge_4 *)
(*$endif *)
(*$ifdef delphi_5 *)
  (*$define delphi_gt_3 *)
  (*$define delphi_gt_2 *)
  (*$define delphi_gt_1 *)
  (*$define delphi_ge_1 *)
  (*$define delphi_ge_2 *)
  (*$define delphi_ge_3 *)
  (*$define delphi_ge_4 *)
  (*$define delphi_ge_5 *)
(*$endif *)

(*$ifdef delphi_6 *)
  (*$define delphi_gt_4 *)
  (*$define delphi_gt_3 *)
  (*$define delphi_gt_2 *)
  (*$define delphi_gt_1 *)
  (*$define delphi_ge_1 *)
  (*$define delphi_ge_2 *)
  (*$define delphi_ge_3 *)
  (*$define delphi_ge_4 *)
  (*$define delphi_ge_5 *)
  (*$define delphi_ge_6 *)
(*$endif *)

{ shortstring defined  :  use string in VCL methods }
{             undefined:  use ansistring instead    }

(*$ifdef delphi_1 *)
  (*$define shortstring *)
(*$else *)
  { The Delphi2/3 VCL only compiles with huge strings }
  (*$undef shortstring *)
(*$endif *)
(*@\\\*)