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:           if Result <> nil then
              Exit;
          end;
          if Child.HitTest(aX, aY, aIncludeDisabled) then
          begin
            Result := Child;
            Exit;
  
negative.code: 
      property OnHint: TNotifyEvent write fOnHint;
  
      function HitControl(X,Y: Integer; aIncludeDisabled: Boolean = False; aIncludeNotHitable: Boolean = False): TKMControl;
  
      function KeyDown    (Key: Word; Shift: TShiftState): Boolean;
      procedure KeyPress  (Key: Char);
  