POV
Пользователи-
Постов
307 -
Зарегистрирован
-
Посещение
-
Победитель дней
5
Весь контент POV
-
Пасиб, запомню, проверю. Но не сейчас. Уже переделал компонент .
-
Хочу странного, но, казалось, быстро делаемого.. Создаю визуальный компонент. На него в конструкторе кладу другой компонент. И вот события мыши как бы этому динамически созданному назначить, чтобы он обработчики создаваемого компонента использовал?
-
Отдал тестовый софт побаловаться.. На 4х камерах (и, видимо, на разных компах) лишь в одном месте камера заработала.
-
Ну, видимо там ничего хитрого, просто надо потыркаться, варианты поискать. Если камеру остановлю заранее, то закрывается приложение норм. А вот в onClose остановка не работает не работает.
-
Перепробовал кучу всего. В основном для VCL. Заработал лишь платный TVideoGrabber. Затем смог таки установить логитековский драйвер, а не виндовый по умолчанию - заработало всё, что было из вариантов. В том числе и вышеприведённый. Но проблема - не могу закрыть приложение. Лишь из среды убить удаётся. Что я делаю не так?
-
на сайте эмбаркадеры явно написано VideoCaptureDevice extends the TCaptureDevice implementation to add specific behavior for video capturing devices (like web cameras). Т.е. вебка должна бы работать. Однако не выходит каменный цветок: if (m.Current.GetDevicesByName('HD Pro Webcam C920') is TVideoCaptureDevice) then begin VideoCamera := m.Current.GetDevicesByName('HD Pro Webcam C920') as TVideoCaptureDevice; if VideoCamera <> nil then begin VideoCamera.OnSampleBufferReady := VideoBufferReady; VideoCamera.StartCapture; end; end; По StartCapture приложение задумывается на несколько секунд, а затем вылетает с аксесс виолэйшн. Всю вики облазил, не нашел в скудных примерах чего бы такого надо сделать чтобы оно заработало. Так как быть и стоит ли вообще этим заморачиваться в том смысле что темы 2х летней давности говорят о крайней медленности подхода. Оно всё также обстоит?
-
А чем вынь32 вариант не нравится FMX? Я таким образом раскрывам майнменю в нужном месте. А под FMX хоть скомпилилось, но не заработало как я того хочу. keybd_event(VK_MENU, 0, 0 ,0); keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP,0); keybd_event(VK_RIGHT, 0, 0, 0); keybd_event(VK_RIGHT, 0, KEYEVENTF_KEYUP, 0); keybd_event(VK_RIGHT, 0, 0, 0); keybd_event(VK_RIGHT, 0, KEYEVENTF_KEYUP, 0); keybd_event(VK_DOWN, 0, 0, 0); keybd_event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0); keybd_event(VK_RIGHT, 0, 0, 0); keybd_event(VK_RIGHT, 0, KEYEVENTF_KEYUP, 0); keybd_event(VK_DOWN, 0, 0, 0); keybd_event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0); keybd_event(VK_DOWN, 0, 0, 0); keybd_event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0); keybd_event(VK_RIGHT, 0, 0, 0); keybd_event(VK_RIGHT, 0, KEYEVENTF_KEYUP, 0); keybd_event(VK_DOWN, 0, 0, 0); keybd_event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0); keybd_event(VK_DOWN, 0, 0, 0); keybd_event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0);
-
Я оттуда инфу беру по детализации COM-портов
-
SetupAPI в uses не подключается. И SetupAPI.pas нет. При этом С++ проект нормально работает. Как быть?
-
всем привет.. 1) Задумался как получить список сетей (винда). Рекомендаций нашёл море, но всё с использованием API. Не страшно что API. Но чего-то не всё апишное видится. Так и должно быть? 2) Богатый внутренний мир INDY не позволит это мне сделать? Компонентов тьма, может кто скан сетей выполняет?
-
Взял грид от TMS и на нем сделал редакторишко.
-
Угу, ясно.. а по своим заботам - нашёл файл "FMX.Platform.Win.pas" в Берлине Токио, подключил, получил доступ к хендлу окна и убрал с панели задач. В берлине Токио файло уже дописанное, ручками не потребовало ничего делать.
-
Я верно понял, что с панели задач должно убраться название приложения? А то неясно нужно ли оно, при том что не компиляется )) [dcc32 Error] FMX.Platform.Win.pas(240): E2291 Missing implementation of interface method IFMXWindowService.CanShowModal [dcc32 Error] FMX.Platform.Win.pas(240): E2291 Missing implementation of interface method IFMXApplicationService.Running
-
Ручками упомянутое свойство из fmx убери.
-
Вот некую убогость накидал. Может кому пригодится. Используется просто. Сначала создаём объект EdChange:= TChangeEditForAngle.Create; который натравливаем на нужные едиты уже расположенные на форме: EdChange.AddEdit(Edit2); Углы считать и задать можно функциями этого объекта function GetAngle(Sender: TEdit): Extended; procedure SetAngle(Sender: TEdit; angle: Extended); Использует модуль три обработчика едита, но сохраняет при этом обработчики назначенные ранее. USetEditAngle.zip
-
А почему оно не инициализировано в родной библиотеке?
-
Всё уже придумано за нас - у канвы есть MeasureText откуда код на хабре и скопирован. Но и оно возвращает какую-то ересь. Платформа XE8.
-
Когда задал компоненте новый TextSettings функция TextWidth возвращает ширину текста для шрифта по умолчанию. Хотя отрисовывает с моими новыми настройками. Отчего?
-
Ну это безусловно.
-
Сам вчерне накидал такой на фрейме, но не понял как его зарегистрировать на палитре как компонент... если я вообще верно понял что это возможно. Вот может что готовое есть? Перерыл ряд библиотек со всякими компонентами - такого не нашёл.
-
"Намёк поняла, плыву!" (с) народный анекдот
-
Свойство MinSize не прокатывает. Т.к. это влияет на обе разделенные панели. А надо чтобы одна всегда была не меньше какого-то размера. Может есть возможность как-то прервать перемещение сплиттера?