-
Постов
8 -
Зарегистрирован
-
Посещение
Активность репутации
-
Ry Koo получил реакцию от Евгений Корепов в [Android] Как отключить клавиатуру в приложении?
у формы есть событие FormVirtualKeyboardShown, где можно в общем обработать событие показа\скрытия клавиатуры.
там и флаг есть KeyboardVisible.
а в частности, для конкретного поля показывать\скрывать вот так можно как вариант:
procedure Tform1.Memo1Tap(Sender: TObject; const Point: TPointF);
var
KeyboardService: IFMXVirtualKeyboardService;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(KeyboardService)) then // Запрашиваем сервис виртуальной клавиатуры
KeyboardService.HideVirtualKeyboard;
//KeyboardService.ShowVirtualKeyboard(Memo1); для показа
end;
-
Ry Koo получил реакцию от Barbanel в [Android] Как отключить клавиатуру в приложении?
у формы есть событие FormVirtualKeyboardShown, где можно в общем обработать событие показа\скрытия клавиатуры.
там и флаг есть KeyboardVisible.
а в частности, для конкретного поля показывать\скрывать вот так можно как вариант:
procedure Tform1.Memo1Tap(Sender: TObject; const Point: TPointF);
var
KeyboardService: IFMXVirtualKeyboardService;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(KeyboardService)) then // Запрашиваем сервис виртуальной клавиатуры
KeyboardService.HideVirtualKeyboard;
//KeyboardService.ShowVirtualKeyboard(Memo1); для показа
end;
-
Ry Koo получил реакцию от Martifan в Фотография из альбома
я делал так:
создайм стандартный экшн TakePhotoFromLibrary
у экшна событие DidFinishTaking:
procedure TForm1.TakePhotoFromLibraryAction1DidFinishTaking(Image: TBitmap); // Здесь забираю выбранную фотку к себе в каталог и отображаю её в приложении
begin
image.SaveToFile(TPath.GetDocumentsPath+PathDelim+'OurImage.png');
Image1.Bitmap:=image;
end;
Здесь юзера спрашиваю разрешения порыться в его картинках:
PermissionsService.RequestPermissions([JStringToString(TJManifest_permission.JavaClass.READ_EXTERNAL_STORAGE)],
procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>)
begin
if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then
// Юзер разрешил читать файлы. Выполняем экшн.
TakePhotoFromLibraryAction1.Execute;
end);
Вот. У меня работает.
-
Ry Koo получил реакцию от Ingalime в NotificationCenter1.CancelALL отменяет только одно уведомление
создаю несколько локальных уведомлений с периодом вывода в минуту, всё ОК, выводятся. При попытке отменить их всех, отменяется только созданное первым, остальные продолжают выводиться и ничего уже с этим не поделать, отменить далее их невозможно. Поимённая отмена NotificationCenter1.CancelNotification(имя напоминания) тоже не действует. Погуглив наткнулся на пост, размещённый более года назад:
https://stackoverflow.com/questions/34719635/delphi-tnotificationcenter-multiple-repeating-notifications-has-unexpected-behav
С тех пор много воды утекло, не нашли ли нормального лекарства от этого глюка? Может что делаю не так?
Кстати, там и решение предложено и оно работает https://github.com/dangas56/SendCancelNotification/blob/master/System.Android.Notification.pas
Просто не верится что до сих пор приходится переписывать самим внутренние файлы.