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

Aleks Serov

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

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

  • Посещение

Сообщения, опубликованные Aleks Serov

  1. Сделал по Вашему совету так:

    var
    MyItem:TListViewItem;
    begin
    MyItem :=Listview1.Items.Add;
    MyItem.Data['Text1']:='MyData';
    TListItemText(MyItem.Objects.FindDrawable('Text1')).TextColor := TAlphaColorRec.Gold; 
    ListView1.Adapter.ResetView(MyItem);
    ListView1.ApplyStyleLookup;
    end;

     

    Ошибка пропала,но текст свой цвет не меняет, отображается заданным в дизайнере цветом.

    Похоже что при добавлении в список данных менять их цвет нельзя. Может на update прикрутить тогда?

  2. Привет мастера! Хочу поменять цвет строки в списке при внесении в него данных. Это возможно?

    Или только потом уже в событии Update?

    Пробую так:

    var
    MyItem:TListViewItem;
    begin
    MyItem :=Listview1.Items.Add;
    MyItem.Data['Text1']:='MyData';
    MyItem.Objects.TextObject.TextColor :=TAlphaColorRec.Gold; 
    ListView1.Adapter.ResetView(MyItem);
    ListView1.ApplyStyleLookup;
    end;

    но приложение крашиться на строке:

    MyItem.Objects.TextObject.TextColor :=TAlphaColorRec.Gold; 

    Подскажите как правильно реализовать нужную мне функцию?

    Погуглив рабочего решения так и ненашел (((

  3. Если не сложно скиньте пожалуйста рабочий проект видеоплеера под FMX,а то я уже замучился  с ним если честно.

    Стандартный из примеров не умеет масштабировать ролик оставляя черную рамку при увеличении размеров контрола.

    Вроде простая вещь, а мороки с этим плеером вагон и маленькая тележка. Ну что стоило разрабам ТMediaControl

    в Delphi 11 добавить опцию "scaling(stretch) video" или что-то вроде того? Неужели так сложно было?

  4. На GitHub Alcinoe компонент один, ставиться DPK-файлом под Александрию или Сидней версии.

    У меня в палитре Delphi 11 после установки отображает инфу что компоненты лишь под Винду,

    скинул скрин в раннем сообщении и на форму добавить нельзя ничего ((

  5. Скачал на GitHub и поставил компоненты Alcinoe 

    https://github.com/MagicFoundation/Alcinoe

    но они под Win32, а мне надо для Android 11

    Нашел пример видеоплеера для Андроид:

    https://github.com/Embarcadero/RADStudio11Demos/tree/main/Object Pascal/Mobile Snippets/VideoPlayback

    но он не масштабирует ролик в размер MediaControl и видео не на весь экран идет ((

    Если разрешение ролика меньше размеров контрола то ролик идет как-бы в окне(уменьшенным)

    а вокруг него черные рамки

    111.jpg

  6. Всем привет! Как сделать видеоплеер для Андроид 11 на Delphi 11?

    В примерах к Дельфи есть только аудиоплеер а видео нет ((

    Пробовал сам сделать кинул на форму MediaPlayer и MediaControl,указал видеофайл,

    прописал команды воспроизведения на кнопку,видео проигрывается на форме

    но не на весь экран и не в той ориентации(нужна альбомная).

    Подскажите как правильно сделать?

  7. Ищу компонент или пример кода для работы с bluetooth геймпадом для моб.устройств на Android.

    Пробовал использовать примеры Delphi 11 для работы с bluetooth. Удалось лишь

    прочитать списков bluetooth устройств спаренных с телефоном. При попытке конекта

    прогам крашится и данные не удается прочитать с геймпада.

    Кто работал с геймпадами,поделитесь опытом..

    Буду очень признателен!

  8. Трекболл применяют в куче других программ для Андроид, например в приложениях для управления камерами видеонаблюдения.

    Писать может каждый на чем ему удобно,я на Дельфи уже сделал кучу программ для ПК и моим клиентам пофигу на чем они

    написаны,на Дельфи или на Сях или на др.языке, главное чтобы программы выполняли нужную им работу. 

    Если незнаете ответа на заданный мною вопрос то зачем писали коммент? Поучить на чем лучше писать? )))

    Мне нравиться Дельфи, я на ней уже 30 лет пишу(лишь компоненты сам не делал) и дальше буду писать независимо от советов "бывалых" программистов...

  9. Всем привет! Ищу компонент экранный трекбол для управления персонажем в игре на телефоне.

    Среда разработки Delphi 11, телефон Самсунг А31, Андроид 11

    Долго искал в гугле и на разных форумах в итоге ничего под не нашел.

    Вдруг есть у кого или может сделать нужный компонент за вменяемую сумму?

    Рисовать все самому и писать обработчики я не осилю наверно ((

  10. из папки advancedTestApp удалось скомпилить и запустить на смартфоне но ругается что медленная камера и не распознает ни штрихкод, ни QR-код

    мобила Samsung J7 Neo, вроде как не самый худший телефон на сегодня )) barCode сканит без проблем, там вроде тоже ZXing:

    https://barcode-scanner.ru.uptodown.com/android

  11. Привет мастера! Ищу компонент для чтения штрихкодов средствами Дельфи без скачивания других сторонних программ с Маркета.

    есть ли такой? Если да, поделитесь ссылкой или статьей по реализации нужного мне функционала. Большое спасибо!

    Прошерстил форум, всюду предлагают скачать barCode.apk, для интеграции с прогой ZXing но мне бы хотелось все сделать

    в своей программе если это возможно..

  12. Все решил самостоятельно. Как оказалось забыл прописать в

      private
        ClipService: IFMXClipboardService;

    и еще в  FormCreate

    if not TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService,IInterface(ClipService)) then ClipService:=nil;
     

    Теперь все копирует как надо. Может пригодиться кому мой опыт.. )))

  13. Странно но на событии StringGrid1CellClick выполнение такого кода:

    if StringGrid1.Cells[1,StringGrid1.Row]<>'' then ClipService.SetClipboard(StringGrid1.Cells[1,StringGrid1.Row]);

    вешает прогу,а при повторно клике на гриде происходит вылет.. ((

     

  14. Привет мастера! Хочу скопировать по длинному тапу данные ячейки StringGrid,

    на StringGrid1Gesture повесил такой код:

    if EventInfo.GestureID = System.UITypes.igiLongTap then
       begin
       ClipService.SetClipboard(StringGrid1.Cells[1,StringGrid1.Selected]);
       Vibra;
       ShowMessage('Данные скопированы');
       end;

    но получаю access violation, пробовал так еще:

     ClipService.SetClipboard(StringGrid1.Cells[1,StringGrid1.Row]);

    но та же ошибка,хотя данные в ячейке есть. В чем трабла, кто подскажет?

    если закоментить строку ClipService сообщение про копирование данных есть, но данных в буфере нет ))

     

×
×
  • Создать...