des80

Пользователи
  • Публикаций

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

  • Посещение

Информация о des80

  • Звание
    Продвинутый пользователь

Посетители профиля

Блок последних пользователей отключён и не показывается другим пользователям.

Включить
  1. Спасибо большое! Это именно то что нужно, а я уже тут начал менять стандартный модуль FMX.Platform.Win, но ваш способ проще и красивей
  2. да, я могу воспроизводить видео только на форме, потому что все остальное в fmx хэндлов не имеет то эта форма у меня висит alwaysontop. Чтобы она не перекрывала окна других приложений, которые могут быть открыты на компе эта форма просто пропадает когда главная форма деактивируется. Поэтому мне нежелетаельно, чтобы она активировалась при клике, потому что срабатывает Deactivate у главного окна и она пропадает. Если сделать через OnClick и возвращать фокус, то будет мерцание некрасивое, ну и другие причины есть, которые долго расписывать.
  3. виндовс, видео воспроизводится через dll регистратора. Я там дергаю 3-4 функции из этой dll, в функцию Play мне нужно передать handle окна, чтобы на него воспроизводилось видео
  4. потому что у меня с видеорегистратора воспроизводится поток видео на форме. Мне нужно чтобы объект имел handle окна, а фрейм handle не имеет
  5. OnClick не вариант, потому что на событии OnDeactivate основной формы происходят некоторые вещи, которые не должны происходить при клике конкретно на эту форму. У меня именно FMX форма. На VCL я бы просто переопределил процедуру которая отлавливает события и при WM_ACTIVATE поставил заглушку, а в FMX я так сделать не могу
  6. У меня есть форма AlwaysOnTop, я пытаюсь сделать чтобы она не активировалась, не забирала фокус у другой формы при клике на нее, а просто висела поверх всех окон. Процедура Activate у ее предка TCommonCustomForm не виртуальная, поэтому я не могу ее переопределить. Я пробовал через helper TVideoFormHelper = class helper for TCommonCustomForm public procedure Activate; end; procedure TVideoFormHelper.Activate; begin showmessage('123'); end; Но все равно почему то не срабатывает. Сообщение 123 не показывается, а вызывается обычный Activate класса. Что я делаю не так в хелпере? Есть ли какой то другой способ? И если все таки можно через хелпер то как мне сделать чтобы функция ничего не делала только если класс TVideoForm, а в остальных случаях работала как обычно if self is TVideoForm then exit else // тут вызываем нормальный activate класса TCommonCustomForm
  7. я использую не TImage а эффект TShadowEffect. Это эффект создает огромную битмапу тени сам у себя внутри для большой панели и выпадет ошибка
  8. У меня есть панель которая находится в скроллбоксе, у панели есть эффект тени, размер панели может быть очень большим, в зависимости от данных из бд, которые на ней рисуются. Размер может доходить до 15000 пикселей, в результате вылезает ошибка bitmap size too big. Что касается отрисовки данных на ней, то я могу легко решить эту проблему отрисовывая только те данные, которые видны в текущий момент в скролл боксе, но остался только эффект тени, который мешает решить эту проблему. Можно ли каким то образом отрисовывать только видимую в скроллбоксе часть тени, а не всю, чтобы картинка тени не растягивалась до недопустимых размеров?
  9. des80

    Скриншот формы

    Передо мной стоит задача сделать видео плеер, в котором я могу запускать, останавливать видео с регистратора. Видео с регистратора потоком рисуется на форму( передаю в функцию handle окна и рисуется). Но мне нужно чтобы видео было не в отдельном окне, а на панельке, поэтому я придумал создавать форму на которою идет видео, спрятать ее за пределами экрана и рисовать то что на ней нарисовано на панельку по таймеру каждые 10 миллисекунд. Однако PaintTo не срабатывает, он делает скриншот формы со всемя компонентами на ней, но игнорирует то что на ней рисует поток с видеорегистратора. Как можно сделать скриншот формы вместе с картинкой с регистратора?
  10. какой еще позицией? Я всего то задал вопрос, а зарипов его неправильно понял и киданул мне решение, которое я слил, это задело его опухшее чсв и он стал бросаться фразочками типо "говнокод" или "я не хочу думать! я хочу кнопку, нажимаешь и все работает" , на такой бред я не мог не ответить.
  11. ну тут 2 варианта : либо ты слабоумный, раз не понял что я имел ввиду после такого разжевывания либо я непонятно объясняю суть проблемы
  12. ты дурак или нет? 1.У меня уже есть проект, в котором 100 форм, я прекрасно знаю как это сделать, я прекрасно знаю что мне нужно прописать ApplyFontToForm в OnShow каждой формы, но мне придется делать это 100 раз, а я задал здесь этот вопрос, чтобы узнать можно ли ОДИН раз задать что Arial это дефолтный шрифт, шрифт по умолчанию. Во всех 100 формах у меня везде шрифт прописан (default). А что это за шрифт default? какой шрифт по факту туда подставляется? и можно ли ЗАМЕНИТЬ этот шрифт по умолчанию. Этот шрифт задается в настройках винды? или его можно задать отдельно в моей программе? 2.Ок, я написал 100 раз на 100 формах ApplyFontToForm в OnShow. А потом у меня создаются кнопки и лабелы после выполнения этого кода и на ней будет стандартный шрифт, а не тот который я задал в ApplyFontToForm. Да я могу без проблем задать шрифт при создании компонента, но КОД УЖЕ НАПИСАН И ЕГО МНОГО и мне опять таки мне придется это делать много много раз, во многих местах прописывать Familyfont='Arial'. Понимаешь, нет?
  13. Да поздно уже наследовать. Проект уже написан. И опять таки это не решает проблему с динамически создаваемыми компонентами на формах-наследниках