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:     procedure SetTopF(aValue: Single);
      procedure SetLeftF(aValue: Single);
      function GetControlRect: TKMRect;
      function GetIsFocused: Boolean;
      function GetIsClickable: Boolean;
  
  
negative.code:     Top := Round((aValue - Parent.AbsTop) / Parent.Scale);
  end;
  
  //GetAbsCoordinates
  function TKMControl.GetAbsBottom: Integer;
  begin
    Result := GetAbsTop + GetHeight;
  