anchor.diff:      FBackgroundColor: TfpgColor;
       FTextColor: TfpgColor;
       FIsContainer: Boolean;
  +    procedure   SetAcceptDrops(const AValue: boolean); virtual;
       function    GetOnShowHint: THintEvent; virtual;
       procedure   SetOnShowHint(const AValue: THintEvent); virtual;
       procedure   SetBackgroundColor(const AValue: TfpgColor); virtual;
  
positive.code:   FShowHint       := False;
    FParentShowHint := True;
    FBackgroundColor := clWindowBackground;
    FTextColor  := clText1;
  
    inherited Create(AOwner);
  
  
negative.code: 
    TfpgWidget = class(TfpgWindow)
    private
      FAcceptDrops: boolean;
      FAlignRect: TfpgRect;
      FOnClick: TNotifyEvent;
      FOnDoubleClick: TMouseButtonEvent;
  