bigjorj

C:\Program Files (x86)\Embarcadero\Studio\18.0\PlatformSDKs\android-sdk-windows\build-tools\22.0.1

Я не проверял, но попробуйте следующее 
 
    FMX.Types.VKAutoShowMode := TVKAutoShowMode.Never;
 

А в чем проблема с ImageList?
Присвоил ListView свой ImageList и при заполнении ListItem 
var IItem:TListItemImage; IItem:=aItem.Objects.FindDrawable('Image5') as TListItemImage; if (IItem<>nil) then IItem.ImageIndex:=1  

Больше не слух...
 
http://community.embarcadero.com/article/news/16209-appmethod-merges-with-rad-studio-product-line

У меня также. Компилю Android проект на разных компьютерах. При переходе с компьютера на компьютер приходится сначала удалить приложение с устройства.
 
Думаю причина в том что тестовая подпись (C:\Users\{username}\AppData\Roaming\Embarcadero\BDS\17.0\debug.keystore) от эмбаркадеро разная в разных установках.

Используйте динамическую подгрузку итемов
 
Вот по тому методу http://fire-monkey.ru/topic/626-obrabotchik-dostizheniia-kontca-spiska-listview-v-delphi-xe7/

Могу ошибаться, но по моему это
 
 

Вот кстати и подоспело решение проблемы со статусбаром под Intel аппаратами
 
https://magnumlabs.wordpress.com/2015/10/10/delphiandroid-misalignment-status-bar-on-intel-based-devices/

Вот пример. У меня работает. Был один неприятный момент - после использования тестовых продуктов проверка покупки заработала примерно через день, сама по себе.
 
При старте приложения вызываем    
 
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;

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