{
  Tässä on taSimuObjectissa kerran kokeiluna ollut
  Nurkkien asetus.   Toimii paremmin Paint-viestin yhteydessä
  tehtävällä  tarkastelulle?
}
{ $define Left}

{$ifdef Left}
    procedure SetLeft(ALeft:integer);         virtual;
    function GetLeft:integer;                 virtual;
    procedure SetTop(ATop:integer);           virtual;
    function GetTop:integer;                  virtual;
    procedure SetWidth(AWidth:integer);       virtual;
    function GetWidth:integer;                virtual;
    procedure SetHeight(AHeight:integer);     virtual;
    function GetHeight:integer;               virtual;
{$endif}

{$ifdef Left}
{------------------------------------------------------------------------------}
procedure TaSimuObject.SetLeft(ALeft:integer);
begin
  Fx := UpScaleX(ALeft);
  inherited Left := ALeft;
  ShowMessage(Format('%g<-%d',[Fx,ALeft]));
end;

{------------------------------------------------------------------------------}
function TaSimuObject.GetLeft:integer;
begin
  Result := DownScaleX(Fx);
end;

{------------------------------------------------------------------------------}

procedure TaSimuObject.SetTop(ATop:integer);
begin
  Fy := UpScaleY(ATop);
  inherited Top := ATop;
end;

{------------------------------------------------------------------------------}
function TaSimuObject.GetTop:integer;
begin
  Result := DownScaleY(Fy);
end;

{------------------------------------------------------------------------------}
procedure TaSimuObject.SetWidth(AWidth:integer);
begin
  FXLen := UpScaleDX(AWidth);
  inherited Width := AWidth;
end;

{------------------------------------------------------------------------------}
function TaSimuObject.GetWidth:integer;
begin
  Result := DownScale(FXLen);
end;

{------------------------------------------------------------------------------}
procedure TaSimuObject.SetHeight(AHeight:integer);
begin
  YLen := UpScaleDY(AHeight);
  inherited Height := AHeight;
end;

{------------------------------------------------------------------------------}
function TaSimuObject.GetHeight:integer;
begin
  Result := DownScale(FYLen);
end;
{$endif}