Вячеслав

Всем добрый день! Возник вопрос, можно ли при динамическом создании VCL компонента (Vcl.ExtCtrls.TPanel) указать в качестве предка форму FireMonkey? А то на данный момент приходится поступать так: procedure TForm1.FormCreate(Sender: TObject); var VCLform: Vcl.Forms.TForm; VCLPanel: Vcl.ExtCtrls.TPanel; begin //Создаем родительскую VCL форму для размещения на ней VCL панели VCLform := Vcl.Forms.TForm.Create(Self); VCLform.Width := 1300; VCLform.Height := 500; VCLform.Show; //Создаем VCL панель VCLPanel := Vcl.ExtCtrls.TPanel.Create(Self); VCLPanel.Parent := VCLform; // <--- Интересует, по сути, вот эта строчка VCLPanel.Left := 0; VCLPanel.Top := 0; VCLPanel.Width := 640; VCLPanel.Height := 480; end; Хотелось бы избавится от необходимости создавать VCL форму только для того, чтобы она служила контейнером для VCL панели.

В некоторых случаях даже на Windows на достаточно мощном ПК наблюдаются подтормаживания. И глобально эту проблему решить пока не представляется возможным, только постепенной оптимизацией.

Проверить сейчас нет возможности, но я бы для начала попробовал поместить оба изображения в родительский контрол TRectangle со свойством ClipChildren=true для обрезки дочерних изображений, выходящих за границы контрола. Одну картинку растянул по Rectangle, а вторую поместил ровно под ним (через Image2.Position.X:=0, Image2.Position.Y:=Rectangle.Height). Она должна быть полностью "обрезана" нижней границей Rectangle. Ну а дальше через FloatAnimation уменьшаем Image2.Position.Y с начального значения до нуля за нужное время с задержкой в пару секунд.

Все, вопрос снят. Всего-навсего нужно было отрисовать форму через PaintTo в Canvas. Единственное отличие от отрисовки контрола-у метода PaintTo формы входной параметр только один-TCanvas.

Господа, озадачился вопросом получения скриншота формы. Статью Ярослава прочитал, разобрался, но в ней описан метод получения скриншота произвольного контрола с помощью метода PainTo. У формы же этот метод иной, поэтому возникли затруднения.

Решение оказалось довольно простым. Кидаем на форму Layout, в него устанавливаем Lable и позиционирует таким образом, чтобы центр Lable находился в том же месте, что и верхний левый угол Layout. Сделать это нетрудно как в Design Time, так и в Run Time. После этого масштабируем Layout, что приведет к автоматическому масштабированию Lable относительно его центра. Думаю, на этом тему стоит закрыть.

Понял, спасибо!

По-видимому, у них сейчас что-то обновилось. По ссылке нет файлов.

Огромное человеческое спасибо Вам! Это как раз то, что мне нужно!) И, кстати говоря, теперь все работает прекрасно, никакой "кривости". Просто вывожу видеопотоки на форму, а не на панели.

А как на счет Handle у нескольких форм в FM? Есть возможность получить их? Про FMX.Platform.Win.ApplicationHWND я прочитал, но это ведь только хендл самого приложения. Вернее, основной формы, если я правильно понял.

Вы правы, я именно это и хочу сделать-вывести на панель видеопоток с нескольких камер, используя DirectShow. И это крайне печальная ситуация для меня. Что же, дорога вырастает под ногами идущего, спасибо за помощь!

Добрый день, друзья! Пытаюсь восстановить старый код, в котором использовался Handle у панели: FVideoWindow.put_Owner(Panel.Handle); Теперь же у панели отсутствует хендл как таковой, и я все никак не разберусь, как этот момент следует обходить. Может, у кого-нибудь есть мысли на этот счет?

Несомненно, Вы правы. Поэтому я и написал про "очень трудно". А так и на ассемблере можно под Windows писать

Несомненно, в версиях RAD Studio присутствуют непонятные баги, о которых довольно часто пишут на этом и иных форумах. Иногда это жутко мешает, приходится терять много времени на разбор проблемы, поиск иного решения и пр. Но справедливости ради хотел бы высказать несколько слов в защиту разработчиков. Вы говорите о реальном коммерческом продукте со своими плюсами и минусами. И абсолютно нормально то, что он не идеален за такие деньги. Используя Delphi всего лишь 6 лет и вспоминая о Delphi7, приятно ностальгирую о действительно корректной и простой работе. Работе над МОРАЛЬНО УСТАРЕВШИМИ приложениями. Время не стоит на месте, и задачи, решавшиеся ТОГДА, уже совершенно неактуальны сейчас. К примеру, для меня очень важна быстрая разработка красивых и живых интерфейсов пользователя, кому-то другому подавай приложения под Андроид/IOS. И на Делфи7 это сделать невозможно или очень трудно. А на этом форуме очень много разработчиков получают помощь от Ярослава Бровина и других участников, решают свои проблемы. Абсолютно бесплатно. Прошу прощения за флуд, думаю, что корректнее обсуждать проблемы продуктов Embarcadero в отдельной ветке.

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

Поигрался с этими свойствами, результат прежний, увы. ScaleAnimation.zip

Думаю, что все должно завестись, но смогу проверить лишь на работе в понедельник. Как проверю-сразу отпишусь К сожалению, жесты так и не завелись. Сделал все так, как Вы описали, но результат прежний-при отсутствии у формы рамки FireMonkey не обрабатывает жесты. По крайней мере на версии XE5

Это же просто прекрасно! Спасибо большое!

Спасибо! Попробую) Странно, но не помогло. После Align = Center анимация продолжает масштабировать компонент "вправо", а не из центра.

День добрый! Необходимо создать форму, размер которой превышал бы размер экрана (буквально на несколько пикселей). А ее даже вручную растянуть не получается, windows, по ходу, блокирует эту возможность. Есть способы?

Добрый день! Хочу заанимировать Lable таким образом, чтобы параметр Scale.X линейно увеличивался. Но при этом необходимо, чтобы центр компонента оставался на своем месте. А параметр Scale.X за начало отсчета принимает верхний левый угол лейбла. Есть ли возможность изменить центр масштабирования компонента? Я данную задачу уже решил путем добавления анимации смещения влево, но этот способ мне кажется топорным и неоптимальным.

Хм, а есть возможность ее обойти в 5 версии RAD Studio? Или только в более поздних версиях будет исправлено?

Добрый вечер, Ярослав! Хочу поделиться еще одним интересным фактом: сегодня проверил данную проблему на другом компьютере, версия RAD Studio XE3 и все завелось без проблем. Таким образом начинаю сомневаться в том, что это баг ФМ, возможно, просто на моей машине по каким-то причинам на XE5 не хотят запускаться жесты при bsNone. Быть может не хватает каких-либо библиотек. Не подскажете, каким образом это лучше всего проверить?

Ярослав, добрый день! Думаю, с моей стороны назойливо спрашивать, но Вы смотрели проект? Просто у меня сейчас стоит дилемма о том, отказываться ли от жестов или от полноэкранного режима отображения. Либо искать обходные пути, вроде задания координат и размеров формы при запуске.

Вот пара скриншотов, на первом приложение не реагирует на жесты, на втором все корректно.