-
Постов
394 -
Зарегистрирован
-
Посещение
-
Победитель дней
45
AngryOwl стал победителем дня 6 мая 2020
AngryOwl имел наиболее популярный контент!
Информация
-
Пол
Мужчина
Посетители профиля
4 932 просмотра профиля
Достижения AngryOwl
-
AngryOwl отреагировал на ответ на вопрос: splash_image_def rad 11.3
-
AngryOwl отреагировал на ответ на вопрос: Ошибка сборки программы под RedOS (cannot find -lgcc_s).
-
AngryOwl отреагировал на ответ на вопрос: Рисование на неклиентской часть окна
-
AngryOwl отреагировал на ответ на вопрос: Рисование на неклиентской часть окна
-
AngryOwl отреагировал на ответ на вопрос: Теряются Push уведомления
-
AngryOwl отреагировал на ответ на вопрос: Размер компилируемого файла
-
AngryOwl отреагировал на ответ на вопрос: Размер компилируемого файла
-
AngryOwl отреагировал на ответ на вопрос: Размер компилируемого файла
-
AngryOwl отреагировал на ответ на вопрос: Не получается скачать файл по https
-
AngryOwl отреагировал на ответ на вопрос: Delphi 11 Transparent StatusBar
-
По поводу размера StatusBar посмотрите тут. (ссылка вроде уже не рабочая, а решение прикреплено). Что касается NavBar (я думаю Вы про TToolBar), думаю, Вам стоит копать в сторону изменения стиля именно компонента (или создать свой, с нужной высотой). Не уверен, но думаю копать в ту сторону) P.S. Кстати, есть еще вот такое решение.
-
AngryOwl изменил фотографию своего профиля
-
AngryOwl подписался на Semitako Oy
-
Semitako Oy подписался на AngryOwl
-
neo отреагировал на ответ на вопрос: Как убрать клаву по окончанию ввода в TEdit ?
-
Ingalime отреагировал на ответ на вопрос: [ListBox] загрузка картинок
-
Евгений Корепов отреагировал на ответ на вопрос: Как выгрузить приложение
-
procedure TfmMain.DoAppExit; begin try Toast('Shutdown...'); TThread.Synchronize(nil, Do__________); // тут что-то делаем до завершения finally KillMe; // из Android.KillMainProcess end; end; android.KillMainProcess.zip
-
Попробуйте просто "обернуть" эту часть кода: Application.CreateForm(TForm27, Form27); // можно это тоже внутрь Synchronize поместить TThread.Synchronize(nil, procedure begin Form27.ProgressBar1.Visible := false; Form27.StartUpLabel.Text := 'Ждите...'; Form27.Visible := true; end);
-
Евгений Корепов отреагировал на ответ на вопрос: Как при переходе с эдита на эдит очистить предыдущий текст в клавиатуре, что бы он не попал в новый эдит?
-
Anatoliy отреагировал на ответ на вопрос: Как убрать клаву по окончанию ввода в TEdit ?
-
uses FMX.VirtualKeyboard, FMX.Platform, ... var Keyboard: IFMXVirtualKeyboardService; begin if TPlatformServices.Current.SupportsPlatformService( IFMXVirtualKeyboardService, IInterface( Keyboard ) ) then Keyboard.HideVirtualKeyboard; end;
-
Anatoliy отреагировал на ответ на вопрос: TImage изображение по центру
-
Если я правильно понял, то Вам достаточно у TImage установить свойство ClipChildren = True.
-
Шамсуддин отреагировал на ответ на вопрос: Отпечатки пальцев
-
Julia отреагировал на ответ на вопрос: Отпечатки пальцев
-
Anatoliy отреагировал на ответ на вопрос: Отпечатки пальцев
-
Посмотрите в сторону "оберток". Например тут. Там есть файл android.hardware.fingerprint.pas (и не только). Вроде бы, есть все, что нужно. А уж как все это использовать - это другой вопрос, смотрите примеры.
-
Ingalime отреагировал на ответ на вопрос: TLang + TEdit.TextPrompt?
-
Добрый! Никак. Как и многие другие элементы... Решение, до сих пор, - создание своего компонента или модуля для мультиязычных приложений. Пример - Мультиязычность в андроиде. Код, конечно, давно изменился и оптимизировался не раз. Если будет свободное время - выложу как-нибудь последнюю версию.
-
Как задать windowborderstyle
- 4 ответа
-
- border-windows
- border-form
-
(и ещё 5 )
C тегом:
-
Сталкивался с подобным. В моем случае, решение было следующим: использовал не OnItemClick, а OnMouseDown. И у TListBox свойство MultiSelectStyle = None. Код, примерно, такой: procedure TfmMain.lbxCListMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single); var LI : TListBoxItem; begin if Assigned(Sender as TListBox) then begin LI := TListBox(Sender).ItemByPoint(X, Y); if Assigned(LI as TListBoxItem) and (Button = TMouseButton.mbLeft) then begin LI.IsSelected := True; TTask.Run(procedure begin DoSelectItemC(lbxCList, LI.Index); // тут Ваша процедура обработки выбранного TListBoxItem (если внутри DoSelectItemC работаем с GUI, то не забываем TThread.Synchronize()...) end); end; end; end;
-
Я не утверждаю, что в Вашем случае - это решение вопроса. Я лишь констатирую факт того, что иногда, из-за некачественного кабеля могут возникать проблемы, которые никак не ассоциируются с кабелем (не запускается приложение, не деплоится и т.п.) У меня работает все при таких настройках
-
Отмечу, что сталкивался с такой проблемой - То работает запуск приложения на смартфоне, то не работает, то странности возникают еще при деплоее на смартфон... В общем скажу просто - проблема была в кабеле. Самое интересное, что при подключении смартфон "виделся", и вроде бы все ок, но постоянные глюки при запуске приложения привели к одному решению - смена кабеля и все заработало. Не скажу, что это панацея, но я в своей практике уже трижды сталкивался с подобным. Кабель может работать на подзарядке, и даже при работе с устройством в плане чтения и записи фалов, через проводник, но будет "глючить" при более "тонкой" работе.