Равиль Зарипов (ZuBy)

Нет, это не в студии. Это на девайсе

http://docwiki.embarcadero.com/Libraries/Berlin/en/System.Threading.TTask.Run

Разрешение камера стоит в настройках приложения?

попробуй убрать Supported

unit modURL; interface uses System.SysUtils {$IFDEF ANDROID} , Androidapi.Helpers, Androidapi.JNI.GraphicsContentViewText; {$ENDIF} // ... {$IFDEF MACOS} {$IFDEF IOS} , Macapi.Helpers, iOSapi.Foundation, FMX.Helpers.IOS; {$ELSE} , Posix.Stdlib; {$ENDIF} {$ENDIF} // ... {$IFDEF MSWINDOWS} , ShellAPI; {$ENDIF} procedure openUrl(const aURL: string); implementation {$IFDEF ANDROID} function andUrl(const aURL: string): boolean; var Intent: JIntent; begin Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW, StrToJURI(aURL)); TAndroidHelper.Context.startActivity(Intent); end; {$ENDIF} {$IFDEF IOS} function iosUrl(const aURL: string): boolean; var NSU: NSUrl; begin NSU := TNSURL.Wrap(TNSURL.OCClass.URLWithString(StrToNSStr(aURL))); if SharedApplication.canOpenURL(NSU) then SharedApplication.openUrl(NSU); end; {$ENDIF} {$IFDEF MSWINDOWS} function winUrl(const aURL: string): boolean; begin ShellExecute(0, 'open', pchar(aURL), nil, nil, 0); Result := True; end; {$ENDIF} {$IF defined(MACOS) AND not defined(IOS)} procedure macUrl(const aURL: String); begin _system(PAnsiChar(AnsiString('open ' + aURL))); end; {$ENDIF} procedure openUrl(const aURL: string); begin {$IFDEF ANDROID} andUrl(aURL); {$ENDIF} {$IFDEF MACOS} {$IFDEF IOS} iosUrl(aURL); {$ELSE} macUrl(aURL); {$ENDIF} {$ENDIF} {$IFDEF MSWINDOWS} winUrl(aURL); {$ENDIF} end; end. вот так на делфи

Правильный код ведь для Айос, на с++ не работает? У меня на Делфи есть такой модуль, все работает

void __fastcall domThread::UpdateAnimation() { frm->aIndic->Visible = false; frm->aIndic->Enabled = false; } незнаю как на си будет, но примерно так void __fastcall domThread::Execute() { Synchronize( UpdateAnimation ); Terminate(); }

а где синхронизация? вы выполняете работу с визуальными компонентами без синхронизации

1) надеюсь вы его динамически не создаете? с этим компонентом есть проблемы с динамическим созданием. 2) показывайте код

это не тот случай когда стоит стоять до конца, обновите среду до актуальной и будет время заняться программированием, а не изобретением великов (которые так и не поедут)

теперь кстати можно определить запущено приложение на интеле или нет

за плавность анимации отвечает TScrollCalculations (TAniCalculations), у него есть событие OnStop. вот если его переназначить и не сломать сам компонент в этот момент, будет вам счастье

правильней будет скрывать этот диалог при сворачивании, артефактов не будет

использовать TImage

1) кидаем TListBox 2) ПКМ по LB -> Add Item -> TListBoxItem 3) ПКМ по TListBoxItem - > Edit Default Style 4) В Tool Panel ищём TImage, бросаем в стиль ListBoxItemstyle 5) выставляем Align, выключаем HitTest 6) загружаем картинку 7) желательно поменять StyleName 8) Закрываем, сохраняем 9) для нужных Item'ов выставляем StyleLookup 10) Profit!

прошу протестить обладателей девайсов с Intel Atom на борту Возможно решилась проблема с определением Intela из приложения Обновленная версия Спасибо @Rusland за тест

этот код на Delphi будет такой {$IFDEF ANDROID} var I: integer; arrObj32: TJavaObjectArray<JString>; arrObj64: TJavaObjectArray<JString>; arrObjAbis: TJavaObjectArray<JString>; s32, s64, sAbis: string; begin s32 := ''; arrObj32 := TJBuild.JavaClass.SUPPORTED_32_BIT_ABIS; for I := 0 to arrObj32.Length - 1 do s32 := s32 + JStringToString(arrObj32.Items[I]); s64 := ''; arrObj64 := TJBuild.JavaClass.SUPPORTED_64_BIT_ABIS; for I := 0 to arrObj64.Length - 1 do s64 := s64 + JStringToString(arrObj64.Items[I]); sAbis := ''; arrObjAbis := TJBuild.JavaClass.SUPPORTED_ABIS; for I := 0 to arrObjAbis.Length - 1 do sAbis := sAbis + JStringToString(arrObjAbis.Items[I]); end; {$ENDIF}

все есть из коробки JStringToString(TJBuild.JavaClass.CPU_ABI)

на андроид студии это делается так 5.0 и выше for(String s : Build.SUPPORTED_32_BIT_ABIS) { Log.i("TAG", "CPU_32: " + s); } for(String x : Build.SUPPORTED_64_BIT_ABIS) { Log.i("TAG", "CPU_64: " + x); } до 5.0 Log.i("TAG", "CPU_ABI: " + Build.CPU_ABI); Log.i("TAG", "CPU_ABI2: " + Build.CPU_ABI2);

я так понимаю это MIPS архитектура

у меня вот так

кажется это не прокатит, т.к. запускается в эмуляторе (JVM Dalvik или ART), поэтому архитектура будет ARM я пытался через java пробиться к процессору, но всегда получал ARM