anchor.diff:      property    OnChange;
       property    OnEnter;
       property    OnExit;
  +    property    OnKeyChar;
       property    OnKeyPress;
       property    OnMouseEnter;
       property    OnMouseExit;
  
positive.code:   s: TfpgChar;
    prevval: string;
  begin
    prevval   := Text;
    s         := AText;
  
    if (not consumed) and (not ReadOnly) then
    begin
      // Handle only printable characters
      // UTF-8 characters beyond ANSI range are supposed to be printable
  
negative.code:     property    OnDragStartDetected;
      property    OnEnter;
      property    OnExit;
      property    OnKeyChar;
      property    OnKeyPress;
      property    OnMouseEnter;
      property    OnMouseExit;
  