anchor.diff:  
       procedure DebugKeyDown(Key: Word; Shift: TShiftState);
       procedure SetFocusable(const aValue: Boolean);
  +    function GetMasterPanel: TKMPanel;
     protected
       procedure SetLeft(aValue: Integer); virtual;
       procedure SetTop(aValue: Integer); virtual;
  
positive.code:     function HitTest(X, Y: Integer; aIncludeDisabled: Boolean = False; aIncludeNotHitable: Boolean = False): Boolean; virtual;
  
      property Parent: TKMPanel read fParent;
      property AbsLeft: Integer read GetAbsLeft write SetAbsLeft;
      property AbsRight: Integer read GetAbsRight;
      property AbsTop: Integer read GetAbsTop write SetAbsTop;
  
negative.code: end;
  
  
  function TKMControl.GetMasterPanel: TKMPanel;
  begin
    Result := Parent.MasterControl.MasterPanel;
  end;
  
  
  {Shortcuts to Controls properties}
  procedure TKMControl.SetAbsLeft(aValue: Integer);
  begin
  