anchor.diff:      procedure   Invalidate; // double check this works as developers expect????
       property    FormDesigner: TObject read FFormDesigner write SetFormDesigner;
       property    Parent: TfpgWidget read GetParent write SetParent;
  +    property    AcceptDrops: boolean read FAcceptDrops write SetAcceptDrops;
       property    ActiveWidget: TfpgWidget read FActiveWidget write SetActiveWidget;
       property    IsContainer: Boolean read FIsContainer;
       property    Visible: boolean read FVisible write SetVisible default True;
  
positive.code:     FBackgroundColor: TfpgColor;
      FTextColor: TfpgColor;
      FIsContainer: Boolean;
      function    GetOnShowHint: THintEvent; virtual;
      procedure   SetOnShowHint(const AValue: THintEvent); virtual;
      procedure   SetBackgroundColor(const AValue: TfpgColor); virtual;
  
negative.code:     FActiveWidget.HandleSetFocus;
  end;
  
  procedure TfpgWidget.SetAcceptDrops(const AValue: boolean);
  begin
    if FAcceptDrops = AValue then
      exit;
    FAcceptDrops := AValue;
  end;
  
  function TfpgWidget.GetHint: TfpgString;
  begin
    Result := FHint;
  