anchor.diff:    TFocusSearchDirection = (fsdFirst, fsdLast, fsdNext, fsdPrev);
   
     THintEvent = procedure(Sender: TObject; var AHint: TfpgString) of object;
  +
  +  TfpgDragEnterEvent = procedure(Sender, Source: TObject; AMimeList: TStringList; var AMimeChoice: TfpgString; var ADropAction: TfpgDropAction; var Accept: Boolean) of object;
   
   
     TfpgWidget = class(TfpgWindow)
  
positive.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;
    end;
  
  
  
negative.code:     FAlignRect: TfpgRect;
      FOnClick: TNotifyEvent;
      FOnDoubleClick: TMouseButtonEvent;
      FOnDragEnter: TfpgDragEnterEvent;
      FOnEnter: TNotifyEvent;
      FOnExit: TNotifyEvent;
      FOnMouseDown: TMouseButtonEvent;
  