anchor.diff:                         aFont: TKMFont; aTextAlign: TKMTextAlign; aPaintLayer: Integer = 0); overload;
       constructor Create(aParent: TKMPanel; aLeft,aTop: Integer; const aCaption: UnicodeString; aFont: TKMFont;
                          aTextAlign: TKMTextAlign; aPaintLayer: Integer = 0); overload;
  -    function HitTest(X, Y: Integer; aIncludeDisabled: Boolean = False): Boolean; override;
  +    function HitTest(X, Y: Integer; aIncludeDisabled: Boolean = False; aIncludeNotHitable: Boolean = False): Boolean; override;
       procedure SetColor(aColor: Cardinal);
       property AutoWrap: Boolean read fAutoWrap write SetAutoWrap;  //Whether to automatically wrap text within given text area width
       property AutoCut: Boolean read fAutoCut write SetAutoCut;     //Whether to automatically cut text within given text area size
  
positive.code: end;
  
  
  function TKMEdit.HitTest(X, Y: Integer; aIncludeDisabled: 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;
  
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;
  
  