Перейти к содержанию
Fire Monkey от А до Я

x11

Пользователи
  • Постов

    828
  • Зарегистрирован

  • Посещение

  • Победитель дней

    13

Активность репутации

  1. Like
    x11 получил реакцию от Ingalime в DevExpress для FMX   
    Разработчики DevExpress разрабатывают пробные компоненты для Firemonkey
    отсюда
    http://www.sql.ru/forum/1279315-1/na-delphi-dlya-linux-v-etot-raz-s-interfeysom

  2. Like
    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()
     
  3. Like
    x11 отреагировална krapotkin в Цикл по unicode строке   
    гораздо проще 
    '1234567890'.Contains(ch)
  4. Like
    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
  5. Like
    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
  6. Like
    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
  7. Like
    x11 получил реакцию от Anatoliy в OrangeUI   
    За смену картинки пальцем отвечают несколько свойств.
    SkinFMXImageListViewer1.Properties.CanGestureSwitch;
    SkinFMXImageListViewer1.Properties.ImageListSwitchEffectType;
     
    Программно:
    ImageListViewer.Prop.SwitchNext;
    ImageListViewer.Prop.SwitchPrior;
     
    Вместо полного названия свойства Properties можно использовать сокращение Prop.
  8. Like
    x11 получил реакцию от Anatoliy в OrangeUI   
    Чтобы SkinFMXImageListViewer нормально вписывал картинку, нужно прикрутить TSkinImageListViewerDefaultMaterial и уже в этой компоненте настраивать.
    Не обязательно использовать  отдельный TSkinImageListViewerDefaultMaterial, достаточно включить свойство MaterialUserKind := mukSelfOwn, при этом свойство SelfOwnMaterial будет заполнено автоматически своей компонентой, но на форме её не будет.
    Думаю, что TSkinImageListViewerDefaultMaterial удобно использовать, если есть несколько SkinFMXImageListViewer, подключенных к единой компоненте TSkinImageListViewerDefaultMaterial.

  9. Like
    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 или смотрите видео.
     
  10. Like
    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;
  11. Like
    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"
    Если пакет успешно установлен, то появится сообщение со списком зарегистрированных компонентов следующего вида:

    Все! Установка окончена.
  12. Like
    x11 получил реакцию от Anatoliy в Как сделать слайдер с перелистыванием картинок?   
    статьи уже отсутствуют
  13. Like
    x11 отреагировална krapotkin в Вызвать Items editor программно во время исполнения приложения   
    ну вообще Items Editor это часть пакета Design-Time для этого компонента
    и она вставляется в IDE но не входит в Run-Time пакет. Так что Items Editor просто нет в вашей программе
  14. Like
    x11 отреагировална Alexander в LiveBinding Designer не видит поля у DataSet   
    Через правую кнопку мыши обновите окно Livebinding
  15. Like
    x11 отреагировална sinuke в Не всплывает меню у TListBoxItem   
    А PopupMenu вообще в принципе на Андройде показывается?
    Тут нужно самому рисовать менюшку. Например вот как-то так https://community.embarcadero.com/blogs/entry/creating-an-overflow-menu-on-android-463
  16. Like
    x11 отреагировална enatechno в Вывод/отображение нескольких картинок на форме   
    Основные отличия:

    TImageControl - при клике на нем во время выполнения десктоп-приложения открывается диалоговое окно открытия файла, где можно выбрать картинку для отображения в ImageControl. Отображаемая картинка автоматически масштабируется под размеры контрола.

    TImageViewer  - наследник от TCustomScrollBox и имеет встроенные скроллбары. На десктопах изображение может смещаться с помощью мыши и масштабироваться  (колесиком мыши). Также в демках, идущих с RAD, есть пример как масштабировать изображение с помощью жестов на устройствах с тачскрином.  
  17. Like
    x11 отреагировална Равиль Зарипов (ZuBy) в Прокрутка TListBox с эффектом листания   
    у картинок нужно убрать HitTest, но тогда картинки не будут получать сообщения тапа/мыши
    варианты:
    использовать TListView выключить HitTest у картинок и в событии TListBox определять позицию картинки по координатам тапа/мыши и выполнять действие
  18. Like
    x11 отреагировална Кривяков Виталий в TUITabControl   
    Добрый день!
     
    В теме про наш продукт http://fire-monkey.ru/topic/1519-1c-papyc-mobilnoe-prilozhenie-dlia-masterov-priemschiko/ меня просили поделиться исходным кодом компонента TabControl с поддержкой слайда табов пальцем. С удовольствием делюсь
    В составе архива сам компонент и пример его использования.
    FMXUI.zip
  19. Like
    x11 получил реакцию от Andrey Efimov в Отладка на устройстве   
    Удалил HTC Sync Manager. Теперь:
    List of devices attached
    FA3BBWG01738    unauthorized
     
  20. Like
    x11 получил реакцию от Anatoliy в AniIndicator при смене стиля   
    Ну честно говоря, ради одной этой фишки устанавливать целый пакет компонент пока не вижу смысла.
    может что-то ещё понадобится, тогда посмотрим.
  21. Like
    x11 отреагировална Равиль Зарипов (ZuBy) в Цикл по TTreeView обходит не все уровни   
    вот пример с EnumControls и ItemByGlobalIndex
    никаких проверок не писал, а они нужны в реальном проекте
    TreeViewSearch.zip
  22. Like
    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);
  23. Like
    x11 отреагировална Равиль Зарипов (ZuBy) в ItemAppearance Button click   
    вот так это делается
    LV_ClickEx.zip
  24. Like
    x11 отреагировална Евгений Корепов в Нет прокрутки VertScrollBox + GridPanelLayout   
    Эта плюшка уже есть в TEdit, называется TEdit.TextPrompt 
  25. Like
    x11 отреагировална ENERGY в Нет прокрутки VertScrollBox + GridPanelLayout   
    В мобильных приложениях надо экономить место. Поэтому лэйбл положите прямо внутрь Tedit и TCombobox или Memo (можно сделать в инспекторе объектов), поставьте ему enabled := false чтобы он был серого цвета. Затем на OnChange или OnChangeTracking проверяйте кол. символов и прячьте лэйбл: 
    Label1.Visible :=   Edit1.Text.Length = 0;
×
×
  • Создать...