anchor.diff:      Tag2: Integer; //Some tag which can be used for various needs
   
       constructor Create(aParent: TKMPanel; aLeft, aTop, aWidth, aHeight: Integer; aPaintLayer: Integer = 0);
  -    function HitTest(X, Y: Integer; aIncludeDisabled: Boolean = False): Boolean; virtual;
  +    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;
  
positive.code:     property Text: UnicodeString read fText write SetText;
      procedure UpdateText(const aText: UnicodeString);
  
      function HitTest(X,Y: Integer; aIncludeDisabled: Boolean=false): Boolean; override;
      procedure Paint; override;
    end;
  
  
negative.code:                        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; 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
  