anchor.diff:      function  Right: TfpgCoord;
       procedure SetBottom(Value: TfpgCoord);
       procedure SetRight(Value: TfpgCoord);
  +  end;
  +
  +
  +  TfpgPoint = object  // not class for static allocations
  +    X: integer;
  +    Y: integer;
  +    procedure SetPoint(AX, AY: integer);
  +    function  ManhattanLength: integer;      { See URL for explanation http://en.wikipedia.org/wiki/Taxicab_geometry }
  +    function  ManhattanLength(const PointB: TfpgPoint): integer;
  +  end;
  +
  +
  +  TfpgSize = object  // not class for static allocations
  +    W: integer;
  +    H: integer;
  +    procedure SetSize(AWidth, AHeight: integer);
     end;
   
   
  
positive.code:   Width := Value - Left + 1;
  end;
  
  { TfpgWindowBase }
  
  procedure TfpgWindowBase.SetMouseCursor(const AValue: TMouseCursor);
  
negative.code: 
  const
    UserNamedColorStart   = 128;
    {$I predefinedcolors.inc}
  
  type
  