anchor.diff:      FOnResize: TNotifyEvent;
       FOnScreen: boolean;
       FOnShowHint: THintEvent;
  +    FDragStartPos: TfpgPoint;
  +    FDragActive: boolean;
       procedure   SetActiveWidget(const AValue: TfpgWidget);
       function    IsShowHintStored: boolean;
       procedure   SetFormDesigner(const AValue: TObject);
  
positive.code:     FOnDragDrop: TfpgDragDropEvent;
      FOnDragEnter: TfpgDragEnterEvent;
      FOnDragLeave: TNotifyEvent;
      FOnEnter: TNotifyEvent;
      FOnExit: TNotifyEvent;
      FOnMouseDown: TMouseButtonEvent;
  
negative.code:   FBackgroundColor := clWindowBackground;
    FTextColor      := clText1;
    FAcceptDrops    := False;
    FDragActive     := False;
  
    inherited Create(AOwner);
  
  