bigjorj

Вот пример. У меня работает. Был один неприятный момент - после использования тестовых продуктов проверка покупки заработала примерно через день, сама по себе.
 
При старте приложения вызываем    
 
PurchaseDataModule.InAppPurchase1.SetupInAppPurchase;
procedure TPurchaseDataModule.DataModuleCreate(Sender: TObject); begin fisPurchased := true; {$IFDEF ANDROID} InAppPurchase1.ApplicationLicenseKey :=''; //Присваиваем ключ InAppPurchase1.ProductIDs.Add(ProductId); // Добавляем наш продукт InAppPurchase1.OnSetupComplete := InAppPurchase1SetupComplete; {$ENDIF} end; procedure TPurchaseDataModule.InAppPurchase1ProductsRequestResponse( Sender: TObject; const Products: TIAPProductList; const InvalidProductIDs: TStrings); var Product: TProduct; begin fisPurchased := false; for Product in Products do begin if ProductId = Product.ProductID then begin FProductIsValid := True; if InAppPurchase1.IsProductPurchased(ProductId) then begin fisPurchased := true; // КУПЛЕНО!!!! end end; end; end; procedure TPurchaseDataModule.InAppPurchase1PurchaseCompleted(Sender: TObject; const ProductID: string; NewTransaction: Boolean); begin MainDataModule.ShowToast('Премиум версия активирована'); fisPurchased := True end; procedure TPurchaseDataModule.InAppPurchase1SetupComplete(Sender: TObject); begin fisPurchased := False; try InAppPurchase1.QueryProducts; except on E:Exception do MainDataModule.ShowToast(e.Message); end; end; procedure TPurchaseDataModule.Purchase; begin {$IFDEF ANDROID} if InAppPurchase1.IsSetupComplete and InAppPurchase1.CanMakeInAppPurchases then begin InAppPurchase1.PurchaseProduct(ProductId); end else MainDataModule.ShowToast('В данный момент приобретение не возможно. Попробуйте позже'); {$ENDIF} end;

Заметил еще одну особенность использования InAppPurchase:
Если использовать тестовые товары google, то проверка isAppPurchased работает только на следующие сутки. Ошибка при этом что-то про неверную подпись.

На уровне формы есть методы для работы с мышью:
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Single); virtual; procedure MouseMove(Shift: TShiftState; X, Y: Single); virtual; procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Single; DoClick: Boolean = True); virtual; procedure MouseWheel(Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean); virtual; procedure MouseLeave; virtual; Используйте их, для эмуляции нажатия мышкой или пальцем. В качестве координат нужно передавать абсолютные координаты компонента

На самом деле такой компонент у меня есть, но я его не публиковал, так как не довел до релизного состояния. Постараюсь доделать и выложить.

xenon54 заработало, спс!
 
отсутствовал FMX.PushNotification.iOS в разделе uses
Why do I love you FMX!!!??? сколько крови он выпьет еще...я п'лачу...потерять неделю из-за такой ошибки...жесть
ведь компилиться без него...ком-пи-ли-ться!!!...

Ссылка: http://yaroslavbrovin.ru/tcalendar_with_highlight_days_based_on_default_tcalendar/ Автор: Ярослав Бровин В этой статье мы рассмотрим расширение функционала стандартного календаря TCalendar и добавим поддержку раскраски требуемых дней в календаре. Расширение будет продемонстрировано с использованием нового подхода разработки компонента в FireMonkey.   В результате этой статьи вы получите готовый модуль, который будет достаточно добавить в ваш проект, чтобы использовать расширенную версию календаря с раскраской дней без необходимости создания отдельного компонента календаря.  

Простой поиск по форуму моментально дает ответ на ваш вопрос:
 
[Android] Как отключить программную кнопку Меню?

Простой поиск по форуму моментально дает ответ на ваш вопрос:
 
[Android] Как отключить программную кнопку Меню?

Может посмотреть в сторону AppTethering
http://docwiki.embarcadero.com/RADStudio/XE8/en/Connecting_to_Remote_Applications_Using_App_Tethering

Я так подозреваю - переходить на RAD 10 SEATLE!!!   
 
https://www.embarcadero.com/ru/products/rad-studio#double

Действительно, следующая версия - Kostroma! )))

Вот вам и что нового!
http://docwiki.embarcadero.com/RADStudio/Seattle/en/What%27s_New

Вот вам и что нового!
http://docwiki.embarcadero.com/RADStudio/Seattle/en/What%27s_New

Вот вам и что нового!
http://docwiki.embarcadero.com/RADStudio/Seattle/en/What%27s_New

Может посмотреть в сторону AppTethering
http://docwiki.embarcadero.com/RADStudio/XE8/en/Connecting_to_Remote_Applications_Using_App_Tethering

Что-то мне подсказывает (или даже читал), что это из-за того что приложение запускается по эмулятором арм процессора на вашем Intel Atom устройстве.

Вот интересная запись в блогах Embarcadero:
http://community.embarcadero.com/blogs/entry/coming-soon-to-delphi-execute-background-tasks-with-android-services
 
Похоже в XE9 будет поддержка сервисов андроид

Максим, но лицо, то на аватарочке предусмотрительно прикрыл           

procedure TMainForm.SearchChanelEditChangeTracking(Sender: TObject); var Lower: string; begin Lower := SearchChanelEdit.Text.Trim.ToLower; if Lower = '' then begin if Assigned(listView.Items.Filter) then begin // Clear filter listView.Items.Filter := nil; end; end else begin // Start or update filter listView.ItemIndex := -1; listView.Items.Filter := function(X: string): Boolean begin Result := Lower.IsEmpty or X.ToLower.Contains(Lower); end; end; end; Передача фильтра в ListView

procedure TMainForm.SearchChanelEditChangeTracking(Sender: TObject); var Lower: string; begin Lower := SearchChanelEdit.Text.Trim.ToLower; if Lower = '' then begin if Assigned(listView.Items.Filter) then begin // Clear filter listView.Items.Filter := nil; end; end else begin // Start or update filter listView.ItemIndex := -1; listView.Items.Filter := function(X: string): Boolean begin Result := Lower.IsEmpty or X.ToLower.Contains(Lower); end; end; end; Передача фильтра в ListView

В текущую версию добавлена поддержка:
Нумерованные списки Ненумерованные списки Форматированный код. Пока только сохранение отступов в коде и применение моношрифта. В будущем планирую добавить систему плагинов расширяющих базовые элементы разметки для реализации подсветки кода. Добавлено прокручивание текста

Добрый день!
 
В теме про наш продукт http://fire-monkey.ru/topic/1519-1c-papyc-mobilnoe-prilozhenie-dlia-masterov-priemschiko/ меня просили поделиться исходным кодом компонента TabControl с поддержкой слайда табов пальцем. С удовольствием делюсь
В составе архива сам компонент и пример его использования.
FMXUI.zip

Коллеги, нашел очень простую и действенную реализацию всплывающей подсказки - hint для windows и macOS. Проверил, работает! Кому надо, забирайте.
HS_FMXHints.zip

Добавлю и я
 
Телепрограмма. Просмотр текста программы передач на Android.
 
 
https://play.google.com/store/apps/details?id=com.tvday.TvProMobile

От себя хочу дополнительно отметить, что эта программа участвовала в Конкурсе разработки приложений на RAD Studio "Весенний марафон"