Macapi.Notifications
v1.0.0
Ponte de notificação simplificada do macOS para Delphi #DelphiCocoaFlavored
Lírio Stilson // 2020
Esta unidade foi projetada para funcionar com RAD Studio 10.4. Não funcionará em versões mais antigas devido a um bug no Macapi.Foundation. Se o seu aplicativo não foi assinado com o Apple Developer Certificate, a partir do macOS 10.15 esta unidade funcionará, mas não chamará nenhuma notificação devido a limitações no sistema operacional.
Agendamento de notificação simplificado. Dispara notificação após horário agendado;
procedure ScheduleNotification ( const ATitle, ASubtitile, AInformation: String;
const ADeliveryDate: TDateTime;
const UseTimeZone: boolean = True);
Apresentação de notificação simplificada. Dispara notificação imediatamente.
procedure PresentNotification ( const ATitle, ASubtitile, AInformation: String);
// 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 ;