anchor.diff:  end;
   
   
  -function TKMEdit.HitTest(X, Y: Integer; aIncludeDisabled: Boolean = False): Boolean;
  +function TKMEdit.HitTest(X, Y: Integer; aIncludeDisabled: Boolean = False; aIncludeNotHitable: Boolean = False): Boolean;
   begin
     //When control is read-only we don't want to recieve Focus event
     Result := inherited HitTest(X,Y) and not ReadOnly;
  
positive.code: 
      property OnHint: TNotifyEvent write fOnHint;
  
      function HitControl(X,Y: Integer; aIncludeDisabled: Boolean=false): TKMControl;
  
      function KeyDown    (Key: Word; Shift: TShiftState): Boolean;
      procedure KeyPress  (Key: Char);
  
negative.code:     property Text: UnicodeString read fText write SetText;
      procedure UpdateText(const aText: UnicodeString);
  
      function HitTest(X, Y: Integer; aIncludeDisabled: Boolean = False; aIncludeNotHitable: Boolean = False): Boolean; override;
      procedure Paint; override;
    end;
  
  