anchor.diff:      property AbsRight: Integer read GetAbsRight;
       property AbsTop: Integer read GetAbsTop write SetAbsTop;
       property AbsBottom: Integer read GetAbsBottom;
  +
       property Left: Integer read GetLeft write SetLeft;
       property Right: Integer read GetRight;
       property Top: Integer read GetTop write SetTop;
  
positive.code: function TKMControl.GetControlRect: TKMRect;
  begin
    Result := KMRect(Left, Top, Left + Width, Top + Height);
  end;
  
  
  
negative.code:   else
      Result := Round(fTop * Parent.Scale) + Parent.GetAbsTop;
  end;
  //-------------------------------
  
  function TKMControl.GetLeft: Integer;
  begin
  