Поиск
Показаны результаты для тегов 'Android'.
-
Пытаюсь заменить символы, пробовал два способа, через цикл и обычный. s: string; S:=InfoPanelEdit1.Text; while Pos('=',S)<>0 do begin Insert('+',S,Pos('=',S)); Delete(S,Pos('=',S),1) end; InfoPanelEdit1.Text:=S илиInfoPanelEdit1.Text := InfoPanelEdit1.Text.Replace('=','+'); В обоих случаях замена происходит лишь после ввода следующего символа. Т.е. я ввожу "=", он записывается в edit, и только после ввода следующего он заменяется на "+". Код кладу в OnChangeTracking. Можно как-то заменять одним действием, чтобы пользователь сразу видел "+"?
-
Добрый день.! Выбираю в свойствах шрифт для лейбла. В винде все ок. На андройде/ios беда, ставится системный шрифт по умолчанию(Остальные свойства текста сохраняются). Как я понял это происходит из за того, что на устройстве нету выбранного шрифта. Как заставить работать шрифт который изначально доступен для выбора в FMX?
-
Подскажите как добраться до кнопки очистки содержимого TSearchBox? Сам TSearchBox у TListView благодаря теме "Можно ли программно передать фокус на SearchBox и очистить строку?" доступен без проблем, но кнопка не обнаруживается в ListViewProducts.SearchEdit.Children.Items :-( Хочу изменить логику ее появления - сделать видимой всегда, когда есть текст в ListViewProducts.SearchEdit.Text. По умолчанию ее поведение малость загадочное - она исчезание при любой возможности (потеря фокуса, Resize, смена ориентации и т.д.). Что бы очистить поле поиска, пользователю приходится в данный момент производить следующие манипуляции: Кликнуть на SearchBox Ввести любой символ Нажать на появившуюся "кнопку с крестиком" Пока написан костыль на все возможные манипуляции - добавляю пробел в конец SearchBox, удаляю добавленный пробел, но иногда он не срабатывает и вводит пользователя в ступор. Пытался решить проблему добавлением отдельной кнопки очистки, с нормальным поведением, но опять же встает вопрос как навсегда скрыть родную кнопку. Сейчас пытаюсь отказаться от встроенного в TListView TSearchBox, сделать отдельное поле ввода поиска, но с наскока не пойму как передавать строку фильтрации в TListView.
- 1 ответ
-
- 1
-
-
- TListView
- TSearchBox
- (и ещё 2 )
-
Намучавшись с не работающим FilterChar и кучей способов ввода по маске, сделал свой способ. По моему мнению самый простой. Код позволяет вводить только числа, включая дробные и отрицательные. procedure TFormMain.Edit1ChangeTracking(Sender: TObject); Var FEdit : TEdit; FFloat : Single; begin If Not (Sender is TEdit) Then // Защитимся от не выспавшегося самого себя Exit; FEdit:=(Sender as TEdit); // Для удобства... FEdit.Text:=FEdit.Text.Replace(' ',''); // Убираем случайные пробелы if FEdit.Text.IsEmpty then // Если пусто (ничего не введено или все удалено), ничего не делаем Exit; FEdit.Text:=FEdit.Text.Replace('.',','); // Заменяйм точку запятой if FEdit.Text.Equals(',') then // Если введен разделитель, добавляем перед ним ноль для красоты (не обязательно) begin FEdit.Text:='0,'; FEdit.CaretPosition:=FEdit.CaretPosition+1; // без этого курсор останется между нулём и запятой end; if FEdit.Text.Equals('-') then // Если введен только минус, не пытамся его драконить Exit; if TryStrToFloat(FEdit.Text,FFloat) Then // Пробуем преобразовать в число FEdit.TagString:=FEdit.Text // Если удалось, сохраняем в временном хранилище Else FEdit.Text:=FEdit.TagString; // Если не удалось, восстанавливаем из временного хранилища end; В качестве временного хранилища использовано TagString, дабы не разводить глобальных переменных. Возможно понадобиться очистка временного хранилища при многократном использовании: procedure TFormMain.Edit1Enter(Sender: TObject); begin If Not (Sender is TEdit) Then Exit; (Sender as TEdit).TagString:=''; end; Буду рад услышать замечания и предложения.
-
Требуется консультация по составлению интерфейса и его верстка по готовому макету. ОС:Android Платформа: Delphi XE7 Задачи: - Создание стилей для FireMonkey - Верстка интерфейса по макету Требования: - Опыт разработки мобильных приложений и интерфейсов - Желание работать в команде - Внимательность, способность выполнять работу качественно и в установленные сроки - Коммуникабельность, адекватное восприятие критики, дисциплинированность и ответственность Работа удаленная, оплата по договоренности. Skype: basnik31 ICQ: 629993
-
Согласно http://edn.embarcadero.com/article/44358 проблему http://qc.embarcadero.com/wc/qcmain.aspx?d=122372 пофиксили. Но сейчас проверил - ничего не изменилось. FilterChar как не работал на андроиде, так и не работает. Или я туплю? Delphi XE8 с установленным Update 1? в окне About, раздел Installed Updates вообще должно писать что то? Или эмбаркадеро больше не утруждает себя такими мелочами?
-
Необходимо реализовать функции включения и выключения экрана телефона. Приложение при этом должно оставаться активным, телефон сохранять свою работоспособность (без перехода в режим пониженной производительности и т.д). XE7, Android 4.4.2, root имеется. Возможна ручная настройка необходимых параметров системы. Skype: basnik31 ICQ: 629993
-
Здравствуйте. Помогите пожалуйста с одним вопросом. Есть приложение где форма с компонентом MapView вызывается через show. Так вот, если закрыть эту вызванную форму приложение падает. При этом, если на OnShow формы с компонентом выставлять MapView.Visible:= True, а на OnClose MapView.Visible:= False то всё работает нормально. Но, так как это не указано в документации, возникает вопрос, как правильно с этим бороться?
-
[Android/Win] Клиент для fire-monkey.ru [разработка]
Равиль Зарипов (ZuBy) опубликовал вопрос в Прочие вопросы
Здравствуйте! Сегодня начал писать клиента для нашего форума, надеюсь Ярослав не будет против. Проект open-source и любой сможет дополнить проект, затем выложить его в эту тему. Для тех кому это будет интересно, некоторые правила Использовать только родные компоненты Комментировать код Переименовывать переменные и компоненты Сделал я пока немного парсинг последних сообщений парсинг последних тем авторизация через почту (т.к. я ей пользуюсь) работает на android и windows Проект
-
Прочитал пост http://fire-monkey.ru/topic/713-android-strannoe-povedenie-modalnoi-formy/. Попробовал сделать модальное окно - получилось, но вот одна проблема - расположенный в окне редактор не активирует виртуальную клавиатуру, соответственно, ничего в редактор ввести нельзя. Что я делаю неправильно? Прилагаю тестовый проект Modal.zip
-
На виртуальной машине установил XE8 параллельно с XE7. Создал тестовое приложение с ошибкой. Запустил по F9 на телефоне. Отладчик не запускается, ошибку не отлавливает. На Win и iOS работает. Скажите мне, что у Вас работает отладка на андроиде и это не баг XE8, чтоб я вздохнул с облегчением.
-
Доброго времени суток. У меня есть переменная типа Pointer, как мне получить TJavaArray<SmallInt> из неё и наоборот, получить Pointer из TJavaArray<SmallInt>? Заранее спасибо.
-
Как получить Intent, по которому приложение стало активным, после того, как до этого было свернутым? Как известно это метод onNewIntent(), который FMX не поддерживает. Приложение запускается в режиме android:launchMode="singleTask". Пожалуйста, не предлагайте решить задачу через ключи файла манифеста android:launchMode="singleTop" или android:launchMode="standard", которые устанавливают новый intent корневым. Там отдельные вопросы вне текущей темы. -
Добрый день. Есть необходимость создать из приложения под Андроид точку доступа на телефоне. После этого получить список IP-адресов подключенных устройств. Если кто-то знает каким образом можно это реализовать, пожалуйста помогите.
-
Доброго времени суток. Написал два приложения, которые работают через wi-fi. Одно выполняет роль сервера (управляющего), другое в количестве 4 штук посылает/получает информацию на/от сервера. Иногда отваливаются клиентские приложения. В чем может быть причина? На "сервере" создаю точку доступа и клиенты подключаются сначала по wi-fi, затем к приложению. Для связи использую компоненты TidTCPClient и TidTCPServer. Что нужно сделать чтобы клиентское приложение не закрывалось само по себе?
-
Вопрос по быстродействию TListBox
Yarpda опубликовал вопрос в Финальная (Release) сборка пакета приложения
(почему-то нет ветки в андроид по производительности, поэтому написал сюда) Пробую писать под FM на Андрод и столкнулся с жуткими тормозами при прокрутке в TListBox. Динамически создаю TListBoxitem'ы и закидываю в каждый итем 4 Tlabel'я разных цветов методом MyListBoxItem.AddObject(MyLabel); И так для каждого Итема. Если список из 5-10 итемов прокручивается еще куда ни шло. Но список из 25 итемов и более просто дико тормозит при прокрутке. Подскажите, может быть я что-то не так делаю. Какие параметры или настройки могут влиять на производительность листбокса в частности, и на производительность FM для Андроид в общем? Заранее спасибо. -
[Android]Баги после программного скрытия клавиатуры.
Yarpda опубликовал вопрос в Виртуальная клавиатура
Заметил, что при использования программного скрытия клавиатуры методом: uses FMX.Platform, FMX.VirtualKeyboard; procedure TForm5.ButtonHideKeybordClick(Sender: TObject); var KeyboardService: IFMXVirtualKeyboardService; begin // Запрашиваем сервис виртуальной клавиатуры if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(KeyboardService)) then KeyboardService.HideVirtualKeyboard; end; Наблюдаются устойчивые вылеты на разных устройствах. В пределах одноq формы все нормально, однако если скрыть клавиатуру таким способом и перейти на другую форму (особенно созданную динамически), и выделить какой либо контрол, вызывающий появление клавиатуры, начитаются вылеты программы по AV. Если не с первого раза, то со второй попытки результат близок к 100%. Мне кажется, что использование данного метода как-то перенастраивает стандартное поведение VK в приделах всего приложения. Если убирать клавиатуру обычным методом при помощи клавиши Назад, то такой эффект не наблюдается. Ярослав, подскажите, есть ли еще какой-нибудь способ убора и показа виртуальной клавиатуры под Андроид, отличный от приведенного? Либо может есть какие-то методы по обходу данного эффекта. Если необходимо приложу проект, где данное поведение VK наблюдается. Заранее спасибо. -
Здравствуйте. Подскажите пожалуйста как правильно создать новые вкладки у TTabControl и как потом удалить все вкладки кроме первой включая содержимое, которое тоже создавалось в run-time. Новые вкладки создаю через TabControl.Add(); А удалять пробовал и через Destroy и через Delete, но то не удаляет то сыпет ошибками, то виснет приложение. В частном случае, то бишь моем, у меня TabControl имеет одну вкладку созданную в DisignTime. Требуется создать новые. А потом удалить все вкладки с содержимым кроме первой. -
Возможно ли запустить из приложения на Delphi сервис написанный на JAVA, в которм запускается поток, который запускает метод из кода Delphi? Как описать в Delphi-JNI метод Delphi, для вызова из JAVA кода если можно с примером... ?
-
TMediaPlayer, воспроизведение списка видео файлов по порядку
FeLDMARShaL опубликовал вопрос в TMediaPlayer
Какаято странная получается история. Не могу стабильно заставить работать приложение для Android при использовании TMediaPlayer. Создаю простое приложени: на форму кидаю Tmediaplayer, TTimer, в само андроид устройство заливаю два небольших mp4 файлика (по отдельности проверил mediaplayer их нормально воспроизводит). Задача така поочереди их воспроизводить. В теле таймера простенький код: 1) Проверяем состоянеи плеера, если плер играет то выходим 2) Если плеер закончил играть, посылаем команду стоп, затем команду clear, изменяем filename на другое, пытаемся запустить 2 видео и ... бац ошибка. В xe6 такой код работал на ура, в хе7 ерунда какаято. П.С. еще бажина: создаем 3 медиаплеера, каждому задаем пути до разных файлов, и после компиляции сразу бабац ошибка. может у меня карма плохая, может ктонибуть написать приложение самое наипростешеей которое позволяло бы прокручивать хотябы 2 медиа файла поочереди. П.С. у когонибуть есть удачный опыт подключения нативного videoview (например из вот этих компонентов D.P.F Delphi Android Native Components). Потомучто цель программы прокручивать без остановки видео, программа пишется за 2 минуты но из за косяков я прям даже не заню что делать. Приму любые дельные советы по поводу проигрывания видео на android. -
Пытаюсь загрузить в проект изображение TBitmap. Правильно ли я делаю? Отобразить картинку не получается у меня. И обязательно ли указывать размеры для картинок или буфера при загрузке, может в этом ошибка? Либо, как мне кажется, ошибка в том, что картинку, которую я загружаю находится не в файле ресурсов, а просто в папке с проектом (наверное так нельзя). Просто с ресурсами никогда не работал ранее да и Fire Monkey в том числе. Проект делаю в RadStudio Xe6. var fon:TBitmap; procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin Fon:=TBitmap.Create; Fon.LoadFromFile('\img\fon.bmp'); end; procedure TForm1.FormPaint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); begin if Canvas.BeginScene then try form1.Canvas.DrawBitmap(fon,RectF(0,0,320,240),RectF(30,30,320,240),1,true); finally Canvas.EndScene; end; end; Может еще таймер нужно задействовать? Заранее спасибо всем, кто отклинется помочь. К стати возможно я неправильный проект создаю для рисования 2д графики? Я делаю так: file --> fire monkey mobile application delphi --> blank application. Если надо другой вариант выбирать, то какой?
-
День добрый. Прошу совета. Необходимо реализовать получение push-сообщений на андроиде. Присутствует следующее: - проект в Google Console. Имеются project id и project number; - клиентское приложение на FM - работающий ruby-скрипт,который можно привязать к любому AppID, способный отправлять пуши через GCM(Google Cloud Messanging) на конкретный device_token и доказавший свою корректную работу. Про стандартные BAaS, вроде Kinvey и Parse, кот. раздают СВОИ token'ы слышал -> смотрел -> делал -> не понравилось. Мне не нужен чужой промежуточный не дешевый AppServer только для отправки push-уведомлений. И так, каким образом я могу реализовать регистрацию устройства напрямую в GCM, получить оттуда DeviceToken, и подписаться на push'и. P.S. Дай бог здоровья человеку, который знает решение данного вопроса и готов им поделится !
-
Подскажите куда копать. Пытаюсь нарисовать поле из прямоугольников, часть из которых символизирует фигуру и рисуется закрашенными. Под Windows все чудесно, под Android вижу только закрашенные. Думал не попадаю в пикселы, установил толщину в 3 и AlignToPixel - не помогло. Код: void __fastcall TForm1::imgFieldPaint(TObject *Sender, TCanvas *Canvas, const TRectF &ARect) { int min = Min(ARect.Width() / FieldRows, ARect.Height() / FieldCols); for (int y = 0; y < FieldRows; y++) { for (int x = 0; x < FieldCols; x++) { // ячейка для отрисовки TRectF R(Canvas->AlignToPixel(TPointF(x*min, y*min)), min, min); // если часть фигуры - рисуем квардрат if (iField[y][x]) { Canvas->Fill->Color = CellColors[iField[y][x]]; Canvas->FillRect(R, 0, 0, AllCorners, 1.0); } // рисуем ячейку Canvas->Stroke->Thickness = 3; Canvas->Stroke->Color = TAlphaColor(claRed); Canvas->DrawRect(R, 0, 0, AllCorners, 1.0); } } } Рузультат:
-
Задаю XRadius и YRadius = 10, Corhers = [TopLeft,TopRight,BottomLeft,BottomRight], но ни в дизайнере, ни на устройстве скругленные угла не наблюдаются. Почему? -
Здравствуйте, хочу реализовать работу с БД через интерфейс, могут ли возникнуть какие-то проблемы в приложении при переходе под андройд?
