Перейти к содержанию
  • Регистрация

Лидеры


Популярный контент

Показан контент с высокой репутацией за 26.06.2018 во всех областях

  1. 19 баллов
    Brovin Yaroslav

    [FGX Native] Большие новости с полей

    Как вы уже могли заметить, уже давно не было никаких новостей о ходе разработке библиотеки FGX Native. Однако, несмотря на это, работа ни на секунду не прекращалась и продолжалась с еще более быстрым темпом. И в этой новости я хочу познакомить вас со всеми новостями, которые произошли за эти 3-4 месяца. И начну я с самой важной для меня новости – это 0. Запущено закрытое альфа тестирование Запуск закрытого альфа тестирования – это очень ответственный для меня момент, потому что он впервые связывает меня и мою разработку с реальными людьми. Поэтому он требует не просто что-то делать, но и определенного процесса разработки и релизов. Кроме того, альфа тестирование – это необходимость решения вопроса распространения библиотеки. Именно поэтому была проведена работа по организации сборки и доставки библиотеки до пользователя. Был собран полноценный инсталлятор FGX Native библиотеки для RAD Studio CE или RAD Studio Tokyo и теперь в несколько простых кликов можно развернуть FGX Native прямо у вас в IDE и приступить к разработке ваших приожений. Альфа тестирование началось 7 августа и до сих пор продолжается. Тестирование закрытое и осуществляется маленькой группой разработчиков, помогающих мне понять, что можно и нужно улучшить, какой функционал добавить и какое API расширить. А также просто поделиться со мной своими любыми впечатлениями. Ведь основная цель – это сделать удобный продукт для разработчиков. 1. Дизайнер: 1.1 Новый дизайнер ресурсов Безусловно идея с выделением всех графических ресурсов вашего приложения из контролов в отдельное хранилище является классной, позволяющая ускорить загрузку форм из ресурсов, за счет не хранения больших картинок прямо в ресурсах формы. Помимо этого, такой подход позволяет избежать копирования одного и тоже изображения в нескольких контролах, а позволяет использовать только один экземпляр картинки в рамках всего вашего приложения. Однако, я решил не останавливаться на достигнутом и пойти дальше, расширив типы хранимых ресурсов. Что привело к полной переработке существующего АПИ по хранению ресурсов в FGX Native и разработке нового дизайнера ресурсов. Теперь они называются Assets, по-русски просто ресурсы. И могут быть разных типов. В текущей версии поддерживаются два типа ресурсов, но существующие абстракции позволяют добавлять и другие типы: Ресурс цвет – хранит информацию о ARGB цвете Сет картинок – хранит версии одного и того же изображения в разных масштабах для качественного отображения картинок на экранах устройств в разных масштабах. Если раньше все картинки задавались по имени. То сейчас идея задания картинки расширена и позволяет задавать не только картинку, но и цвет. Например, раньше задний фон контролов задавался как-то так: Для каждого способа отображения заднего фона существовало отдельное свойство. Это нормальное решение, но не такое классное, как могло бы быть. Именно поэтому теперь есть только одно свойство, при помощи которого разработчик должен указать лиши название ресурса, которое он хочет использовать для отображения заднего фона. При этом это может быть, как картинкой, так и обычным ресурсом цвета. Компонент автоматически определяет это и корректно задает графический ресурс. За счет этого удается повысить скорость разработки вашего приложения и централизованно организовать хранение всех ваших ресурсов приложения в одном месте. Но это еще не все, такой подход к организации хранения ресурсов позволяет сопровождать каждый ресурс дополнительными данными. Например, если картинка рассчитана для отображения “резиновых” 9-patch изображений, то вместо того, чтобы каждый раз задавать правила нарезки изображения непосредственно в каждом контроле, это можно сделать один раз при загрузке ресурса. После чего, опять же, указываем имя ресурса и мы получаем уже масштабированное изображение: Безусловно такая идея хранения ресурсов не является новой, однако в данном случае она дает массу преимуществ. Идея будет развиваться и в ближайшее время будут добавлены новые типы ресурсов для переводов интерфейсов, локализации строк и создания цветовых схем вашего приложения. 1.2 Дизайнер управления порядком контролов С чего все началось? Исторически сложилось в Delphi, что при выравнивании контролов между собой используется приоритет позиции контрола на экране. И при выравнивании трех кнопок по левому краю, порядок следования контролов друг за другом будет определяться их положением на форме. Другими словами, тот контрол, который находится левее, займет первую позицию. Безусловно это дает большие удобства по манипуляции выравнивания контролов в дизайнере, так как смена порядка контролов осуществляется простым перетаскиванием контролов между собой. Но с другой стороны это имеет и побочный эффект в рантайме. Если ваше приложение управляет видимостью выравненных контролов, то очередное скрытии и повторное отображение контрола может привести к смене позиции контрола. Именно поэтому иногда приходится использовать трюк со сменой позиции контрола в рантайме, чтобы вернуть скрытый контрол на место. Типичный пример это добавление контролов в скролл бокс, выравненных по верхнему краю. Чем закончилось? В библиотеке FGX Native я решил отказаться от классического старого подхода и перейти к современной модели выравнивания – порядок выравнивания задается порядком следования контролов у родителя, который отлично себя зарекомендовал во многих UI библиотеках. Другими словами, на порядок выравнивания влияет не позиция компонента на форме, а его порядковый номер в рамках своего родителя. Именно этот подход и был разработан с добавлением нового дизайнера. 1.3 Режим блокировки контролов на экране форме Данный режим не представляет из себя что-то новое. Обычно при проектировании приложения вы используете большое количество компонентов. Среди которых присутствуют контролы, используемые только для выравнивания или группировки визуальных компонентов (линии, картинки, контейнеры). Это приводит к тому, что ваша форма перегружена визуальными контролами. И порой выделить среди этого количества нужный компонент становится все сложнее и сложнее. А если взять во внимание, что вы разрабатываете мобильное приложение с ограниченными размерами экрана устройства, то концентрация контролов может доставлять вам неудобство в проектировании вашего приложения. Именно режим блокировки контролов и позволяет вам упростить выделение “важных” компонентов за счет блокировании “побочных” контролов. У каждого компонента появилось свойство Locked, позволяющее заблокировать контрол в дизайнере от выделения. Контрол, у которого стоит Locked = True, нельзя выделить в дизайнере нажатием мышки. Единственный способ – это выбрать его в выпадающем списке инспектора свойств объекта. 1.4 Добавлен новый режим в дизайнере по отображению границ контролов Данный режим позволяет вам визуально отобразить области, занимаемые каждым контролом на форме, за счет легкой подсветки каждого контрола. Такой режим позволяет наглядно продемонстировать границы контролов и какие отступы они используют (внутренние padding или внешние margins). 1.5 Сплеш скрины Теперь поддерживаются сплеш скрины с поддержкой 9-patch изображений. Если приложение запускается очень быстро, то сплеш скрин не отображается. Если же запуск приложения занимает больше времени, то отображается сплеш скрин. 1.6 Минорные улучшения Задание иконки приложения Теперь при двойном нажатии на контрол для автоматической генерации обработчиков предпочтение отдается следующим событиям в порядке возрастания приоритета: 'ONCREATE', 'ONTOUCH', 'ONTAP', 'ONCHANGE', 'ONCHANGED'. А для формы всегда выбирается OnCreate. Теперь контролы можно бросать с палитры прямо на форму. Раньше можно было кидать только двойным кликом Улучшено перемещение не визуальных компонентов по форме 2. Платформенные сервисы: 2.1 Получение информации о текущей локали устройства Возвращает информацию о текущей локали устройства: Код текущего языка Первый день недели Код страны 2.2 Открытие документов в сторонних приложениях. Поддерживает открытие ссылок в системном браузере 2.3 Тоаst Добавлен сервис по отображению тостов "Toast" и он реализован для Андроид платформы. 2.4 Виртуальная клавиатура Возможность скрыть виртуальную клавиатуру. 2.4 Хелпер для централизованного получения информации о системе TfgSystemInfo Пока возвращает только информацию о локале. В будущем будет расширен. 2.5 Менеджер по управлению историей отображения форм. Появился менеджер форм TfgFormManager, позволяющий организовывать простую навигацию по истории открытии форм. 3. Выравнивание (Yoga и FlexBox): 3.1 Конец эпохе якорей Убраны якоря Anchors и вместо них добавлено свойство RelativePosition. В первых версиях FGX Native была поддержка якорей, как это сделано в FMX и VCL, однако, после анализа работы с системой выравнивания стало очевидно, что якоря устарели из-за их главного недостатка – это невозможность легко задавать конкретное значение отступа контрола относительно родителя. Например, если требуется расположить компонент в правом нижнем углу с отступом от угла в 10 пикселей с двух сторон, то это крайне тяжело сделать с концепцией якорей. Поскольку требуется вычислить координаты правого нижнего угла компонента и только потом постепенно пододвигать компонент для выставления желаемых значений отступов. Вместо этого используется подход, как в CSS. Введено свойство RelativePosition, которое позволяет задать положение контрола относительно всех четырех сторон родителя вместе или частично. Достаточно указать значение расстояния от нижнего и правого краев, и контрол автоматически буде т прижат к правому нижнему углу на указанном расстоянии. Помимо этого, в новой системе выравнивания, данное свойство позволяет реализовать накладывание контролов друг на друга в стеке. 3.2 Обновление Yoga Обновление йоги до последней актуальной версии с исправлением ошибок. 3.3 Абстракции для системы выравнивания Несмотря на то, что система выравнивания FlexBox внедрена в библиотеку на нижнем уровне, это не означает, что все контролы должны ее использовать. Совершенно допустимо реализовать свой кастомный вариант выравнивания для вашего специфичного компонента. Для этих целей были выделены интерфейсы для маркировки, какие компоненты должны использовать автоматом встроенную систему выравниванию. 4. Графика: Реализована возможность задавать скейл для битмапа, отвечающего за то, как изображение будет выводиться на экране. 5. Расширение возможностей компонентов 5.1 TfgDrawer Новые события: OnBeginOpen, OnOpened, OnBeginClose, OnClosed, OnStateChanged, OnSlideChanged; 5.2 TfgApplicationEvents Добавлены новые события компонента мониторинга основных событий приложения OnSaveApplicationState - Срабатывает, когда приложению нужно сохранить свое состояние, так как оно может быть закрыто OnRestoreApplicationState - Срабатывает, когда приложению нужно восстановить свое состояние после запуска. 5.3 TfgCollectionView Один из ключевых компонентов построения интерфейса мобильного приложения. За последнее время разработаны функционалы: выделению элементов в списке Мультиселект Тинт Глоуэффект, отображаемый при прокручивании списка за границы контрола Методы по скроллингу контента Возможность динамически менять высоту элементов в рантайме Screenrecorder-2018-10-03-01-54-40-72.mp4 5.4 TEdit Задание цвета оттенка поля ввода (тинт) 5.6. TSwitch Добавлен тинт эффект. 5.7. TfgForm OnKey – новое событие по обработки нажатия кнопок 6. И просто баг фиксинг История изменений [0.1.0.0] - Alpha 02.10.2018 ВАЖНО: - Теряется обратная совместимость! * Глобальная работа концепцией ресурсов: - Полностью переработана концепция ресурсов и приведена к единой терминологии. - TfgAsset - это абстрактный ресурс, предназначенный для указанного класса устройств и платформы. - Ассет может быть любым. В текущей версии поддерживается два типа: цветовой TfgAssetColor и набор картинок TfgAssetBitmapSet. - TfgAssetColor - ресурс, содержащий цвет в ARGB формате. - TfgAssetBitmapSet - ресурс, содержащий версии одной картинки в разных масштабах. - TfgAssetBitmapSet - поддерживает указание правил нарезки изображения аналог 9-patch для возможности "натягивать" картинку на контрол любого размера. (TfgBitmapInfo.CapInsets) - Центром управления всех ассетов является TfgAssetManager. Имеено через него можно добавить, найти или удалить ассет и многое другое. - Заменено свойство TfgControl.Background на TfgControl.BackgroundName. И теперь здесь достаточно указать название графического ресурса, которое будет использовано для заполнения заднего фона (цвет или изображение). - Удалено свойство TfgImage.CapInsets. Теперь оно является частью картинки и должно задаваться именно там. - TfgImage поддерживает не только задание ассета с картинками, но и цветового ассета. В этом случае контрол будет полностью заполнен цветом. - Изменен формат хранения информации об ассетах в config.json файле. Теперь формат поддерживает расширение ресурсов и позволяет добавлять свои кастомные типы. - Если раньше дизайнер развертывал файл config.json целиком, включая даже пустые ресурсы и ресурсы для ios. То теперь IDE собирает специальную сокращенную версию config.json, вырезает от туда пустые ресурсы. Благодаря этому немного уменьшается время запуска приложения. - Полностью переработан дизайнер ассетов для IDE. Теперь он поддерживает работу с ассетами разных типов. * #12 [TfgImage, TfgLayout] Заполнение изображением с CapInsets * #28 [Designer] [FGX Assets manager] Ошибка с одинаковыми именами картинок в различных папках * #39 [Designer] GFX Assets manager - вылеты * #67 [Designer] Добавить в дизайнер новый режим отображения границ контролов. * Исправлено отображение иконки блокировки контрола Locked для иконки невизуального компонента. [0.0.6.0] - Alpha 05.09.2018 * #66 [Designer] Адаптировать автоматическое создание обработчиков для компонентов при двойном клике Теперь при двойном нажатии на контрол для автоматической генерации обработчиков для событий предпочтение отдается следующим событям в порядке возрастания приоритета: 'ONCREATE', 'ONTOUCH', 'ONTAP', 'ONCHANGE', 'ONCHANGED'. А для формы всегда выбирается OnCreate. * #29 [Designer][Assets Manager] Продублировать открытие дизайнера из главного меню в менеджере проекта * #38 [Designer] Автоматическое открытие GFX Assets manager * #62 Создание новой формы в демо-проекте дает ошибку project already contains a form or module named TForm1 * #63 Баг при выделении контрола * #64 [TfgWebBrowser] При повторном показе html-страницы содержимое сильно увеличивается * #65 [Lolipop] [Java bridge] Поддержка загрузки приложения на андроиде 5.Х * Исправлена ошибка дизайнера, не позволяющая загрузить IDE под Windows 7. [0.0.5.1] - Alpha - Hotfix 28.08.2018 * Правка подхода к изменению порядка контролов. К сожалению пришлось отказаться от решения смены порядка, основанного на работе панели Structure, по скольку в ней содержится баг, который периодически сбивает сортировку узлов по индексу. Вместо этого в этом релизе сделано отдельное диалоговое окно смены порядка контролов на подобии "Tab order...", "Create order...". Открыть окно можно: - через главное меню "Edit->Alignment Order..." - через контекстное локальное меню дезайнера. При этом если в дизайнере формы был выделен контрол, то для удобства пользования дерево иерархии контролов разворачивается до него, чтобы сэкономить время пользователя на поиск интересуемого контрола. Помимо этого в окне менять порядок можно комбинацией клавиш Ctrl + Up, Ctrl + Down. * Реализованы методы TfgControl.BringToFront и TfgControlSendToBack; * В панель структуры добавлено отображение индекса для контролов, чтобы визуально можно было увидить порядок следования контролов. * Подчищено контекстное локальное меню формы. Убраны пункты меню, которые не актуальны. * Исправлена ошибка неверного положения рамки выделения первого компонента. При первом добавлении компонента на форму рамка выделения всегда находилась в левом верхнем углу. * Исправлено неверное расположение текста на кнопке в дизайн тайме, если у кнопки нету картинки. * Добавлено отображение картинки замка в верхнем правом углу контрола, если он залочен при помощи свойства TfgControl.Locked. Если контрол очень маленький, то замок не рисуется [0.0.5.0] - Alpha 25.08.2018 * Отключена регистрация TfgListView, TfgScrollBox, TfgTabBar, TfgToolBar до момента, когда они будут готовы. * #2 Не открывается дизайнер формы при создании нового проекта * #22 Не перемещаются положенные на форму не визуальные компоненты * #53 [Android] Предложение: сделать помошника для перехода по URL Application.OpenUrl * #55 [TfgWebBrowser] Не скроллится содержимое TfgWebBrowser * #56 [TfgRadioButton] Не работает VertAlign для текста * #58 [Feature] [Designer] Реализовать смену порядка контролов через панель структуры - Теперь панель "Structure" сортирует контролы не по имени, как это принято, а по индексу. - Чтобы поменять порядок контрола в рамках родителя нужно воспользоваться стрелками на панели "Structure". - Чтобы программно задать порядковый номер контрола, можно воспользоваться свойство TfgControl.Index. * #59 [Designer] [TfgControl] Реализовать свойство Locked * #60 [Designer] Реализовать добавление компонента на форму с палитры путем перетаскивания Drag and Drop [0.0.4.0] - Alpha 31.07.2018 * Глобальное обновление функционала TfgCollectionView: - Добавлен функционал выделения элементов. - Добавлены русскоязычные описания всех методов, событий и свойств в FGX.CollectionView. - Добавлено демо CollectionViewSelectionDemo, демонстрирующее работу выделения. - Рефакторинг реализации под Андроид с дальнейшей целью сделать TfgListView и TfgListMenu на базе TfgCollectionView. - TfgCollectionView.SelectionColor - цвет выделения по умолчанию. - TfgCollectionViewStyle.SelectionColor - цвет выделения для элементов одного стиля. - TfgCollectionViewStyle.Selectable - поддерживают ли элементы данного стиля выделение. - TfgCollectionViewStyle.Clickable - Поддерживает ли элемент нажатие. Влияет на работу событий OnTapItem. - TfgCollectionView.SelectionMode - Режим выделения. - TfgCollectionView.SelectionMode - Режим выделения. - TfgCollectionView.OnSelectionChanged - выделение изменилось. Получает на вход список всех выделенных элементов - TfgCollectionView.OnItemSelectionChanged - выделение у элемента поменялось. Срабатывает для одного элемента при изменении его состояния выделения. - TfgCollectionView.ResetSelection - сбросить выделение - TfgCollectionView.ResetSelection - сбросить выделение для одного итема - TfgCollectionView.SelectItem - выделить указанный элемент - TfgCollectionView.SelectAllItems - выделить все элементы - TfgCollectionView.Selection - Список индексов выделенных элментов. - TfgCollectionView.ReloadItem - Метод обновления данных для указанного элемента - TfgCollectionView.Count - возвращает количество элементов в списке - TfgCollectionView.GetStyle - Возвращает стиль по его имени - TfgCollectionView.GetStyleForItemIndex - Возвращает стиль указанного элемента - TfgCollectionView.CreateStyle - создает новый стиль с уникальным именем - TfgCollectionView.ScrollToItem - Прокручивает список к элменту с указанным индексом. - Теперь при нажатии на TfgCollectionView не выделяется контейнер стилей, а выделяется TfgCollectionView. - Теперь можно добавить новый стиль через контекстное меню дизайнера при нажатии на TfgCollectionView. - Исправлены ошибки с перетаскиванием элементов стиля. - Исправлена ошибка неверной генерации названия нового стиля. - Исправлена ошибка, из-за которой новый добавленный стиль не появлялся в структуре и не мог быть выделени. * #16 [Deploy] Реализовать статичные картинки для сплеш скрина. * #21 [TfgCollectionView] Предложение: Реализовать возможность отображения выбранного элемента * #37 [Designer] Вложенные компоненты * #51 [fgCheckBox] отсутствует событие OnChanged * #52 [TfgCollectionView | Предложение] Добавить ScrollTo * Добавлено событие OnChanged для TfgRadioButton * Опубликовано свойство GroupName для TfgRadioButton * Пофикшены дефолтный размеры TfgRadioButton из-за чего раньше компонент не помещался в размеры и обрезался. [0.0.3.1] - Alpha 29.07.2018 * #50 [FMX | Manifest] В новом FMX-проекте создается неправильный манифест [0.0.3.0] - Alpha 28.07.2018 * #19 [Platform] Добавить хелпер для работы с сервисом локали IFGXLocaleService * #23 [Device skins] Не открываются разные шкурки устройств в дизайнере * #26 [Yoga FlexBox] Убрать якоря и ввести свойство RelativePosition * #31 [Designer] Ошибка при выборе класс устройства из выпадающего списка в дизайнере формы * #32 [Designer] Хинт кнопки переворота * #33 [Designer] Для кнопки увеличения масштаба не верно указана иконка * #34 [Designer] Не меняются цифры при изменении размера * #41 [Designer] Не работает кнопка поворота устройства для Universal класса * #44 [TfgRadioButton] При добавлении компонента приложение зависает при загрузке * #45 [Deploy] Неправильный деплой иконок в новых проектах * #46 Проблема манифестом при создании FGX проекта * #49 [Designer][Assets Manager] Сделать сохранение локального пути к картинкам относительно папки проекта * Пофикшена проблема с невозможностью использовать TfgCheckBox * Исправлена проблема, из-за которой FGX подменял список файлов деплоя для FMX приложений из-за чего FMX приложения крашились на старте * Теперь, если у проекта еще не было манифеста или файла со стилем, то они автоматически создаются перед компиляцией. * Исправлена ошибка, которая могла отключать из деплоя файл classes.dex, если в проекте использовалось более одной конфигурации сборки. [0.0.2.0] - Alpha 25.07.2018 * #2 Не выделяется компонент, если у него или родителей стоит HitTest=False * #3 [NavigationBar] Ошибка в названии события OnNavicationIconTap * #4 [NavigationBar] Надпись в дизайнере TITLE при пустом свойстве * #7 [FGX Assets manager] Проверка допустимых символов * #9 [Project Options] Не меняется иконка проекта * #14 [Designer] Добавить иконку библиотеки FGX на сплеш скрин студии с указанием загружаемой версии FGX * #15 [FGX Assets manager] Если переименовать картинку, то картинка со старым именем физически остается в папке Assets
  2. 15 баллов
    sinuke

    [Android] Прозрачный StatusBar в RAD 10.3 Rio

    Привет Вчера была выпущена финальная версия RAD Studio 10.3 Rio, в которой много нововведений для Андройд. Но вот про статусбар снова "забыли". Хотя не совсем, добавили файлик styles-v21.xml, который превносит новую материальную тему на устройствах под управлением Android 5.0 и выше вместо устаревшей Holo. Но все равно свойство формы SystemStatusBar так и не реализовали. Поэтому при запуске статус бар будет окрашен в унылый серый цвет (см. скриншот). Для того, чтобы сделать статусбар прозрачным и поместить под него содержимое формы, то достаточно сделать несколько несложных шагов: 1. Убираем из деплоймента (Project -> Deployment) файл styles-v21.xml (можно просто снять галочку рядом с именем файла) 2. Добавить в деплоймент проекта новый файл styles-v21.xml (styles-v21.zip) и прописать ему путь res\values-v21\ 3. В результате получится следующий вид P.S. В новом файле по сравнению со стандартным добавилась строчка <item name="android:windowTranslucentStatus">true</item>, которая и отвечает за прозрачный статусбар P.P.S. Чтобы определять размер статус бара, все также можно воспользоваться решеним ZuBy - http://blog.rzaripov.kz/2016/12/android-ios.html P.P.P.S. Тестовый проектик - StatusBar.zip
  3. 10 баллов
    krapotkin

    Фреймворк для стандартного ListView

    Всем привет! После долгого творческого запоя я запилил альфу либы, которая позволяет юзать обычный, не-генномодифицированный ListView. Данные подаются в виде модели данных, описание раскладки итема лежит в JSON. Для работы пишется примитивный наследник класса-адаптера, который биндит данные модели на элементы из JSON. Я решил, что руками делать это дешевле чем через RTTI { TMyAdapter } procedure TMyAdapter.SetupDrawableContent(const ADrawable: TListItemDrawable; const AData: TMyData); begin if SameText( ADrawable.Name, 'text') then begin (ADrawable as TListItemText).Text := AData.Text; end else if SameText( ADrawable.Name, 'detail') then begin (ADrawable as TListItemText).Text := AData.Detail; end else if SameText( ADrawable.Name, 'balance') then begin (ADrawable as TListItemText).Text := FormatFloat('0.00', AData.Balance); end else if SameText( ADrawable.Name, 'reserved') then begin (ADrawable as TListItemText).Text := FormatFloat('0.00', AData.Reserved); end end; Главная хитрость и отличие от стандартного DynamicAppearance+LiveBinding - переменная высота итемов ListView и использование арифметики в описании раскладки. Можно указать Detail.Y = Text.Bottom + 5, ItemHeight = Detail.Bottom + 10, Detail.W = ItemWidth/2 - X {"Kind":"rect","Name":"BonusRect","Value":"", "Place":{"X":"itemwidth*3/4","Y":"Text.Y","W":"ItemWidth/4-5","H":"50"}, "BorderColor":"#FF005500", "Color":"lime", "LineWidth":3}, {"TextHAlign":2,"TextVAlign":1,"Kind":"text","Name":"Balance","Value":"", "Place":{"X":"BonusRect.x+5","Y":"Text.Y","W":"BonusRect.w-10","H":"50"}, "WordWrap":true, "Color" :"Black", "Font":{"Size":18,"Style":""}} ], "ItemHeight":"detail.bottom+10", Это дает довольно гибкую систему. Не на все случаи жизни, но все, что нужно, можно после автоматической раскладки дополнительно приписать в OnUpdateObjects Код для работы примерно такой procedure TForm1.FormCreate(Sender: TObject); begin data:= TMyDataList.CreateFromFile(ExePath()+'data.json'); // загрузка в модель данных Adapter := TMyAdapter.Create(lvWallets, data.Items, ExePath()+'pattern.json'); // создание адаптера и загрузка шаблона Adapter.Pattern.SetupListView(lvWallets); // задать отступы и разную мелочь Adapter.ResetView(); // здесь в цикле из модели данных создается нужное количество итемов ListView end; procedure TForm1.lvWalletsUpdatingObjects(const Sender: TObject; const AItem: TListViewItem; var AHandled: Boolean); begin Adapter.SetupContent(AItem); // загрузить текст, картинки и другое содержимое в элементы итема Adapter.Pattern.DoLayout(AItem); // поправить раскладку в соответствии с содержимым элементов итема end; Для использования кроме стандартных - текст, картинка, кнопка - создано несколько дополнительных элементов итема - прямоугольник, круг, уголок, линия. Отличие от ModernLV - , 1) все происходит без правки системных файлов 2) пока нет колонок и других особых изысков. На результат работы смотреть тут. Исходники пока не причесаны, будут чуть позже ListViewFramework.7z
  4. 10 баллов
    slav_z

    Работа с атрибутами текста

    Как сделать текст с подобными атрибутами? Очень просто! (Цвет текста не работает в XE8) Вот весь код: unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.UIConsts, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation, FMX.StdCtrls, FMX.Objects, FMX.TextLayout; type TForm1 = class(TForm) Button1: TButton; Text1: TText; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} type TTextAccess = class(TText); procedure ClearTextAttribute(Text: TText); begin TTextAccess(Text).Layout.ClearAttributes; end; procedure AddTextAttribute(Text: TText; Pos,Length: Integer; FontStyles: TFontStyles; FontColor: TAlphaColor); var Font: TFont; begin Font:=TFont.Create; Font.Assign(Text.Font); Font.Style:=FontStyles; TTextAccess(Text).Layout.AddAttribute( TTextRange.Create(Pos,Length), TTextAttribute.Create(Font,FontColor)); end; procedure TForm1.Button1Click(Sender: TObject); begin AddTextAttribute(Text1,10,17,[TFontStyle.fsBold],claRed); AddTextAttribute(Text1,34,8,[TFontStyle.fsUnderline],claBlue); AddTextAttribute(Text1,47,8,[TFontStyle.fsStrikeOut],claGreen); Text1.Repaint; end; end.
  5. 9 баллов
    yooSee

    Runtime permissions in Delphi 10.3 Rio

    Всем привет, вот и я решил внести свою лепту в жизнь форума и сегодня мы разберемся с разрешениями на Delphi Rio под Андроид. Для примера мы будем использовать разрешения на чтение и запись с памяти устройства, для начала в нашем проекте выставим в Delphi>Project>Application>Uses Permissions галочки на Read External Storage и Write External Storage. в uses проекта добавьте следующее uses System.Permissions, Androidapi.Jni.Os, Androidapi.Helpers, далее создадим переменные var Form: TForm; .... FPermissionWrite: string; FPermissionRead: string; в Form.Create добавим следующий код procedure TForm.FormCreate(Sender: TObject); begin FPermissionWrite := JStringToString(TJManifest_permission.JavaClass.WRITE_EXTERNAL_STORAGE); //Значение на запись FPermissionRead := JStringToString(TJManifest_permission.JavaClass.READ_EXTERNAL_STORAGE); //Значение на чтение end; и теперь сам не посредственно запрос на подтверждение наших прав procedure TForm.Button1Click(Sender: TObject); begin PermissionsService.RequestPermissions ([FPermissionWrite, FPermissionRead], nil); end; //это вызовет окно с запросом разрешения прав ну и для проверки бросим на форму TMemo и пару TButton , в них реализуем сохранение и чтение из файла с памяти устройства procedure TForm.Button1Click(Sender: TObject); begin Memo1.Lines.LoadFromFile(TPath.Combine(TPath.GetSharedDocumentsPath, 'test.txt')); end; procedure TForm.Button2Click(Sender: TObject); begin Memo1.Lines.SaveToFile(TPath.Combine(TPath.GetSharedDocumentsPath, 'test.txt')); end; P.S. Напоминаю что для работы TPath нам понадобится подключить в Uses uses System.system.ioutils; Надеюсь материал будет полезен! video_2019-02-08_00-11-36.mp4 Permissions.zip
  6. 9 баллов
    Brovin Yaroslav

    С днем рождения Андрей Ефимов ???

    Хочу от всей души поздравить с днем рождения нашего модератора Андрея Ефимова @Andrey Efimov. Человек, на которого можно положиться и который всегда готов прийти на помощь. Из года в год помогает нашему форуму становиться лучше. С днем рождения! Успехов тебе в работе, в личных делах. И не забывать про Делфи!
  7. 9 баллов
    Задался вопросом, нашел ответ, может кому пригодится. uses Androidapi.JNI.Media, Androidapi.Helpers, Androidapi.JNIBridge, AndroidApi.Jni.JavaTypes, Androidapi.JNI.GraphicsContentViewText; .... procedure TFormMain.PlaySoundEffects(const ASoundID : Integer; AVolume : Single = 1.0); var AudioObj: JObject; Audio: JAudioManager; begin AudioObj:= TAndroidHelper.Context.getSystemService(TJContext.JavaClass.AUDIO_SERVICE); Audio:= TJAudioManager.Wrap((AudioObj as ILocalObject).GetObjectID); Audio.loadSoundEffects; Audio.playSoundEffect(ASoundID, AVolume); end; Константы звуковых эффектов тут https://developer.android.com/reference/android/view/SoundEffectConstants Правда у меня только звук "чпок" на всех константах. Но мне он и был нужен )
  8. 8 баллов
    OnePeople

    Монополия

    Делал чисто для себя! И только для своего удовольствия! Возможны ошибки!*(вернее точно есть))) Графика не окончательная! Скриншоты сервер: Скриншоты клиент: Сервер на комп, клиент Android (должны находиться в одной сети) P/S И так как все устройства у меня Full HD, проверял только на них( Monopoly.rar
  9. 8 баллов
  10. 8 баллов
    Тема: "Сравнение возможностей кроссплатформенных мобильных библиотек нативных приложений FMX и FGX Native" Дата и время: 20 декабря 2018 года в 12:00 (по московскому времени) Участники: @Brovin Yaroslav, Андрей Совцов Регистрация: ссылка Ссылка на официальный телеграмм канал: https://t.me/fgx_native Участие бесплатное Под конец уходящего нового года сравним текущие возможности кроссплатформенной библиотеки мобильной разработки FGX Native и FMX. Поговорим о перспективах развития и ознакомимся с ближайшим планом до выпуска публичной бета версии. Посмотрим в живую на новый функционал библиотеки, разработанный за последнее время. У вас будет возможность задать любые вопросы автору. Не пропусти эту возможность!
  11. 8 баллов
    Расскажу о том как я добился нормальной фоновой работы приложения. В моем понимании нормальная фоновая работа приложения - это сохранять геокоординаты и систематически (по мере их накопления передавать на сервер). По сути у нас получился трекер. Те кто считают что iOS такое не умеет делать, и все что будет написано ниже это фейк лучше закройти эту тему. Итак начнем, по пунктам: 1) Добавляем к проекту ключ NSLocationAlwaysAndWhenInUseUsageDescription - для новых иОС это обязательно, начиная с 11 или 12 версии уже не помню 2) Сообщаем приложению о намерении что мы будем использовать геокоординаты в фоне (редактируем ключ UIBackgroundModes выставляя галочку напротив location) 3) Далее для того чтобы не поломать другие приложения которые используют геолокацию создаем специальную дерективу, которая будет сообщать о том что наше приложение будет использовать геолокацию в фоне, я ее назвал iOS_RequestAlwaysAuthorization 4) Дальше намного сложнее, нам нужно исправить исходники самой Delphi, а именно System.iOS.Sensors. Изменять будем процедуру TiOSLocationSensor.DoStart, все что отличается от стандартного у меня в рамках описания моей директивы: function TiOSLocationSensor.DoStart: Boolean; var I: Integer; begin {$ifdef iOS_RequestAlwaysAuthorization} if TOSVersion.Check(8) and (FLocater <> nil) then FLocater.requestAlwaysAuthorization; {$else iOS_RequestAlwaysAuthorization} if TOSVersion.Check(8) and (FLocater <> nil) then FLocater.requestWhenInUseAuthorization; {$endif iOS_RequestAlwaysAuthorization} // check authorization if Authorized = TAuthorizationType.atUnauthorized then SensorError(SLocationServiceUnauthorized); // check if location sensor is enabled if not FLocater.locationServicesEnabled then SensorError(SLocationServiceDisabled); // start location updates if (LocationChange = TLocationChangeType.lctLarge) and CanUseSignifChangeNotifs then FLocater.startMonitoringSignificantLocationChanges else FLocater.startUpdatingLocation; // start heading updates if CanUseHeading then begin FLocater.startUpdatingHeading; end; // start monitoring regions if CanMonitorRegions then for I := 0 to Regions.Count - 1 do FLocater.startMonitoringForRegion(ConvLocationRegion(Regions[I])); Result := FLocater.locationServicesEnabled; if Result then Result := Authorized = TAuthorizationType.atAuthorized; {$ifdef iOS_RequestAlwaysAuthorization} FLocater.setAllowsBackgroundLocationUpdates(True); FLocater.setPausesLocationUpdatesAutomatically(False); {$endif iOS_RequestAlwaysAuthorization} end; Собственно усе, можно наслаждаться фоновой работой. Все это работает под Delphi 10.2.3. На телефоне iPhone 6s под управлением iOS 11. Как было сказано выше, работает как геолокация так и инет и вообще все остальные процессы внтури приложения, такие как TTimer Собственно вот результат данного трекера: Если приблизить то можно увидеть насколько точно и часто он обновляет координаты: И да, огромное спасибо человеку с ником Artyom Karapetyan, именно он натолкнул на мысль того как надо правильно все сделать
  12. 8 баллов
    В конце концов получилось исправить. Для interlaced гифок проблема была вообще пустяковая. Одна строчка не в том месте. А вот для optimized все оказалось несколько сложней, но в итоге теперь все гифки отображаются правильно. Пользуйтесь на здоровье! FMX.GifUtils.zip
  13. 7 баллов
    krapotkin

    Переезд на 10.3 Rio

    сколько бед принесла уже стрельба в ногу под названием ProcessMessages как хорошо, что в Андроиде наконец всех отучат от этого крайне вредного трюка давайте формально все что там у вас "высоконагруженное" выносите в потоки и пусть они работают. Ваши "потоки" пасутся в главном (Synchronize) и никакого толка нет концепцию надо поменять. запустили поток и занимайтесь своим делом. например покажите Splash а вернется поток - вот по возвращению и сделаете то, что этот Splash закроет. и уж точно потоки не должны ничего общего иметь с формами я писал статью про потоки, там про сплеши тоже есть в блоге и про ProcessMessages отдельная боль... http://www.cyberforum.ru/blogs/469693/blog4875.html
  14. 7 баллов
    Евгений Корепов

    Runtime permissions in Delphi 10.3 Rio

    Для полноценной работы вам нужно добавить параметры в вызов (иначе вы не узнаете дал ли пользователь разрешение или нет) PermissionsService.RequestPermissions([FPermissionWrite, FPermissionRead], nil); Вот так: PermissionsService.RequestPermissions([FPermissionWrite, FPermissionRead], PermissionRequestResult, ExplainReason); PermissionRequestResult - это обработка ответа пользователя procedure TForm.PermissionRequestResult(Sender: TObject; const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>); begin if (Length(AGrantResults) = 2) and (AGrantResults[0] = TPermissionStatus.Granted) and (AGrantResults[1] = TPermissionStatus.Granted) then begin // Ура! Пользователь дал разрешение на оба наших запроса. Выставялем глобальные флаги (к примеру) которые сигнализируют что можно читать/писать карту памти end else TDialogService.ShowMessage('Не возможно продолжить работу, требуемые разрешения не получены') end; И ExplainReason - если пользователь сдуру не дал разрешение, то вам нужно объяснить ему что без этого приложение работать не будет. procedure TForm.ExplainReason(Sender: TObject; const APermissions: TArray<string>; const APostRationaleProc: TProc); begin TDialogService.ShowMessage('Приложению нужен доступ к карте памяти для таких то целей, иначе приложение не сможет работать. Зайдите в настроки Андроид и дайте разрешение на доступ', procedure(const AResult: TModalResult) begin APostRationaleProc; end) end;
  15. 7 баллов
    Недавно решил одну проблемку, которая долго мучала - решил поделиться, может кому ещё пригодится. При работе с двумя мониторами или с монитором и проектором часто возникает необходимость запретить окну "исчезать" при наведении курсора мыши на миниатюру другого приложения в панели задач. Чтобы это сделать надо: uses ... Winapi.DwmApi ... TMainForm = class(TForm) ... protected procedure CreateHandle; override; ... end; ... procedure TMainForm.CreateHandle; var Val, Res: Integer; begin inherited CreateHandle; Val := 1; Res := DwmSetWindowAttribute(FormToHWND(Self), DWMWA_EXCLUDED_FROM_PEEK, @Val, SizeOf(Val)); {$IFDEF DEBUG} if Res <> S_OK then ShowMessage(SysErrorMessage(Res)); {$ENDIF} end; Спасибо @Alex7wrt за наводку
  16. 7 баллов
    Рад со всеми поделиться, что 13 ноября я принимаю участие в запуске RAD Studio 10.3 в Москве и выступаю с двумя докладами: один по FMX, второй про мою библиотеку FGX Native. На мероприятии в живую покажу возможности библиотеки, поговорим об особенностях, планах и сделаем нативное андроид приложение в прямом эфире. Не пропустите. Ссылка на регистрацию: http://softlinemail.ru/delivery/010918/zayvka1960/index.html
  17. 7 баллов
    dnekrasov

    FMX Form

    Не за что. Маленькое уточнение - это хорошо работает только если один монитор. Вообще правильнее эмулировать максимизацию окна следующим образом: SetBounds(Screen.DisplayFromRect(Bounds).WorkAreaRect);
  18. 6 баллов
    dnekrasov

    Перехват сообщений в Windows

    Делаем как обычно, если надо переопределить какое-то событие окна interface uses {$IFDEF MSWINDOWS} Winapi.Windows, Winapi.Messages, FMX.Platform.Win, {$ENDIF} System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs; type TMainForm = class(TForm) private procedure CreateHandle; override; {$IFDEF MSWINDOWS} procedure WMIMENotify(var Msg: TMessage); message WM_IME_NOTIFY; {$ENDIF} public end; var MainForm: TMainForm; implementation {$R *.fmx} {$IFDEF MSWINDOWS} var OldWndProc: Pointer = nil; function NewWndProc(Wnd: HWND; Msg: UINT; WParam: WPARAM; LParam: LPARAM): LRESULT; stdcall; var Mess : TMessage; begin case Msg of WM_IME_NOTIFY: begin Mess.Msg := Msg; Mess.WParam := wParam; Mess.lParam := lParam; Mess.Result := 0; MainForm.Dispatch(Mess); Result := Mess.Result; end; else Result := CallWindowProc(OldWndProc, Wnd, Msg, WParam, LParam); end; end; {$ENDIF} { TMainForm } procedure TMainForm.CreateHandle; begin inherited CreateHandle; {$IFDEF MSWINDOWS} OldWndProc:= Pointer(SetWindowLong(WindowHandleToPlatform(Handle).Wnd, GWL_WNDPROC, Integer(@NewWndProc))); {$ENDIF} end; {$IFDEF MSWINDOWS} procedure TMainForm.WMIMENotify(var Msg: TMessage); begin {что-то делаем} end; {$ENDIF}
  19. 6 баллов
    Tumaso

    Переход на новую модель разрешений

    @Alex7wrt, устанавливают в том числе и новые пользователи на старых версиях андроида, и у них работает. minSdkVersion для этого. Что касается targetSDK, то этим значением приложение уведомляет операционку, что возможно будет использовать api вплоть до данной версии. targetSDK 27 пока не использовал, только 26, и все что надо работает. В самом коде делаю анализ текущей версии SDK, и в зависимости от нее возможно делаю дополнительные действия. Вот например, работа с правами: {$IFDEF ANDROID} // для Android 6+ требуется дополнительная работа с правами if TJBuild_VERSION.JavaClass.SDK_INT >= 23 then begin if (TAndroidHelper.context.checkSelfPermission( StringToJString(PERMISSION_FILE_READ) ) = TJPackageManager.JavaClass.PERMISSION_DENIED) or (TAndroidHelper.context.checkSelfPermission( StringToJString(PERMISSION_FILE_WRITE) ) = TJPackageManager.JavaClass.PERMISSION_DENIED) then begin // необходимо запросить разрешение на использование галереи LIsWaitPermissions := True; TAndroidHelper.Activity.requestPermissions( CreateJavaStringArray([PERMISSION_FILE_READ, PERMISSION_FILE_WRITE]), BUTTON_FILE ); end; end; {$ENDIF}
  20. 6 баллов
    Друзья. Будьте просто уважительны друг к другу! Не стоит ссориться, тем-более - по пустякам. Далеко не каждый!!! может себе позволить - покупать ПО по таким ценам, которые предлагает абракадабра. А те, кто говорит, что может себе это позволить - лукавят) Потому-что, чаще всего, это не те версии, которые действительно требуются... Стоит "копнуть чуть глубже", - окажется, что этим разработчикам самим нужна более расширенная версия. А там стоимости уже сопоставимы с ценой на новый автомобиль... (И не надо меня ни в чем тут убеждать и спорить)) - я знаю о чем я говорю). (И еще. Не говорите тут (да и вообще) - что у других все бесплатно и прекрасно))) Бесплатного нет ничего и ни у кого! Если Вы так говорите - Вы просто еще не дошли до той стадии, когда Вам потребуется отвечать за использование этих продуктов (любой IDE), согласно тем же условиям и соглашениям, которые большинство "подписывают", даже не читая..) Давайте начнем с того - что тут большинство право! И те кто хает среду разработки и те, кто ее поддерживает. Во-первых - среда (IDE) как была глючной, так и остается ею, до сих пор. Причем, чем дальше - тем больше. (А уж после того как разогнали наших разработчиков из абракадабры - совсем дело пошло хреново. Потому, до сих пор, и сижу на Берлине, и пока не собираюсь с него переходить. А уж сколько "родного" кода было исправлено и заменено - ...) Однако! Продукт все же как-то развивается. И, как ни странно, - у него даже есть перспективы! (Это я и про разработки Ярослава (которых мы очень ждем) и про Евгения Крюкова и другие). Это во-первых. Во-вторых - альтернативы как небыло, так и нет! Повторюсь - альтернативы нет! Кто тут будет рассказывать про C# и Visual Studio, про Android Studio и прочие "обвески" - тогда чего Вы тут вообще делаете? На этом форуме? А? А раз Вы тут, значит и Вы понимаете, - ничего, пока, действительно стоящего, нет! Ну вот нет такой среды, где так просто можно создавать продукт для разных платформ одновременно. Я прекрасно понимаю, что абракадабра движется не в том направлении, в каком стоило бы... Мы, в большинстве своем, все это понимаем. Но потому и Ярослав и другие разработчики движутся в другом направлении! И хотя концепция их продуктов в принципе отличается от FMX, - они двигаются в верном направлении, я думаю. Пару слов в защиту платных курсов Ярослава (без подтекста, как есть!) Ярослав не меценат, как я думаю)) Ему, как и всем нам, нужно кушать самому, кормить семью, и т.д. и т.п. Он тратил свои собственные силы и время, создавая эти курсы. Почему он должен их раздавать бесплатно? Он и так создал этот форум, за что ему огромное спасибо! Где он и другие участники отвечают на вопросы. Что касаемо самих курсов. Если бы они появились раньше - я бы сам, с удовольствием, с ними бы познакомился (купил). Потому-что время, потраченное мной на изучение FMX, начиная с самой первой версии, исчисляется многими месяцами. И оно того не стоило бы - если бы данные курсы появились бы раньше. Просто ознакомившись с ними, Вы получите самое главное - огромное количество сэкономленного времени! Собственно, это все что я хотел сказать... И так написал что-то дофига... Простите за такой холст... З.Ы. Всем успехов и удачи!
  21. 5 баллов
    Хочу поделиться с вами знаковой новостью для развития библиотеки FGX Native. Официально выпущено первое Андроид приложение в Google Play Market. Это приложение разработано Станиславом(@sinuke) для учащихся лицея по специальности "Почтовая связь". Оно одновременно является и полным конспектом, который всегда под рукой, и системой проверки своих знаний. Полностью разработано на Delphi и стандартных компонентах альфа версии FGX Native 0.9.7.0 в Delphi 10.3 Community Edition. Быстрые списки, гибкая разметка, продвинутая навигация, анимации переходов, поддержка тем и многое другое. Это лишь малая часть того, что было задействовано из текущих возможностей библиотеки. Приложение опубликовано в Google Play Market. Вы можете уже прямо сейчас скачать и протестировать приложение самостоятельно, загрузив его по ссылке (https://play.google.com/store/apps/details?id=com.sinukeapps.post). Оставляйте свои комментарии и предложения. Они помогут сделать приложение лучше, а FGX Native еще удобнее и стабильнее. Релиз первого приложения с использование библиотеки FGX Native - это результат огромной работы, проделанной за эти годы. В тоже время, это сигнал того, что библиотека обладает достаточным минимумом для создания типовых Андроид приложений. Ну, и пожалуй самое приятное, это то, что библиотека готова к бета тестированию, которое откроется в ближайшее время. О начале закрытого бета тестирования будет сообщено позже. Отдельное спасибо участникам закрытого альфа тестирования за поддержку, тестирование и идеи по улучшению библиотеки. В настоящее время участниками тестирования ведутся и другие интересные проекты на базе FGX Native, о которых я расскажу позже. Следите за новостями. Приложение: https://play.google.com/store/apps/details?id=com.sinukeapps.post Автор: Станислав Игнатович @sinuke Минимальные системные требования: Android 5.0 и arm v7
  22. 5 баллов
    Протокол SNTP Помимо NTP, существует упрощенная версия этого протокола - SNTP (Simple Network Time Protocol). Он реализован для синхронизации времени конечным клиентом, поскольку все преимущества протокола NTP проявляются именно в сети серверов, а для получения показаний конечным пользователем NTP излишне сложен. Поэтому для синхронизации времени конечными компьютерами и серверами был предложен протокол SNTP (SNTPv3: 1992 г., RFC1361 и 1995 г., RFC1769; SNTPv4 включён как подпротокол в NTPv4). На самом деле SNTP - это не новый протокол, а способ использования NTP-пакетов и NTP-серверов в приложениях, где не требуется высокоточное время, либо оно недостижимо. В этом случае клиент использует только часть информации UDP-пакета NTP-сервера. SNTP-клиент может работать с любыми версиями NTP-серверов, и кроме них - с особыми SNTP-серверами, которые в откликах заполняют только необходимые данные UDP-пакета. Таким образом, "облегченный" SNTP образует не сеть синхронизирующихся серверов, а пары "клиент-сервер". Любой NTP-сервер является одновременно SNTP-сервером. Клиент, который не передаёт полученное время дальше, может работать как NTP- или SNTP-клиент, в зависимости от условий. Для SNTP, как и для NTP, зарезервирован 123-й UDP-порт. Uses IdSNTP, IdBaseComponent, IdComponent, IdUDPBase, IdUDPClient; .... procedure TForm1.Button2Click(Sender: TObject); Var IdSNTP: TIdSNTP; begin IdSNTP:=TIdSNTP.Create(Self); IdSNTP.Host := 'ntp1.stratum2.ru'; ShowMessage(DateTimeToStr(IdSNTP.DateTime)); IdSNTP.Free; end;
  23. 5 баллов
    RoschinSpb

    Как убить кнопку кликнув на нее саму

    Не ссоритесь девочки пож. Возвращаясь к сути вопроса. Основная сложность тут в том, что в Delphi нельзя разрушать экземпляр класса внутри метода этого класса за исключением тех случаев, когда метод использует только для разрушения Free, DisposeOf. Почему так, а не иначе, какие есть исключения и почему "уменяфсёработает" объяснять долго, поэтому в первом приближении предлагаю принять это за аксиому. Обработчики событий OnClick и пр. вызываются из методов классов, так что разрушать контрол внутри события нельзя от слова совсем. Кроме очевидных случаев типа Self.DisposeOf существуют более запутанные варианты, когда к примеру закрывает и разрушается форма, что приводит к разрушению всех дочерних контролов. Образно говоря, самоубийства строго запрещены, но не запрещено нанимать киллера и в качестве жертвы указывать себя. Т.е. должен быть некий другой (глобальный) объект который будет разрушать объекты, которые хотели бы самоубицо. Реализацию такого объекта можете придумать сами, или использовать TPurgatory (чистилище, в католическом учении — промежуточное место между раем и адом). Но чтобы убедиться в правильности работы можно создать своего наследника TButton в котором перекрыть деструктор и поставить в нем точку останова. При запуске в режиме отладки посмотрите стек вызова деструктора (надо быть внимательным, он может быть длиннющим), ни где в этом стеке не должно быть метода разрушаемого экземпляра. Если в Вы нашли метод разрушаемого объекта (за исключением вышеуказанных), то Ваш способ удаления работает не правильно и с некоторой долей вероятности будет приводить к AV и другим "неприятностям" которые почти невозможно отловить в режиме отладки.
  24. 5 баллов
    Slym

    Артефакты на экране (Android)

    Боролись как-то с артефактами отображения (мы их прозвали "крокодилами" из-за сходства на первом скриншоте с этим багом)... Могли отображаться также левые спрайты, или обрезки скролившихся контролов... Коллега выяснил что не надо трогать Form.Fill, из-за переключения в недрах FMX нативной и не нативной канвы: если нужен фон - брось Rect по контенту и в нем делай заливку...
  25. 5 баллов
    Эта бредятина не из 1С случаем? ? А раскодировать эту муру, рожденную разумом под тяжелыми наркотиками вот так: Из ваших данных, берем только {#base64:AgFTS2/0iI3BTqDV67a9oKcNbZFRSsNAEIb1UcE7lHm22SSChBBTMFh8sCK2gm+y JEMSSHZLNiYV8QR6BC/hQ0Eo6hW2F9EruEmTNkr3bf75/mH/me/dnfr9LL4eYQyH 4AxmadIrMBMxZycAhqYD9JD5PIhZqISbybBvAQzcg32nsFIR2iMUgobYU0Ym7FpT XJTnU5uQwtIMX8vuSbqiBIBy7jXWc6QBZpXQKmczP6IsxKuEMle+yk/5Jt/lYvki P5bPcn7nIcszmnhRnAQeTacO2eLrzJtw1zi2WkpVnd4w46mr60bbretOvwl2yV3T bJmN1gGv0ce4wKAi19M6YhWY/E/ceE958LBe3Za9BTSn6gIrYibiDVKWpVYeaTwL ialSkNvRxdiPMKX9mImcMh8BSHWmv1934ekX} 1. Сначала удаляем из это строки мусорные непечатаемые знаки, такие как перевод строки (#10 , #13), ну и все другое (может быть и табуляция и просто случайный мусор) (их ОЧЕНЬ любит вставлять 1С везде и всюду) 2. Вырезаем спереди "{#base64 :" и сзади "}" . 3. С оставшейся строкой вам нужно сделать base64 decode. И вот мы на пути к успеху. Почти. Скорее всего вы получите не читаемые бинарные данные. 4. Скорее всего это окажется zip архив. Вам нужно его распаковать. И вот теперь у вас будет то что вам нужно (правда возможно с обилием мусора из не печатаемых символов, но его можно почистить). P.S. да, совсем забыл предупредить - после пункта 2, вам нужно выполнить еще одно : вырезать из начала строки "AgFTS2/0iI3BTqDV67a9oKcN" - это некий мусорный заголовок, всегда одинаковый.
  26. 5 баллов
    есть более интересный и по-мне, более правильный способ по нажатию в меню не сразу выполняете что-то, а ЗАПИСЫВАЕТЕ действие, которое ВЫПОЛНИТСЯ по событию закрытия мультивью тогда реакция наступает визуально правильная и дальше крутите колеса, запускайте потоки и все такое
  27. 5 баллов
    Fedor K

    JAVA и Delphi

    @Pavel M, Судя по вашей обертке класса и самой JAR: Нужно удалить все не статические методы из описания интерфейса наследуемого от JObjectClass: JUserClass = interface(JObjectClass) ['{A4B29440-8C8B-4C1F-A8E7-B7612D4FEEB4}'] function init(uuid : JString; secondName : JString; firstName : JString; inn : JString; phone : JString; pin : JString; roleUuid : JString; roleTitle : JString) : JUser; cdecl; overload; function init(uuid : JString; secondName : JString; firstName : JString; phone : JString; pin : JString; roleUuid : JString; roleTitle : JString) : JUser; cdecl; overload; end; У класса User нету конструктора по умолчанию, поэтому вызов такого кода вызовет ошибку: //неправильный вариант с ошибкой TestClass := TJUser.Create; //правильный вариант TestClass := TJUser.JavaClass.init( StringToJString('uuid'), StringToJString('secondName'), StringToJString('firstName'), StringToJString('phone'), StringToJString('pin'), StringToJString('roleUuid'), StringToJString('roleTitle') ); Если к проекту подключаете любые JAR файлы, то следите, чтобы вместе с ними были подключены и все остальные .jar библиотеки с классами, на которые ссылаются исходники. Например, в Вашем примере при вызове вышеприведенного конструктора первым делом выскочит ошибка: Вам нужно найти все такие подключения и найти сборки, в которых они валяются: Если в проекте в Android Studio включено копирование всех сторонних библиотек в папку libs, то после компиляции всего преокта практически все либы можно найти: папка libs; output папке проекта; папка Android SDK. п.с. Тему лучше перенести в раздел Android, так больше шансов получить помощь.
  28. 5 баллов
    ophion

    Записать картинку с камеры в BLOB

    Вот пример того, как писать и читать BLOB procedure SaveToFireDACBlob; var MemStream: TMemoryStream; begin FireDAC.Connected := True; MemStream := TMemoryStream.Create; try Image1.Bitmap.SaveToStream(MemStream); MemStream.Seek(0,0); FDQueryInsert.ParamByName('Media').LoadFromStream(MemStream,ftBlob); FDQueryInsert.ParamByName('MType').AsString := '0'; FDQueryInsert.ExecSQL(); except on e: Exception do begin ShowMessage(e.Message); end; end; MemStream.Free; FireDAC.Connected := False; end; procedure LoadFromFireDACBlob; var BlobStream: TStream; begin FireDAC.Connected := True; try FDQuerySelect.Open; FDQuerySelect.First; while(not FDQuerySelect.EOF)do begin // access a stream from a blob like this BlobStream := FDQuerySelect.CreateBlobStream(FDQuerySelect.FieldByName('Media'),TBlobStreamMode.bmRead); // access a string from a field like this if (FDQuerySelect.FieldByName('MType').AsString='0') then begin // load your blob stream data into a control ImageViewer.Bitmap.LoadFromStream(BlobStream); end; BlobStream.Free; FDQuerySelect.Next; end; except on e: Exception do begin //ShowMessage(e.Message); end; end; FireDAC.Connected := False; end; {источник http://www.fmxexpress.com/read-and-write-a-blob-field-using-firedac-with-firemonkey-on-android-and-ios/} Касательно работы с изменением качества/размера, считаю что необходимо использовать TBitmapSurface (unit FMX.Surfaces)
  29. 4 балла
    Все невизуальные компоненты, которые не используют код FMX прекрасно работают.
  30. 4 балла
    Уважаемый коллеги! Пришло время показывать результаты работы нового фреймворка FGX native в деле и в реальном приложении. В рамках XXVI РОССИЙСКОГО НАЦИОНАЛЬНОГО КОНГРЕССА «ЧЕЛОВЕК И ЛЕКАРСТВО» будет представлен доклад: «Контроль полипрагмазии «в кармане», мобильная разработка основанная на FGX Native» Будет представлена мобильная программа, написанная с использованием вышеназванного фреймворка для Андроида. Конечно конгресс для врачей, но если кому будет интересно, приходите послушать доклад 9-го апреля в ЦМТ ( Москва, Краснопресненская набережная, 12). С 16-00 до 20-00. Доклад последний, поэтому, думаю к 18-30 можно подтягиваться! Программа конгресса
  31. 4 балла
    В аттаче пример того как я себе представляю такую реализацию. Будем использовать в нашем проекте. Буду рад критике, предложениям, и все такое. TestWhatsNew.zip
  32. 4 балла
    по вопросам. 1) выбор на хостингах невелик - MySQL, Postgres. Я PG выбрал чисто в силу интереса и он вроде поближе к стандартам, и у него ХП и другие всякие штуки.... Сижу на SWEB.RU. Опять же просто потому что давно. Есть и masterhost и любой другой крупный провайдер подойдет. 2) не путаем хостинг с бэкенд-сервером (BAS). Типа Firebase или Amazon или еще туча. на хостинге у вас все свое. что написали то и работает. на BAS есть много приятных плюшек. Довольно платных ессно. Зато и push и email рассылки и админка... 3) MSSQL не вариант. Веб в основном на Linux. 4) обычно просто THttpClient. На нем нормально пишется клиентская часть API 5) обычная схема. просто с нуля некоторые вещи пилить. зато бесплатно. Практика показывает что иногда лучше заплатить и получить богатое приложение сразу. но иногда как написал Евгений, потом можно упереться в ограничения сервисов. Но можно решать проблемы по мере поступления...
  33. 4 балла
    1. Хостинг рекомендую https://masterhost.ru/service/hosting/individual/ , это один из старейших и надежнейших хостеров России, там вы получите сразу все вам необходимое - MySQL, PHP любимой версии, если проект попрет, то сможете добавлять процессоры, память и т.д. Так же сможете зарегить домен под это дело, и при надобности получить SSL сертификат на этот домен. Все остальные хостинги игнорируйте, по крайней мере Российские. За почти 20 лет использования, мастерхост ни разу не подвел, а только радовал новыми плюшками. Реализация в вашем случае примерно такая: 1. MySQL на хостере - обеспечит вам работу и 10 миллионов активных пользователей. Но важно правильно спланировать структуру базы, структуру таблиц и структуру индексов таблиц. Если вы в этом не профи, то лучше нанять профи - ибо это фундамент, который потом очень сложно будет изменить. 2. PHP на хостере - прокладка между базой и запросами/ответами приложения. Рекомендую использовать самую свежую версию PHP, чтоб потом не пришлось перекраивать код удаляя deprecated функции и конструкции. 3. Протокол обмена - REST. Не вздумайте погружаться в теорию, читать про RESTful и пытаться реализовывать, этим занимаются только люди под тяжелыми наркотиками и обычно без единого законченного реального проекта. Достаточно того что приложение будет отправлять на сервер GET запросы получать JSON ответы. Можете подогнать протокол под существующие в Delphi компоненты TRESTClient, а можете и сами на стороне приложения разгребать JSON и получать нужные данные. Это совсем не сложно. 4. Приложение - посылает на сервер HTTP GET (ну или POST) запросы посредством THTTPClient, получает ответы в виде JSON, парсит их и так далее. Все содержимое предыдущего предложения - в отдельном потоке. Ну или используйте готовый TRESTClient - если готовы разбираться в нюансах его работы. Вот как то так.
  34. 4 балла
    krapotkin

    Переезд на 10.3 Rio

    научили конечно ))) все придумано до нас вот статья вот так в грубом приближении должно это быть p.s. Забыл удалить из ваших форм эти циклы, которых там быть не должно Форма - это интерфейс взаимодействия с пользователем. Данные должны жить отдельно. test10.3.zip
  35. 4 балла
    Barbanel

    Runtime permissions in Delphi 10.3 Rio

    В поставке 10.3 есть примеры работы с правами. Один из них можно найти по такому пути: C:\Users\Public\Documents\Embarcadero\Studio\20.0\Samples\Object Pascal\Multi-Device Samples\Media\PhotoEditorDemo Что интересно, этот же код можно без изменений использовать под любой другой платформой. На других платформах приложение будет считать что ему выдали все права, и соответственно запускать все коллбеки без каких-либо вопросов.
  36. 4 балла
    Dev

    Анимированная смена форм

    https://www.youtube.com/watch?v=YU7MlY58n9U&t=59s
  37. 4 балла
    beeoz

    TExpander глюки при при isExpanded=False

    Проблема сохранилась и в IDE Delphi Rio 10.3 . Причиной оказалось то, что в модуле FMX.StdCtrls в процедуре TExpander.UpdateControlSize указана переменная FContentHeight вместо FContent.Height procedure TExpander.UpdateControlSize(const ChangingState: Boolean); begin FChangingState := ChangingState; try if FIsExpanded then begin FContent.Visible := FIsExpanded; if FButton <> nil then Height := FButton.Height + FContent.Height; // здесь заменил FContentHeight на FContent.Height и заработало Repaint; end else begin Repaint; FContent.Visible := FIsExpanded; if FButton <> nil then Height := FButton.Height; end; finally FChangingState := False; end; end;
  38. 4 балла
    А можно для тех, кто не смог присутствовать, хотя бы кратко основные тезисы?
  39. 4 балла
  40. 4 балла
    Обнаружил, что на некоторых телефонах с вытянутым экраном не отображается Smart Banner (TBannerAD.Size = Auto). Оказалось, что причиной тому неверный расчет высоты баннера в исходниках FMX.Advertising.Android. Может быть, эта информация кому-нибудь поможет В документации Android высота баннера должна вычисляться так: Тогда как в коде FMX.Advertising.Android она вычисляется в процедуре UpdateControlMetrics следующим образом: const AdHeightPortrait = 90; AdHeightLandscape = 90; AdHeightPhonePortrait = 50; AdHeightPhoneLandscape = 32; AndroidSW600DP = 600; AndroidSW600DPLandscape = 552; AdMobBannerHeight = 50; AdMobFullBannerHeight = 60; AdMobLeaderboardHeight = 90; begin if (FAdControl <> nil) and not Assigned(FAdControl.OnResize) then begin case FAdControl.AdSize of TBannerAdSize.Auto: begin if Screen.Size.Height > Screen.Size.Width then if Screen.Size.Width < AndroidSW600DP then FAdControl.Height := AdHeightPhonePortrait else FAdControl.Height := AdHeightPortrait else if Screen.Size.Height < AndroidSW600DPLandscape then FAdControl.Height := AdHeightPhoneLandscape else FAdControl.Height := AdHeightLandscape; end; Также, учитывая, что на вытянутых экранах (по крайней мере на тех устройствах, на которых я тестил), Screen.Width и Screen.Height далеко не всегда дают верные значения, то более правильный код процедуры TAndroidBannerAd.UpdateControlMetrics будет таким: procedure TAndroidBannerAd.UpdateControlMetrics; var Frame: TRectF; Form: TCommonCustomForm; Disp: JDisplayMetrics; Window: JWindow; h: integer; const AdHeightLandscape = 90; AdHeightPhoneLandscape = 32; AndroidSW600DP = 600; AndroidSW600DPLandscape = 552; AdMobBannerHeight = 50; AdMobFullBannerHeight = 60; AdMobLeaderboardHeight = 90; begin if (FAdControl <> nil) and not Assigned(FAdControl.OnResize) then begin Disp := TJDisplayMetrics.Create; Window:=TJWindow.Wrap((MainActivity.getWindow as ILocalObject).GetObjectID); Window.getWindowManager.getDefaultDisplay.getRealMetrics(disp); h:=round(Disp.heightPixels/Disp.density); case FAdControl.AdSize of TBannerAdSize.Auto: begin if Screen.Size.Height > Screen.Size.Width then begin if h <= 400 then FAdControl.Height := 32 else if (h>400) and (h<=720) then FAdControl.Height:=50 else FAdControl.Height := 90 end else if Screen.Size.Height < AndroidSW600DPLandscape then FAdControl.Height := AdHeightPhoneLandscape else FAdControl.Height := AdHeightLandscape; end; TBannerAdSize.Small: FAdControl.Height := AdMobBannerHeight; TBannerAdSize.Medium: FAdControl.Height := AdMobFullBannerHeight; TBannerAdSize.Large: FAdControl.Height := AdMobLeaderboardHeight; end; if Screen.ActiveForm <> nil then Form := Screen.ActiveForm else if Application.MainForm <> nil then Form := Application.MainForm else Form := nil; if Form <> nil then begin Frame := WindowHandleToPlatform(Form.Handle).Bounds; FAdControl.Width := Round(Frame.Width); end; end; end;
  41. 4 балла
    Alex7wrt

    Воспроизведение без задержки

    var Player: JMediaPlayer; Единожды создаете плеер и готовите файл: Player:=TJMediaPlayer.Create; Player.setDataSource(StringToJString('Путь_к_файлу')); Player.prepare; И, когда потребуется, запускаете воспроизведение Player.start; В uses нужно добавить что-то из этого: FMX.Helpers.Android, Androidapi.Helpers, Androidapi.JNI.GraphicsContentViewText, Androidapi.JNI.Media, Androidapi.JNI.JavaTypes, Androidapi.JNI.AdMob, Androidapi.JNI.App, Androidapi.JNIBridge, FMX.Advertising, FMX.Platform.Android, Androidapi.JNI.Embarcadero Не помню уже, что именно. Ненужные уберите
  42. 4 балла
    Barbanel

    Размеры формы на разных устройствах

    Этот код был на этом форуме. Смотрите переменную sScale if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenService)) then begin sScreenSize := ScreenService.GetScreenSize.Round; sScale := ScreenService.GetScreenScale; DeviceInfo.diScreenLogic := FloatS(sScreenSize.x) + ' x ' + FloatS(sScreenSize.y); DeviceInfo.diScreenPhis := FloatS(sScreenSize.x * sScale) + ' x ' + FloatS(sScreenSize.y * sScale); DeviceInfo.diScreenWidth := sScreenSize.x; DeviceInfo.diScreenHeight := sScreenSize.y; DeviceInfo.diScale := sScale; end; Одно из наших приложений, в архиве чуть побольше фоточек чтобы вы убедились что все действительно хорошо. Ну, заодно и критику от коллег смогу услышать)) PS. не обращайте внимания на язык, так задумано) приложение делается для школ Германии. Screens.zip
  43. 4 балла
    FGX Native никак не зависит от FMX. FMX используется, но только в IDE для реализации дизайнера. В рантайме же нет никаких зависимостей от FMX. Более того, платформа под андроидом реализована с 0 и использует собственную реализацию так называемого кода склейки активити джава кода с Делфи AppGlue и используется свой мост работы с джава кодом из делфи. Это позволяет полностью мне контролировать платформу и "не зависеть" от API FMX и Андроид RTL части. Но обратная стороная медали - это дополнительный объем работы по написанию всего этого. Я не знаком с этими компонентами. Но если они не используют FMX UI, то они должны работать без всяких проблем, так же, как работают и другие обычные не визуальные компоненты типа блютуса, компоненты доступа к базам, http коннекторов и тд. Используется одна активность и родная графика андроида через нативную канву Canvas. Каждая форма - это отдельная нативная вьюшка со всеми компонентами. Каждый компонент является нативным. Поэтому иерархия компонентов полностью нативная. OpenGL не используется. Поскольку скорости обычной канвы хватает для хорошей производительности типового андроид бизнес-приложения. Но не исключен вариант, что можно будет сделать расширение типа GLSurfaceView для встраивания контрола с OpenGL отрисовкой. Но пока об этом рано говорить. Все нативное. Поэтому на Андроиде все нативные контролы работают по общим принципам. Синхронизации кадров, обработка событий и тд. На текущий момент у меня нету поддержки OpenGL. Но текущая моя архитектура допускает внедрения OpenGL или в виде отдельного контрола аля TViewPort в FMX или же даже в виде отдельного типа формы. Но сейчас пока речь об этом не идет. На текущий момент гораздо важнее реализовать твердую основу и ее уже расширять.
  44. 4 балла
    Нет. Название Java пакета не поддерживает "-" в названии. Только латинские буквы в нижнем и верхнем регистрах, числа и '_'. https://developer.android.com/guide/topics/manifest/manifest-element?hl=ru#package
  45. 4 балла
    У делфи большой плюс - кроссплатформенность. У меня реально 90% единого кода для виндов, андроида и иоса. Специфичного для каждой платформы не так и много, по большому счету. Писать отдельно в андроид студии, отдельно в xcode, отдельно в делфи с VCL реально не очень хочется Заказчикам то пофиг, они хотят как минимум мобильные приложения сразу и для андроида и для иоса.
  46. 4 балла
    Если это свой компонент, то перекройте метод TControl.DoAbsoluteChanged и не забудьте вызывать базовый метод через inherited;
  47. 4 балла
    нужно использовать лицензионную винду, иначе Align не будет работать
  48. 4 балла
    dnekrasov

    Как в DBChart добавить цвета RGB?

    Спасибо в отдельном сообщении говорить не надо - просто поставьте Thanks:
  49. 4 балла
    r@di0

    Специальные разрешения

    Такое поведение на Андроиде с 5 версии. function GetPowerManager: JPowerManager; var PowerServiceNative: JObject; begin PowerServiceNative := TAndroidHelper.Context.getSystemService (TJContext.JavaClass.POWER_SERVICE); if not Assigned(PowerServiceNative) then raise Exception.Create('Could not locate Power Service'); Result := TJPowerManager.Wrap((PowerServiceNative as ILocalObject) .GetObjectID); if not Assigned(Result) then raise Exception.Create('Could not access Power Manager'); end; //Intent: JIntent; if TJBuild_VERSION.JavaClass.SDK_INT >= 23 then begin pw := GetPowerManager; if Assigned(pw) then if not pw.isIgnoringBatteryOptimizations (StringToJString('ВАШ ПАКЕТ')) then begin Intent := TJIntent.Create; try Intent.setAction (TJSettings.JavaClass. ACTION_REQUEST_IGNORE_BATTERY_OPTIMIZATIONS); Intent.setData(TJnet_Uri.JavaClass.parse (StringToJString('package:ВАШ ПАКЕТ'))); TAndroidHelper.Context.startActivity(Intent); except on e: Exception do fgToast(e.Message, 3); end; end; end;
  50. 4 балла
    Решил свой вопрос. ListViewItem.Selectable:=false; Обработку итемов вынес в OnTap ListViewItem Теперь прокручивается без активации итемов. А на тапе по итему - обработка контролов.
Эта таблица лидеров рассчитана в Москва/GMT+03:00
×
×
  • Создать...