unit _cv;
// global constant and variable and utils
interface
uses SysUtils, Windows, Registry, Graphics;

var
  crWindowZoomDeltaA   : extended = 0.5;
  crWindowZoomDefaultA : extended;
  crWindowZoomMinEditA : extended;

  crWindowZoomDeltaB   : extended = 0.5;
  crWindowZoomDefaultB : extended;
  crWindowZoomMinEditB : extended;

  crWindowZoomDeltaC   : extended = 0.5;

  ciObjectW     : extended = 28;
  ciObjectH     : extended = 6;
  ciObjectType  : integer  = 0;
  ciObjectState : integer  = 0;

  ciZoneW     : integer    = 20;
  ciZoneH     : integer    = 20;
  ciZoneType  : integer    = 0;
  ciZoneState : integer    = 0;
  ciZoneCount : integer    = 3;

  aclStateColors  : array[0..9] of TColor =
    (clLime, clYellow, clRed,     clBlue,   clGray,
     clAqua, clWhite,  clFuchsia, clPurple, clGreen);

//===============================================================
implementation
end.
