anchor.diff:  
       Enabled: boolean;
       Visible: boolean;
  -    HasFocus: boolean;
  +    HasFocus: boolean; //Occurs when cursor recieves focus and remains till new Ctrl HasFocus
   
       Tag: integer; //Some tag which can be used for various needs
       Hint: string; //Text that shows up when cursor is over that control, mainly for Buttons
  
positive.code: 
  function TKMControl.GetHeight: Integer;
  begin
    Result := Round(fHeight * Scale);
  end;
  
  function TKMControl.GetLeft: Integer;
  begin
    Result := Round(fLeft * Scale);
    if Parent <> nil then Result := Result + Parent.GetLeft;
  end;
  
  function TKMControl.GetTop: Integer;
  begin
    Result := Round(fTop * Scale);
    if Parent <> nil then Result := Result + Parent.GetTop;
  end;
  
  function TKMControl.GetWidth: Integer;
  begin
    Result := Round(fWidth * Scale);
  end;
  
  procedure TKMControl.Disable; begin Enabled := false; end;
  
negative.code:     fTop: Integer;
      fWidth: Integer;
      fHeight: Integer;
      fScale: Single;
      function GetHeight: Integer;
      function GetLeft: Integer;
      function GetTop: Integer;
  