anchor.diff:    OnHide := @FormHide;
   end;
   
  +destructor TfpgHintWindow.Destroy;
  +begin
  +  T_Chrono.Free;
  +  FFont.Free;
  +  inherited Destroy;
  +end;
  +
   procedure TfpgHintWindow.SetPosition(aleft, atop, awidth, aheight: TfpgCoord);
   begin
     inherited SetPosition(aleft, atop, awidth, aheight);
  
positive.code:     procedure   HandleShow; override;
    public
      constructor Create(AOwner: TComponent); override;
      procedure   SetPosition(aleft, atop, awidth, aheight: TfpgCoord); override;
      property    Font: TfpgFont read FFont;
      property    Text: TfpgString read GetText write SetText;
  
negative.code:   BackgroundColor := clGray;
  end;
  
  initialization
  finalization
    FreeAndNil(uShadowForm);
  
  end.
  
  