anchor.diff:      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;
  
positive.code:   FShowHint       := False;
    FParentShowHint := True;
    FBackgroundColor := clWindowBackground;
    FTextColor  := clText1;
  
    inherited Create(AOwner);
  
  
negative.code:     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;
  