anchor.diff:      FOnResize(Self);
   end;
   
  +procedure TfpgWidget.DoShowHint(var AHint: TfpgString);
  +begin
  +  AHint := Hint;
  +  if Assigned(FOnShowHint) then
  +  begin
  +    FOnShowHint(self, AHint);
  +  end;
  +end;
  +
   procedure TfpgWidget.SetPosition(aleft, atop, awidth, aheight: TfpgCoord);
   begin
     MoveAndResize(aleft, atop, awidth, aheight);
  
positive.code:                 lasttaborder := w.TabOrder;
                end;
  
          end;
      end;
  end;
  
  
negative.code:     property    Focused: boolean read FFocused write FFocused default False;
      property    Anchors: TAnchors read FAnchors write FAnchors;
      property    Align: TAlign read FAlign write FAlign;
      property    Hint: TfpgString read GetHint write SetHint;
      property    ShowHint: boolean read FShowHint write SetShowHint stored IsShowHintStored;
      property    ParentShowHint: boolean read FParentShowHint write SetParentShowHint default True;
      property    BackgroundColor: TfpgColor read FBackgroundColor write SetBackgroundColor default clWindowBackground;
  