Macapi.Notifications

Macapi.Notifications

Puente de notificación de macOS simplificado para Delphi #DelphiCocoaFlavored

Lily Stilson // 2020

---

Uso

Esta unidad está diseñada para funcionar con RAD Studio 10.4. No funcionará en versiones anteriores debido a un error en Macapi.Foundation. Si su aplicación no está firmada con el Certificado de desarrollador de Apple, a partir de macOS 10.15 esta unidad funcionará, pero no enviará ninguna notificación debido a limitaciones en el sistema operativo.

ProgramarNotificación

Programación de notificaciones simplificada. Activa la notificación después de una hora programada;

 procedure ScheduleNotification ( const ATitle, ASubtitile, AInformation: String; 
                               const ADeliveryDate: TDateTime; 
                               const UseTimeZone: boolean = True);

• ATitle : título de la notificación (se utilizará el nombre de la aplicación, si está vacío)
• ASubtitile - Subtítulo de notificación (opcional)
• AInformación - Organismo de notificación (Opcional)
• ADeliveryDate - Fecha de entrega de la notificación
• UseTimeZone : use la zona horaria actual de la PC para activar la notificación (predeterminado = verdadero)

PresenteNotificación

Presentación de notificaciones simplificada. Activa la notificación inmediatamente.

 procedure PresentNotification ( const ATitle, ASubtitile, AInformation: String);

• ATitle : título de la notificación (se utilizará el nombre de la aplicación, si está vacío)
• ASubtitile - Subtítulo de notificación (opcional)
• AInformación - Organismo de notificación (Opcional)

Ejemplos

 // SceduleNotification // Form contains TButton.
procedure TNSNotificationsTestForm.SceduleNotificationButtonClick (Sender: TObject);
begin
  SceduleNotification( ' Notification Title ' , ' Foo Bar ' , ' Very Informative. Such Notification! ' , 
                      Now + EncodeTime( 0 , 0 , 5 , 0 ));
end ;

 // NSSavePanel // Form contains TButton and TEdit
procedure TNSNotificationsTestForm.PresentNotificationButtonClick (Sender: TObject);
begin
  PresentNotification( ' Notification Title ' , ' Foo Bar ' , ' Very Informative. Such Notification! ' );
end ;

Hoja de ruta

• Controlador de clics de notificación