anchor.diff:      FAlignRect: TfpgRect;
       FOnClick: TNotifyEvent;
       FOnDoubleClick: TMouseButtonEvent;
  +    FOnDragEnter: TfpgDragEnterEvent;
       FOnEnter: TNotifyEvent;
       FOnExit: TNotifyEvent;
       FOnMouseDown: TMouseButtonEvent;
  
positive.code:   TFocusSearchDirection = (fsdFirst, fsdLast, fsdNext, fsdPrev);
  
    THintEvent = procedure(Sender: TObject; var AHint: TfpgString) of object;
  
  
    TfpgWidget = class(TfpgWindow)
  
negative.code:     property    ParentShowHint: boolean read FParentShowHint write SetParentShowHint default True;
      property    BackgroundColor: TfpgColor read FBackgroundColor write SetBackgroundColor default clWindowBackground;
      property    TextColor: TfpgColor read FTextColor write SetTextColor default clText1;
      property    OnDragEnter: TfpgDragEnterEvent read FOnDragEnter write FOnDragEnter;
    end;
  
  
  