Перейти к содержанию
Fire Monkey от А до Я

Rusland

Пользователи
  • Постов

    1 204
  • Зарегистрирован

  • Посещение

  • Победитель дней

    26

Активность репутации

  1. Like
    Rusland отреагировална Равиль Зарипов (ZuBy) в Неудачная компиляция или кривые руки?   
    это не тот случай когда стоит стоять до конца, обновите среду до актуальной и будет время заняться программированием, а не изобретением великов (которые так и не поедут)
  2. Like
    Rusland получил реакцию от Равиль Зарипов (ZuBy) в Failed to load libssl.so   
    Что по этому поводу говорит Remy Lebeau?
    Временно имеется планшет с Intel Atom (Androd 5.1.1). Можете прислать тестовую программу, проверю.
  3. Like
    Rusland отреагировална GASCHE в Как выводить математические формулы   
    Если автор знает про него, наверно у него есть, а так есть тут.
  4. Like
    Rusland отреагировална master webs в Событие InputBox при клике ListBoxItem   
    разобрался может кому  будет нужно procedure TForm1.shopcartItemClick(const Sender: TCustomListBox;   const Item: TListBoxItem);   var edit: TListBoxItem; begin if shopcart.Selected <> nil then  begin edit:=shopcart.Selected; InputBox('Изменить количество', '', edit.StylesData['textstyle'].ToString,     procedure(const AResult: TModalResult; const AValue: string)     begin     edit.StylesData['textstyle']:= AValue;     end); end;
  5. Like
    Rusland отреагировална Сергей Пьянков в "ЯКупил" - мобильный список покупок   
    В связи с запуском приложения, первые 5 участников форума могут получить одну из платных функций (Синхронизацию) в подарок, для чего необходимо сделать следующее: установить приложение и выполнить в нём регистрацию, после чего сообщить эл. почту, которая для этого использовалась (на неё, в результате, и будет выслан промокод).
    Написанное касается лишь Android-версии, т. к. Apple, к сожалению, не поддерживает купоны для встроенных покупок.
  6. Like
    Rusland отреагировална Равиль Зарипов (ZuBy) в ListBox Item style (картинка на заднике и ее растяжка).   
    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!
  7. Like
    Rusland отреагировална Равиль Зарипов (ZuBy) в DeviceInfo - модуль для получения информации о девайсе   
    прошу протестить обладателей девайсов с Intel Atom на борту
    Возможно решилась проблема с определением Intela из приложения
    Обновленная версия
    Спасибо @Rusland за тест

  8. Like
    Rusland отреагировална krapotkin в Как выводить математические формулы   
    метод с TPath вообще кранты по производительности ) он еще и самомасштабируется. вообще мрак.
  9. Like
    Rusland отреагировална Равиль Зарипов (ZuBy) в Исключить устройства с Intel Atom как не поддерживаемые   
    этот код на 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}  
  10. Like
    Rusland получил реакцию от enatechno в Как убрать клаву по окончанию ввода в TEdit ?   
    KillFocusByReturn=true
    Правда у меня на планшете Леново 7'' (Android 4.4) это не срабатывает и нажатие Enter приводит к переводу каретки... была уже тема такая
  11. Like
    Rusland получил реакцию от Pax Beach в Исключить устройства с Intel Atom как не поддерживаемые   
    Взял код вот отсюда:
    procedure TForm10.Button2Click(Sender: TObject); begin Memo1.Lines.Add(Format('%s:%s', ['BOARD', JStringToString(TJBuild.JavaClass.BOARD)])); Memo1.Lines.Add(Format('%s:%s', ['BOOTLOADER', JStringToString(TJBuild.JavaClass.BOOTLOADER)])); Memo1.Lines.Add(Format('%s:%s', ['BRAND', JStringToString(TJBuild.JavaClass.BRAND)])); Memo1.Lines.Add(Format('%s:%s', ['CPU_ABI', JStringToString(TJBuild.JavaClass.CPU_ABI)])); Memo1.Lines.Add(Format('%s:%s', ['CPU_ABI2', JStringToString(TJBuild.JavaClass.CPU_ABI2)])); Memo1.Lines.Add(Format('%s:%s', ['DEVICE', JStringToString(TJBuild.JavaClass.DEVICE)])); Memo1.Lines.Add(Format('%s:%s', ['DISPLAYドID', JStringToString(TJBuild.JavaClass.DISPLAY)])); Memo1.Lines.Add(Format('%s:%s', ['FINGERPRINT', JStringToString(TJBuild.JavaClass.FINGERPRINT)])); Memo1.Lines.Add(Format('%s:%s', ['HARDWARE', JStringToString(TJBuild.JavaClass.HARDWARE)])); Memo1.Lines.Add(Format('%s:%s', ['HOST', JStringToString(TJBuild.JavaClass.HOST)])); Memo1.Lines.Add(Format('%s:%s', ['ID', JStringToString(TJBuild.JavaClass.ID)])); Memo1.Lines.Add(Format('%s:%s', ['MANUFACTURER', JStringToString(TJBuild.JavaClass.MANUFACTURER)])); Memo1.Lines.Add(Format('%s:%s', ['MODEL', JStringToString(TJBuild.JavaClass.MODEL)])); Memo1.Lines.Add(Format('%s:%s', ['PRODUCT', JStringToString(TJBuild.JavaClass.PRODUCT)])); Memo1.Lines.Add(Format('%s:%s', ['RADIO', JStringToString(TJBuild.JavaClass.RADIO)])); Memo1.Lines.Add(Format('%s:%s', ['TAGS', JStringToString(TJBuild.JavaClass.TAGS)])); Memo1.Lines.Add(Format('%s:%d', ['TIME', TJBuild.JavaClass.TIME])); // Memo1.Lines.Add(Format('%s:%s', ['TYPE', // JStringToString(TJBuild.JavaClass.&TYPE)])); Memo1.Lines.Add(Format('%s:%s', ['UNKNOWN', JStringToString(TJBuild.JavaClass.UNKNOWN)])); Memo1.Lines.Add(Format('%s:%s', ['USER', JStringToString(TJBuild.JavaClass.USER)])); Memo1.Lines.Add(Format('%s:%s', ['CODENAME', JStringToString(TJBuild_VERSION.JavaClass.CODENAME)])); Memo1.Lines.Add(Format('%s:%s', ['INCREMENTAL', JStringToString(TJBuild_VERSION.JavaClass.INCREMENTAL)])); Memo1.Lines.Add(Format('%s:%s', ['RELEASE', JStringToString(TJBuild_VERSION.JavaClass.RELEASE)])); Memo1.Lines.Add(Format('%s:%d', ['SDK_INT', TJBuild_VERSION.JavaClass.SDK_INT])); end; Единственное упоминание Intel в Fingerprint... ну хоть что-то

  12. Like
    Rusland отреагировална Равиль Зарипов (ZuBy) в Исключить устройства с Intel Atom как не поддерживаемые   
    на андроид студии это делается так
    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);
  13. Like
    Rusland отреагировална Pax Beach в Исключить устройства с Intel Atom как не поддерживаемые   
    FMX Express же выкладывали все обертки.
  14. Like
    Rusland получил реакцию от Kitty в Исключить устройства с Intel Atom как не поддерживаемые   
    Вот приложение с маркета (а также всякие CPU-Z, Aida64) как-то определяет ведь что процессор intel. Как они это делают?
  15. Like
    Rusland получил реакцию от Равиль Зарипов (ZuBy) в Исключить устройства с Intel Atom как не поддерживаемые   
    Проверил на intel Atom код
    {$IF defined(CPUARM)} Label1.text := 'armv7'; {$ELSEIF defined(CPUX86)} Label1.text := 'intel'; {$ENDIF} Выдает armv7
  16. Like
    Rusland отреагировална krapotkin в Загрузка PNG в Image из Deployment   
    OFF: угу. на андроиде походишь. сегодня в очередной раз ходил-ходил, не выходил...
  17. Like
    Rusland отреагировална Равиль Зарипов (ZuBy) в Проблема при активации memo или edit программа зависает и закрывается.   
    есть три варианта:
    1) Full Screen (в основном для игр используется)
    2) исправленный FMX.Platform.Android (но там не все гладко, контролы чуть ниже становятся)
    3) третий вариант (тоже есть ньюансы с планшетами и расположением NavBar'a)
  18. Like
    Rusland получил реакцию от Pax Beach в Как нормально установить Berlin?   
    Подозреваю, что антивирус тоже лучше выключить - у меня DrWeb сильно напрягался во время установки.
  19. Like
    Rusland получил реакцию от zairkz в Исключить устройства с Intel Atom как не поддерживаемые   
    Проверил работу Firemonkey на планшете Dexp Ursus gx180 (на нем установлен процессор Intel Atom Z3735F, видео тоже интел). Верх формы залезает под системный statusbar (решением является StatusBar Color от ZuBy http://fire-monkey.ru/topic/2577-statusbar-color/#comment-14604), либо установить свойство формы Fullscreen=true, но тогда нажимать на кнопки приходится чуть выше чем они видны. Причем похоже MapView выставляет свое положение правильно, в отличии от остальных элементов.
    Кстати, никакие lib*.so отключать не пришлось. Программа запускается и работает, что не может не радовать. Тосты показывает.
    К чему это я... может не стоит исключать устройства с Intel Atom из списка поддерживаемых? )
  20. Like
    Rusland получил реакцию от Равиль Зарипов (ZuBy) в Проблема при активации memo или edit программа зависает и закрывается.   
    С выходом новой версии студии Berlin вернулась старая болячка на моем планшете - падение при фокусе Edita. Исправил  FMX.Platform.Android.pas почти также как в прошлый раз и проблема ушла:
    procedure TPlatformAndroid.RunOnUIThread(Proc: TThreadProcedure); begin //MainActivity.runOnUiThread(TSimpleProcedureRunner.Create(Proc)); CallInUIThread( procedure() begin Proc; end); end; procedure TPlatformAndroid.SynchronizeOnUIThread(Proc: TThreadProcedure); //var // Runner: TSimpleProcedureRunner; begin // Runner := TSimpleProcedureRunner.Create(Proc); // MainActivity.runOnUiThread(Runner); // Runner.Event.WaitFor; CallInUIThreadAndWaitFinishing( procedure() begin Proc; end); end;  
  21. Like
    Rusland получил реакцию от Равиль Зарипов (ZuBy) в Исключить устройства с Intel Atom как не поддерживаемые   
    Проверил работу Firemonkey на планшете Dexp Ursus gx180 (на нем установлен процессор Intel Atom Z3735F, видео тоже интел). Верх формы залезает под системный statusbar (решением является StatusBar Color от ZuBy http://fire-monkey.ru/topic/2577-statusbar-color/#comment-14604), либо установить свойство формы Fullscreen=true, но тогда нажимать на кнопки приходится чуть выше чем они видны. Причем похоже MapView выставляет свое положение правильно, в отличии от остальных элементов.
    Кстати, никакие lib*.so отключать не пришлось. Программа запускается и работает, что не может не радовать. Тосты показывает.
    К чему это я... может не стоит исключать устройства с Intel Atom из списка поддерживаемых? )
  22. Like
    Rusland отреагировална Евгений Корепов в NetHTTPClient и личные сообщения на сайте forum.ru-board.com на C++Builder 10.1   
    Сейчас посмотрю исходники. Минутку...
    Да, в Update1 System.Net.HttpClient.pas исправлен :-)
  23. Like
    Rusland получил реакцию от azm_ezm_ivan в Как включать/отключать звук и вибрацию?   
    Ну и узнать режим звонка можно так:
    function GetRingerMode():integer; var AudioObj: JObject; Audio: JAudioManager; begin AudioObj:=SharedActivity.getSystemService(TJContext.JavaClass.AUDIO_SERVICE); Audio:=TJAudioManager.Wrap((AudioObj as ILocalObject).GetObjectID); Result:=Audio.getRingerMode; // 0 - silent, 1 - vibrate, 2 - normal end;
  24. Like
  25. Like
    Rusland отреагировална Евгений Корепов в [Статья][AdMob] Добавляем рекламный блок в приложение   
    Это межстраничная (Interstitial) реклама. Родного компонента нет, но отлично работает модуль от турецкого коллеги http://ersanyakit.com/blog/admob-interstitials-snippet-code-using-the-android-jni-in-delphi-xe7-firemonkey.html . Написан для XE7, но отлично работает и в XE8. В Берлине еще не проверял.
    Использовать примерно так:
    procedure onAdClosedEvent(pszData:String); begin FormMain.Log('onAdClosed'); end; procedure onAdFailedToLoadEvent(pszData:String); begin FormMain.Log('onAdFailedToLoad'); end; procedure onAdLeftApplicationEvent(pszData:String); begin FormMain.Log('onAdLeftApplication'); end; procedure onAdOpenedEvent(pszData:String); begin FormMain.Log('onAdOpened'); end; procedure onAdLoadedEvent(pszData:String); begin FormMain.Log('onAdLoaded'); end; procedure TFormMain.ShowAdvertisment; begin IAdvertisment := TInterstitialAdvertisment.Create; IAdvertisment.SetOnCloseEvent(onAdClosedEvent); IAdvertisment.SetOnAdFailedToLoad(onAdFailedToLoadEvent); IAdvertisment.SetOnAdLeftApplication(onAdLeftApplicationEvent); IAdvertisment.SetOnAdOpened(onAdOpenedEvent); IAdvertisment.SetOnAdLoaded(onAdLoadedEvent); {$IFDEF DEBUG} IAdvertisment.TestMode := True; {$ENDIF DEBUG} {$IFDEF RELEASE} IAdvertisment.TestMode := False; {$ENDIF RELEASE} IAdvertisment.SetAdUnitID('ca-app-pub-***************/****************'); IAdvertisment.InitAdvertisment; end;  
×
×
  • Создать...