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