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:       exit;
    end;
    applicationToaster.FTimer.Interval:= aDuration;
    applicationToaster.Title:= '';
    applicationToaster.Text:= aText;
    applicationToaster.FTimer.Enabled:= true;
    applicationToaster.ShowAtPos((Screen.Width - applicationToaster.vNotifierForm.Width) div 2, Screen.Height - 200);
  end;
  
  
  
negative.code: 
  destructor TmToast.Destroy;
  begin
    FNotifierForm.Hide;
    FNotifierForm.Free;
  
    inherited Destroy;
  end;
  
  procedure TmToast.Hide;
  begin
    FNotifierForm.Hide;
  end;
  
  procedure TmToast.Show;
  begin
    FNotifierForm.Show;
  end;
  
  procedure TmToast.ShowAtPos(x: Integer; y: Integer);
  begin
    if x + FNotifierForm.Width > Screen.Width then
    begin
      FNotifierForm.left := x - FNotifierForm.Width;
      if FNotifierForm.Left < 0 then FNotifierForm.Left := 0;
    end
    else
      FNotifierForm.left := x;
  
    if y + FNotifierForm.Height > Screen.Height then
    begin
      FNotifierForm.top := y - FNotifierForm.Height;
      if FNotifierForm.top < 0 then FNotifierForm.top := 0;
    end
    else
      FNotifierForm.top := y;
  
    FNotifierForm.Show;
  end;
  
  class procedure TmToast.ShowText(const aText: String; const aDuration: integer = 1500);
  