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:     if Components[n] is TfpgWidget then
      begin
        w := TfpgWidget(Components[n]);
  
        if w.Visible and w.Enabled and w.Focusable then
          case direction of
  
negative.code:     procedure   SetVisible(const AValue: boolean); virtual;
      procedure   SetShowHint(const AValue: boolean); virtual;
      procedure   SetParentShowHint(const AValue: boolean); virtual;
      function    GetHint: TfpgString; virtual;
      procedure   SetHint(const AValue: TfpgString); virtual;
      procedure   DoUpdateWindowPosition; override;
      procedure   DoAlign(AAlign: TAlign);
      procedure   DoResize;
      procedure   DoShowHint(var AHint: TfpgString);
      procedure   HandlePaint; virtual;
      procedure   HandleKeyChar(var AText: TfpgChar; var shiftstate: TShiftState; var consumed: boolean); virtual;
      procedure   HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); virtual;
  