-
Постов
828 -
Зарегистрирован
-
Посещение
-
Победитель дней
13
Активность репутации
-
x11 получил реакцию от Ingalime в DevExpress для FMX
Разработчики DevExpress разрабатывают пробные компоненты для Firemonkey
отсюда
http://www.sql.ru/forum/1279315-1/na-delphi-dlya-linux-v-etot-raz-s-interfeysom
-
x11 получил реакцию от Anatoliy в OrangeUI
Дошло. Картинки я грузил из базы. Я неправильно их записывал в список TSkinImageList.
Использовал метод CreateFromBitmapAndMask()
вот так переделал
procedure AddPhoto(Image: TBlobStream; const sDescr: string = ''); Var pic: TDrawPicture; begin pic := TDrawPicture.CreateFromStream(Image); pic.Caption := sDescr; ImageList.PictureList.Add(pic); end; к сожалению, нет метода CreateFromBitmap()
-
-
x11 получил реакцию от Anatoliy в Цикл по unicode строке
В общем, оказалось, что "'CharInSet' is deprecated: 'Use TCharHelper functionality'"
Правильно вот так:
uses System.Character; ... ... for ch in s do if ch.IsInArray(['0', '1', '2', '3', '4', '5', '6', '7', '8', '9']) then result := result + ch; или "IsDigit" если нужны только цифры for ch in s do if ch.IsDigit then result := result + ch; http://docwiki.embarcadero.com/Libraries/XE7/en/System.Character.IsDigit
-
x11 получил реакцию от #WAMACO в Цикл по unicode строке
В общем, оказалось, что "'CharInSet' is deprecated: 'Use TCharHelper functionality'"
Правильно вот так:
uses System.Character; ... ... for ch in s do if ch.IsInArray(['0', '1', '2', '3', '4', '5', '6', '7', '8', '9']) then result := result + ch; или "IsDigit" если нужны только цифры for ch in s do if ch.IsDigit then result := result + ch; http://docwiki.embarcadero.com/Libraries/XE7/en/System.Character.IsDigit
-
x11 получил реакцию от kami в Цикл по unicode строке
В общем, оказалось, что "'CharInSet' is deprecated: 'Use TCharHelper functionality'"
Правильно вот так:
uses System.Character; ... ... for ch in s do if ch.IsInArray(['0', '1', '2', '3', '4', '5', '6', '7', '8', '9']) then result := result + ch; или "IsDigit" если нужны только цифры for ch in s do if ch.IsDigit then result := result + ch; http://docwiki.embarcadero.com/Libraries/XE7/en/System.Character.IsDigit
-
x11 получил реакцию от Anatoliy в OrangeUI
За смену картинки пальцем отвечают несколько свойств.
SkinFMXImageListViewer1.Properties.CanGestureSwitch;
SkinFMXImageListViewer1.Properties.ImageListSwitchEffectType;
Программно:
ImageListViewer.Prop.SwitchNext;
ImageListViewer.Prop.SwitchPrior;
Вместо полного названия свойства Properties можно использовать сокращение Prop.
-
x11 получил реакцию от Anatoliy в OrangeUI
Чтобы SkinFMXImageListViewer нормально вписывал картинку, нужно прикрутить TSkinImageListViewerDefaultMaterial и уже в этой компоненте настраивать.
Не обязательно использовать отдельный TSkinImageListViewerDefaultMaterial, достаточно включить свойство MaterialUserKind := mukSelfOwn, при этом свойство SelfOwnMaterial будет заполнено автоматически своей компонентой, но на форме её не будет.
Думаю, что TSkinImageListViewerDefaultMaterial удобно использовать, если есть несколько SkinFMXImageListViewer, подключенных к единой компоненте TSkinImageListViewerDefaultMaterial.
-
x11 отреагировална enatechno в [ListView]пример от embarcadero
По умолчанию в DynamicAppearance есть только один объект - Text. Соответственно, из кода вы должны убрать все упоминания AItem.Objects.TextObject, AItem.Objects.AccessoryObject и изменить заполнение текста в ListViewItem (например так):
for Item in [1..10] do ListView1.Items.Add.Data['Text1']:= Format('Regular item %d.%d', [Group, Item]); Как добавить свои объекты в LIstViewItem читайте Using the DynamicAppearance Value или смотрите видео.
-
x11 отреагировална Brovin Yaroslav в Добавление изображения в системную галерею изображений
Чтобы добавить любое изображение в системную галерею изображений Андроида нужно:
Получить универсальный URI к вашей картинке GetImageUri. Для этого сохраняем изображение (если изображение находится в памяти устройства, а не в файловой системе) в кэш приложения. Формируем намерение JIntent, что хотим добавить изображение. Задаем URI к картинке и делаем широковещательный запрос на все приложения, которые могут обработать наш запрос. // Сохранение изображения в кэш приложения и извлечение Url к этому файлу function GetImageUri(ABitmap: TBitmap): Jnet_Uri; var ImageFile: JFile; ImageUri: Jnet_Uri; FileNameTemp: JString; FileNameExt: JString; begin FileNameTemp := StringToJString('temp'); FileNameExt := StringToJString('.jpg'); try ImageFile := TJFile.JavaClass.createTempFile(FileNameTemp, FileNameExt); ImageUri := TJnet_Uri.JavaClass.fromFile(ImageFile); ABitmap.SaveToFile(JStringToString(ImageFile.getAbsolutePath)); finally Result := ImageUri; end; end; procedure AddPhotoToGallery(const APhoto: TBitmap); var Intent: JIntent; begin Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_MEDIA_SCANNER_SCAN_FILE); Intent.setData(GetImageUri(APhoto)); SharedActivity.sendBroadcast(Intent); end; -
x11 отреагировална Brovin Yaroslav в Инструкция по установке набора компонентов FGX
Скачать пакет можно здесь: Скачать
1. Удалить старый пакет библиотеки FGX
Открываем среду IDE RAD Studio XE7 с административными правами. В меню открываем менеджер пакетов: "Component -> Install Packages..."
Среди списка компонентов находим "FMX Extension Components". Выделяем и нажимаем кнопку "Remove"
2. Установка пакета библиотеки FGX
Открываем в среде группу проектов. "File -> Open Project -> FGXGroup.groupproj"
Собираем пакет fgx210 для всех требуемых платформ. Выделяем в менеджере проектов нужную платформу "Target Platforms" и в контекстном меню пакета fgx210 выбираем "Build"
Далее повторяем сборку для всех целевых платформ.
3. Устанавливаем Design-Time пакет
Выбираем в группе проектов dclfgx210 пакет и в контекстном меню выбираем "Install"
Если пакет успешно установлен, то появится сообщение со списком зарегистрированных компонентов следующего вида:
Все! Установка окончена.
-
x11 получил реакцию от Anatoliy в Как сделать слайдер с перелистыванием картинок?
статьи уже отсутствуют
-
x11 отреагировална krapotkin в Вызвать Items editor программно во время исполнения приложения
ну вообще Items Editor это часть пакета Design-Time для этого компонента
и она вставляется в IDE но не входит в Run-Time пакет. Так что Items Editor просто нет в вашей программе
-
x11 отреагировална Alexander в LiveBinding Designer не видит поля у DataSet
Через правую кнопку мыши обновите окно Livebinding
-
x11 отреагировална sinuke в Не всплывает меню у TListBoxItem
А PopupMenu вообще в принципе на Андройде показывается?
Тут нужно самому рисовать менюшку. Например вот как-то так https://community.embarcadero.com/blogs/entry/creating-an-overflow-menu-on-android-463
-
x11 отреагировална enatechno в Вывод/отображение нескольких картинок на форме
Основные отличия:
TImageControl - при клике на нем во время выполнения десктоп-приложения открывается диалоговое окно открытия файла, где можно выбрать картинку для отображения в ImageControl. Отображаемая картинка автоматически масштабируется под размеры контрола.
TImageViewer - наследник от TCustomScrollBox и имеет встроенные скроллбары. На десктопах изображение может смещаться с помощью мыши и масштабироваться (колесиком мыши). Также в демках, идущих с RAD, есть пример как масштабировать изображение с помощью жестов на устройствах с тачскрином.
-
x11 отреагировална Равиль Зарипов (ZuBy) в Прокрутка TListBox с эффектом листания
у картинок нужно убрать HitTest, но тогда картинки не будут получать сообщения тапа/мыши
варианты:
использовать TListView выключить HitTest у картинок и в событии TListBox определять позицию картинки по координатам тапа/мыши и выполнять действие -
x11 отреагировална Кривяков Виталий в TUITabControl
Добрый день!
В теме про наш продукт http://fire-monkey.ru/topic/1519-1c-papyc-mobilnoe-prilozhenie-dlia-masterov-priemschiko/ меня просили поделиться исходным кодом компонента TabControl с поддержкой слайда табов пальцем. С удовольствием делюсь
В составе архива сам компонент и пример его использования.
FMXUI.zip
-
x11 получил реакцию от Andrey Efimov в Отладка на устройстве
Удалил HTC Sync Manager. Теперь:
List of devices attached
FA3BBWG01738 unauthorized
-
x11 получил реакцию от Anatoliy в AniIndicator при смене стиля
Ну честно говоря, ради одной этой фишки устанавливать целый пакет компонент пока не вижу смысла.
может что-то ещё понадобится, тогда посмотрим.
-
x11 отреагировална Равиль Зарипов (ZuBy) в Цикл по TTreeView обходит не все уровни
вот пример с EnumControls и ItemByGlobalIndex
никаких проверок не писал, а они нужны в реальном проекте
TreeViewSearch.zip
-
x11 отреагировална Равиль Зарипов (ZuBy) в ItemAppearance Button click
я то как раз понял, а вы видимо нет
Клик был по Item'y, не задевая другие объекты
if ItemObject = nil then begin ShowMessage('Click to Item'); exit; end; Как можно различить объекты в Item'e?
ShowMessage('Name: ' + ItemObject.Name + sLineBreak + 'Text: ' + (ItemObject as TListItemText).Text); -
x11 отреагировална Равиль Зарипов (ZuBy) в ItemAppearance Button click
вот так это делается
LV_ClickEx.zip
-
x11 отреагировална Евгений Корепов в Нет прокрутки VertScrollBox + GridPanelLayout
Эта плюшка уже есть в TEdit, называется TEdit.TextPrompt
-
x11 отреагировална ENERGY в Нет прокрутки VertScrollBox + GridPanelLayout
В мобильных приложениях надо экономить место. Поэтому лэйбл положите прямо внутрь Tedit и TCombobox или Memo (можно сделать в инспекторе объектов), поставьте ему enabled := false чтобы он был серого цвета. Затем на OnChange или OnChangeTracking проверяйте кол. символов и прячьте лэйбл:
Label1.Visible := Edit1.Text.Length = 0;