Поиск сообщества

Не нашел тега TPopup. Напишу тут. Ситуация в следующем. Я использую TPopup + TCalloutPanel для хинтов (подсказок). С анимацией FadeIn FadeOut. Все вроде просто. На основной форме есть стандартная проверка FormKeyDown if Key in [vkHardwareBack] then begin TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(FService)); if (FService <> nil) and (TVirtualKeyboardState.Visible in FService.VirtualKeyBoardState) then begin DebugLog('KeyboardOnBackButton'); end else begin Key := 0; if ItemLayout.Visible then begin DebugLog('ItemLayoutBackButton'); btCancelClick(btCancel); end else begin DebugLog('MainLayoutBackButton'); MessageDlg('Are you sure to exit now?', TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbOK, TMsgDlgBtn.mbCancel], -1, procedure (const AResult: TModalResult) begin if AResult = mrOk then begin DebugLog('CloseOnBackButton'); Close; end; end); end; end; end В общем ничего сверхестественного. Затем, когда появляется хинт: procedure TFParent.ShowHint(AControl: TControl; AText: string; ATitle: string=''; Duration: single = 3; ImageIndex: integer = -1); begin DebugLog('ShowHint'); lbHint.Text := AText; puHint.PlacementTarget := AControl; faHintFadeOut.Delay := Duration; puHint.IsOpen := true; ivHint.Visible := ImageIndex <> -1; lbHintTitle.Text := ATitle; lbHintTitle.Visible := ATitle <> ''; end; все тоже хорошо. Однако, когда я нажимаю кнопку назад - сначала пропадает хинт. А если я нажимаю снова кнопку назад, то вообще говоря я жду два варианта: ItemLayout переходит в MainLayout Программа запрашивает выход MessageDlg Но на деле приложение просто закрывается. При чем без ошибок. Что с этим можно сделать?

Абракадабровцы утверждают, что под Android студия компилит только для ARM-процессоров. Однако Delphi-приложение запускается на аппарте с Intel-процессором, в котором установлен транслято байт-кода "Houdini". Но отладка не работает. Т.е. из-под студии программа запускается, работает, а студия сразу после старта приложения возвращается в обычный режим редактирования. Пробовал на Lenovo Yoga Tablet 2. У кого-нибудь получилось войти в отладчик в "режиме" Houdini? Или это тупиковая ветвь развития...

Всем привет. Недавно столкнулся с проблемой: при повороте компонента "Edit" на 180 градусов (RotationAngle=180) текст становится невидимым. При чем такое происходит только при компиляции под андроид, под виндоус все работает. Если кто сталкивался с таким - подскажите, как исправить. Буду очень благодарен. PS: Студия 10.1 Берлин, гаджет - Sony Xperia ZL, android 5.1.1 test.rar

Приложение использует Android - сервис, NetHTTPClient, потоки, получение координат с помощью LocationSensor. Если надолго оставляю работать программу (например на ночь), то в дебагере вижу ошибку Aborted(6). По нажатию Break в CallStack вижу следующее: Как дальше жить?

Есть два планшета Lenovo Tab 2 A7-30DC (назовем их A и Б). Есть написанная на Berlin программа с MapView. По умолчанию у обоих стояла ОС Android 4.4.2. На A я обновил операционку до максимальной официальной версии 5.0.1, на Б оставил 4.4.2 На Б программа худо-бедно работает, но на MapView не показывает синюю точку - текущее местоположение (сторонние программы GPS Status, Яндекс Навигатор GPS координаты ловят нормально). Пробовал компилировать на Seattle - тоже самое. LocationSensor сначала неправильно показал координаты, ошибся на 300км, но после перезапуска программы стал показывать правильно. Почему MapView не показывает, не понимаю. На А программа зависает при попытке поставить метку на MapView или нарисовать маршрут получаю Segmentation fault. Вот, например: procedure TFrmMain.SetMarkerOnMap(Id:integer;NaimObj,AdrObj:String;Lat,Lon:Double); var Descrip: TMapMarkerDescriptor; MyLocation: TMapCoordinate; begin TThread.Queue(TThread.CurrentThread, procedure begin try if (MapView.Visible) then begin MyLocation:=TMapCoordinate.Create(Lat,Lon); Descrip:=TMapMarkerDescriptor.Create(MyLocation); Descrip.Icon:=ImObjBlueMarker.Bitmap; Descrip.Draggable:=False; Descrip.Title:=NaimObj; Descrip.Snippet:='['+Id.ToString+'] '; if (AdrObj<>'') then Descrip.Snippet:=Descrip.Snippet+AdrObj; MyMarker:=MapView.AddMarker(Descrip); // тут Segmentation fault LMarkers.Add(MyMarker); end; except end; end); end; Как решить проблему?

Пишу на RAD Studio 10 Seattle, тестирую на Android 6.0.1, девайс для теста ASUS ze500kl Вопрос: Простейшее приложение - скачивает некий прайс лист и вводит содержимое в ListView, который лежит на главной форме. После запуска, приложение не реагирует ни на одно нажатие, куда бы пользователь ни нажимал. Лечится сменой ориентации экрана. Поворачиваешь экран, чтобы сменилась ориентация на альбомную, интерфейс начинает реагировать на все нажатия, возвращаешься к портретной ориентации, все продолжает работать корректно. Подскажите, может кто сталкивался, куда рыть?

Как получить доступ к отфильтрованным элементам ListView. Ситуация такая - ListView частично сформирован и показан пользователю, он может начать поиск через SearchBox, но потоки должны продолжать заполнение некоторых данных, не критичных для работы. Но дело в том, что получить доступ по индексу, к отфильтрованному итему нельзя, а нужно. Что делать? Может есть другой путь получить нужный ListViewItem?

Всем доброго времени суток, столкнулся с такой проблемой, на определенной форме включается медиаплеер и начинает проигрывать определенный трек, но при блокировке трек продолжает играть. Как обработать событие блокировки экрана и по нему отключать медиаплеер? Пишу на c++ builder. Пробовал делать через EnteredBackground, руководствовался заметкой по написанию подобного на Delphi xe http://delphifmandroid.blogspot.com/2013/10/blog-post.html Возможно есть другие варианты решения?

Что происходит на уровне системы, когда мы нажимаем хардварную кнопку «приложения», и в окне «последние приложения» удаляем приложение? На пользовательском уровне приложение удаляется из списка, если у приложения был запущен сервис, тот теряет процесс приложения и перезапускается. Необходимо повторить это действие пользователя (удаление программы из списка последних приложений) программно из самого приложения, со всеми сопутствующими процедурами системы. Если нет, тогда удаление из списка другим приложением. Сокрытие приложение через манифест не подходит. Кто может помочь в этом вопросе, помогите пожалуйста.

Всем привет! Добавляю в listViewItem дополнительный TListItemImage,а он ни в какую не отображается. Точнее картинка появляется на долю секунды и тут же пропадает. Картинки подгружаю с нета, для этого использую хелпер от ZuBy. Подскажите, в чём я накосячил. Файл проекта для Seattle приложил. TwoImages.zip

Мне необходимо, когда пользователь нажимает кнопку «Закрыть», уничтожить приложение. Если указать Action = caFree, приложение остается висеть в памяти, не уничтожается, методы Destroy в приложении и сервисе не срабатывают: procedure TfmMain.FormClose(Sender: TObject; var Action: TCloseAction); begin DM.LocationSensor.Active := false; Action := TCloseAction.caFree; end; Если уничтожить приложение в смартфоне через «Последние приложения», тогда приложение уничтожается, сервис приложения перезапускается, и продолжает работать — это мне и надо. Помогите пожалуйста понять, как же правильно уничтожить приложение при закрытии основной формы? Подойдут решения отправки Intent, куда нужно, или вызовы нативных методов.

Кто работал с DS, подскажите, как реализовать автоматическое переподключение к серверу после тайм-аута? Пробовал кучу вариантов, но не могу отловить момент отключения даже, да и тайм-аут не настраивается. Параметр есть, но реагировать на измененные значения не хочет.

В общем дело такое. Хочу мигать лампочкой воткнутой в джек или в юсб, обшарил кучу форумов но не нашел ни какой полезной информации по этому вопросу. (меня интересуют команды обращения к разъемам)

Друзья, подскажите. Реализовано ли уже в Seattle установка цвета системного StatusBar с цветом ToolBar на форме? Как это реализовано на платформе iOS.

Создан проект в RAD Studio 10.1 Berlin (Delphi), в приложении прилинкован сервис. При компиляции проекта в AndroidManifest.xml появляется строчка: <service android:exported="true" android:name="com.embarcadero.services.MyService" /> А мне нужна строчка: <service android:exported="true" android:name="com.embarcadero.services.MyService" android:label="Этот замечательный сервис создан вручную"/> Ни где не нашел такое свойство. В Project->Options->Version info есть свойство Label только для самого Host приложения. Помогите пожалуйста советом.

Решил выделить в отдельную ветку форума. Набор ссылок 13 разработчиков компонентов для FMX (и не только). Может кому пригодиться! Скачу сразу, как ни странно, половину не знал. Есть заслуживающие внимания! http://community.embarcadero.com/blogs?view=entry&id=8514

При компиляции андроид приложения Delphi XE10 выдаёт предупреждение: [Warning Warning] Local file "c:\Users\Public\Documents\Embarcadero\Studio\17.0\PlatformSDKs\android-ndk-r9cprebuilt\android-arm\gdbserver\gdbserver" not found. Skipping deployment. paclient command line Причина неверный путь, упущен слэш между "android-ndk-r" \(отсутствует) и (9cprebuilt). В настройках sdk и deployment всё указано верно. Как исправить? И для чего нужен "gdbserver"?

Всем привет, кто может объяснить куда сохраняет класс SharedPreference значения, и может ли кто извне легко считать от туда данные. Таким образом var Prefs: JSharedPreferences; Editor: JSharedPreferences_Editor; Prefs := SharedActivity.getPreferences(0); Editor:= Prefs.edit; //сохраняю данные Editor.putString(StringToJString('ключ'), StringToJString('значение')); Editor.apply; //беру данные result:=JStringToString(Prefs.getString(StringToJString('ключ'), StringToJString('по умолчанию значение'))); происходит сохранение к примеру важного значение из программы, которое пользователю не нужно знать, и в нужный момент прога их берет для своих манипуляций.

Скачала побаловаться Berlin. Пробую установку приложений из Samples на андроид (в частность Object Pascal\Multi-Device Samples\User Interface\Controls). Компиляция, деплоймент идет нормально, но при попытке инсталляции приложения на устройство процесс зависает и примерно через минуту все время пишет ошибку: Unable tp create process: pkg: /data/local/tmp/Controls.apk а ниже Success. Телефон в это время никак не реагирует на установку, однако в списке программ приложение появляется. Такое ощущение что, связь с устройство теряется или еще что-то. Естественно, что ни о какой отладке при приложения тоже речи идти не может. я сначала грешил на телефон (Blueboo xTouch андроид 5.1). Поставил эмулятор на андроид 6.0, попытался установить туда, но поведение программы точно такое же - ошибка, но приложение все-таки устанавливается. Никто не сталкивался с такой проблемой?

Возможно ли вывести 9-patch в Timage? Если нет, то куда можно импортировать изображение такого формата?

как создать чат между людьми Android Делфи? может кто-нибудь помочь?

Возникла проблема с реализацией реакции на текстовое контекстное меню в Android. Все работает нормально через поддержку ITextActions в iOS, вызывается CopytoClipboard, a в Android никакой реакции на нажатие, например, Copy нет. В стандартном TMemo видимо используется какая-то магия, т.к. все заканчивается на TCopyButtonClickListener.OnClick, который в свою очередь вызывает TextService.CopySelectedText -> FTextView.copySelectedText, при этом не вызываются ни GetSelection у Memo или Model, ни SetClipboard у PlatFormAndroid. В Platform.iOS в обработчике кнопки вызывается FTextActions.CopyToClipboard, а в Platform.Android TextActions никак не используются. Как реализовать обработку кнопок контекстного меню под Android? Ну или хотя-бы как это делает стандартный TMemo?

В сервисе сохраняю дату и время вот так: var IniFile: TIniFile; SDT: string; FS: TFormatSettings; begin IniFile := TIniFIle.Create(System.IOUtils.TPath.Combine( System.IOUtils.TPath.GetDocumentsPath, 'D.ini')); try FormatSettings.ShortDateFormat:='yyyy-mm-dd'; FormatSettings.DateSeparator := '-'; FormatSettings.LongTimeFormat := 'hh:nn:ss'; FormatSettings.TimeSeparator := ':'; SDT:=DateTimeToStr(Now()); IniFile.WriteString('SERVER','LastOnline',SDT); finally IniFile.free; end; Получаю 31.05.2016 11:08 Тот же самый код в основном приложении выдает 2016-05-31 11:08 В чем моя ошибка? PS. Что происходит в сервисе дебагером посмотреть не удается, Дельфи просто не реагирует на точки останова

Здравствуйте. Скачал триальный Берил и решил приложение тестовое сделать. Но вот вспомнил что TabControl не пролистывается пальцем, как например в приложении в VK. Может что то поменялось или есть решение сторонее или исходник примера? Вроде было на форуме, а найти не могу.

Задача отбить\завершить звонок. uses FMX.Memo, FMX.Memo.Types, FMX.Media, FMX.Helpers.Android, System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, System.IOUtils, Androidapi.Helpers, Androidapi.JNI.JavaTypes, Androidapi.JNI.Os, Androidapi.JNI.App, Androidapi.JNIBridge, Androidapi.JNI.GraphicsContentViewText, System.Threading, Androidapi.JNI.Telephony, Androidapi.JNI.Provider, Androidapi.JNIBridge, Androidapi.JNI.GraphicsContentViewText; function getdeclaredMethod(Cls: Jlang_class; const Name: JString): JMethod; var Arr: TJavaObjectArray<JMethod>; Meth: JMethod; I: Integer; begin Result := nil; Arr := Cls.getDeclaredMethods; for I := 0 to Arr.Length-1 do begin Meth := Arr.Items[I]; if Meth.getName.compareTo(Name) = 0 then begin Result := Meth; Exit; end; end; raise Exception.CreateFmt('method not found: %s', [Name]); end; function killCall(context: JContext): Boolean; var obj: JObject; telephonyManager: JTelephonyManager; classTelephony: Jlang_Class; methodGetITelephony: JMethod; telephonyInterface: JObject; telephonyInterfaceClass: Jlang_Class; methodEndCall: JMethod; begin try // Get the boring old TelephonyManager obj := context.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE); telephonyManager := TJTelephonyManager.Wrap((obj as ILocalObject).GetObjectID); // Get the getITelephony() method classTelephony := TJlang_Class.JavaClass.forName(telephonyManager.getClass.getName); methodGetITelephony := getDeclaredMethod(classTelephony, StringToJString('getITelephony')); // Ignore that the method is supposed to be private // methodGetITelephony.setAccessible(True); JAccessibleObject(methodGetITelephony).setAccessible(True); // Invoke getITelephony() to get the ITelephony interface telephonyInterface := methodGetITelephony.invoke(telephonyManager); // Get the endCall method from ITelephony telephonyInterfaceClass := TJlang_Class.JavaClass.forName(telephonyInterface.getClass.getName); methodEndCall := getDeclaredMethod(telephonyInterfaceClass, StringToJString('endCall')); // Invoke endCall() methodEndCall.invoke(telephonyInterface); Result := True; except on E: Exception do // Many things can go wrong with reflection calls begin // Result := False; end; end; end; Это я нешел отсюда: stackoverflow Соответственно вопрос с invoke(): telephonyInterface := methodGetITelephony.invoke(telephonyManager); в вышеуказанной теме остался открытым. Как отловить входящий звонок (необходимый момент) через BroadcastReceiver понятно. Как решить задачу с завершением текущего звонка? P.S.: Как писать на JAVA и экспортировать функции что бы использовать их из Delphi представляю себе весьма туманно.