anchor.diff:      Top := Round((aValue - Parent.AbsTop) / Parent.Scale);
   end;
   
  +//GetAbsCoordinates
   function TKMControl.GetAbsBottom: Integer;
   begin
     Result := GetAbsTop + GetHeight;
  
positive.code: ﻿unit KM_Controls;
  {$I KaM_Remake.inc}
  interface
  uses
  
negative.code: function TKMControl.GetControlRect: TKMRect;
  begin
    Result := KMRect(Left, Top, Left + Width, Top + Height);
  end;
  
  
  function TKMControl.GetControlAbsRect: TKMRect;
  begin
    Result := KMRect(AbsLeft, AbsTop, AbsRight, AbsBottom);
  end;
  
  
  