anchor.diff:    WindowPosition := wpUser;
     WindowType := wtPopup;
     Sizeable := False;
  -  BackgroundColor:= clBlack;
  +  BackgroundColor:= clHintWindow; //clBlack;  // This becomes the hint border so don't set to clHintWindow
     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;
  +  FTime := 5000; // show hint for 5 seconds then close
  +  FHintTextRec.SetRect(FBorder, FBorder, Width-(FBorder*2), Height-(FBorder*2));
     T_Chrono := TfpgTimer.Create(FTime);
     T_Chrono.OnTimer := @T_ChronoFini;
     uShadowForm:= TfpgHintShadow.Create(nil);
  +  OnClick := @T_ChronoFini;
     OnShow := @FormShow;
     OnHide := @FormHide;
   end;
  
positive.code:   SysUtils,
    fpg_base,
    fpg_main,
    fpg_form,
    fpg_label;
    
  type
    TfpgHintWindow = class(TfpgForm)
    private
      FFont: TfpgFont;
      FTime: Integer;
      FShadow: Integer;
      FBorder: Integer;
      FMargin: Integer;
      L_Hint: TfpgLabel;
      T_Chrono: TfpgTimer;
      procedure   FormShow(Sender: TObject);
      procedure   FormHide(Sender: TObject);
      function    GetText: TfpgString;
  
negative.code: 
  
  implementation
  
  uses
    fpg_constants;
  
  
  type
    TfpgHintShadow = class(TfpgForm)
  