anchor.diff:  // This software is distributed without any warranty.
   //
   // @author Domenico Mammola (mimmo71@gmail.com - www.mammola.net)
  +//
  +// CREDITS:
  +// This code was adapted from PopupNotifier.TNotifierForm
  +// of LCL
  +//
   unit mToast;
   
   {$IFDEF FPC}
  
positive.code: 
  destructor TmToast.Destroy;
  begin
    inherited Destroy;
  end;
  
  class procedure TmToast.ShowText(const aText: String; const aDuration: integer = 1500);
  
negative.code:   Self.Hide;
  end;
  
  procedure TmToast.SetVisible(AValue: Boolean);
  begin
    FNotifierForm.Visible := AValue;
  end;
  
  constructor TmToast.Create(AOwner: TComponent);
  begin
    inherited Create(AOwner);
    FNotifierForm := TmToastForm.Create(nil);
    FNotifierForm.Visible := False;
  
    FTimer := TTimer.Create(Self);
    FTimer.Interval:= 500;
    FTimer.OnTimer:= Self.OnTimer;
  