anchor.diff:    BackgroundColor := clGray;
   end;
   
  +initialization
  +finalization
  +  FreeAndNil(uShadowForm);
  +
   end.
   
  
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:   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);
  