anchor.diff:    FFont.Free;
     inherited Destroy;
     uShadowForm.Free;
  -end;
  -
  -procedure TfpgHintWindow.SetPosition(aleft, atop, awidth, aheight: TfpgCoord);
  -begin
  -  inherited SetPosition(aleft, atop, awidth, aheight);
  -  L_Hint.SetPosition(Border, Border, Width - (Border * 2), Height - (Border * 2));
   end;
   
   constructor TfpgHintShadow.Create(AOwner: TComponent);
  
positive.code: 
  
  implementation
  
  type
    TfpgHintShadow = class(TfpgForm)
  
negative.code: 
  function TfpgHintWindow.GetText: TfpgString;
  begin
    Result := FText;
  end;
  
  procedure TfpgHintWindow.SetText(const AValue: TfpgString);
  begin
    FText := AValue;
  end;
  
  procedure TfpgHintWindow.T_ChronoFini(Sender: TObject);
  begin
    {$IFDEF DEBUG}
    writeln('DEBUG:  TfpgHintWindow.T_ChronoFini timer fired');
    {$ENDIF}
    Hide;
  end;
  