Macapi.Notifications
v1.0.0
Упрощенный мост уведомлений macOS для Delphi #DelphiCocoaFlavored
Лили Стилсон // 2020
Это устройство предназначено для работы с RAD Studio 10.4. Он не будет работать в более старых версиях из-за ошибки в Macapi.Foundation. Если ваше приложение не было подписано сертификатом разработчика Apple, то, начиная с macOS 10.15, это устройство будет работать, но не будет вызывать никаких уведомлений из-за ограничений ОС.
Упрощенное планирование уведомлений. Уведомление о срабатывании через запланированное время;
procedure ScheduleNotification ( const ATitle, ASubtitile, AInformation: String;
const ADeliveryDate: TDateTime;
const UseTimeZone: boolean = True);
Упрощенное представление уведомлений. Выдает уведомление немедленно.
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 ;