unit Location;
//******************************************************************************
// Hlavni trida, ktera obsahuje pozici grafickeho objektu
//******************************************************************************

interface
type
  TLocation = class
  protected
    X,Y : Integer;
  public
    constructor Create(InitX, InitY: Integer);

    function GetX: Integer;
    function GetY: Integer;
  end;

implementation

//******************************************************************************
//
//******************************************************************************
constructor TLocation.Create(InitX, InitY: Integer);
begin
  X := InitX;
  Y := InitY;
end;

//******************************************************************************
//
//******************************************************************************
function TLocation.GetX: Integer;
begin
  GetX := X;
end;

//******************************************************************************
//
//******************************************************************************
function TLocation.GetY: Integer;
begin
  GetY := Y;
end;

end.