anchor.diff:    end;
   end;
   
  -procedure TfpgHintWindow.SetLTextColor(AValue: Tfpgcolor);
  -begin
  -  if L_Hint.TextColor <> AValue then
  -    L_Hint.TextColor := AValue
  -end;
  -
  -procedure TfpgHintWindow.SetLBackgroundColor(AValue: Tfpgcolor);
  -begin
  -  if L_Hint.BackgroundColor <> AValue then
  -    L_Hint.BackgroundColor := AValue
  -end;
  -
   procedure TfpgHintWindow.SetShadowColor(AValue: Tfpgcolor);
   begin
     if uShadowForm.BackgroundColor <> AValue then
       uShadowForm.BackgroundColor := AValue;
  +end;
  +
  +function TfpgHintWindow.GetFontDesc: string;
  +begin
  +  Result := FFont.FontDesc;
  +end;
  +
  +procedure TfpgHintWindow.SetFontDesc(const AValue: string);
  +begin
  +  FFont.Free;
  +  FFont := fpgGetFont(AValue);
   end;
   
   procedure TfpgHintWindow.HandleShow;
  
positive.code:   WindowPosition := wpUser;
    WindowType := wtPopup;
    Sizeable := False;
    BackgroundColor:= clBlack;
    FFont := fpgGetFont('#Label1');
    FMargin := 3;
    FBorder := 1;
    FShadow := 0; // no shadow by default
    FTime := 5000;
    L_Hint := CreateLabel(Self, FBorder, FBorder, '', Width - FBorder * 2, Height - FBorder * 2, taCenter, tlCenter);
    L_Hint.BackgroundColor := clHintWindow;
    L_Hint.OnClick := @T_ChronoFini;
    T_Chrono := TfpgTimer.Create(FTime);
    T_Chrono.OnTimer := @T_ChronoFini;
    uShadowForm:= TfpgHintShadow.Create(nil);
    OnShow := @FormShow;
    OnHide := @FormHide;
  end;
  
negative.code:   FFont.Free;
    inherited Destroy;
    uShadowForm.Free;
  end;
  
  constructor TfpgHintShadow.Create(AOwner: TComponent);
  