Dozent

Я пока не пробовал, появились другие задачи...

Покапавшись в инете нашёл несколько компонентов. Всё более менее рабочие платное. в MJPEG качество картинки не очень в RTSP вообще ни чего не заденьги нет. http://www.datastead.com/ http://www.trichview.ru/ это для VCL

Доброго всем дня. Появилась сильная потребность работать с IP камерой. Необходим захват,, запись, воспроизведение и покрутка. Подскажите у кого есть похожий опыт работы. Какие компоненты, дайте статьи почитать... Камера как я понял пише тв mjpeg

Простите) О каких 2 строках кода Вы говорите?)

у меня динамически они строятся, чото не привлекает вся эта котовасия )

Добрый день. Мне нужно чтобы закладки TabControl распологались слева. Как это можно сделать?

Кажется я разобрался) Проблем была в том что я веду разработку на ноуте) Есть свои особености резрешения и экрана))

Как-то можно научить этот плеер работать с FullHD????

всеее кажысь понял. Плеер не поддерживает разрешения экрана больше HD ?

Вы меня если что сразу извините) Но у меня такое бредовое предположение, что ширину и длину видео компонент берёт относительно контрола а не то сколько он занимает на форме...

В Продолжение этой темы! Я скопировал 3 файла который указаны в последнем собщении. Нашёл ту самую процедуру и внес туда изменения, со своими корективами и удалось подогнать видео под начало контрола, но как его растянуть на весь контрол???? procedure TWindowsMedia.UpdateMediaFromControl; var P: TPointF; R: TRect; Bounds: TRectF; Form: TCommonCustomForm; begin FVMRWindowlessControl9.SetAspectRatioMode(VMR9ARMode_LetterBox); // <-- Добавил if FWnd <> 0 then begin if (Control <> nil) and not (csDesigning in Control.ComponentState) and (Control.ParentedVisible) and (Control.Root <> nil) and (Control.Root.GetObject is TCommonCustomForm) then begin Form := TCommonCustomForm(Control.Root.GetObject); P := GetVideoSize; // Bounds := TRectF.Create(0, 0, P.X, P.Y); ЗАкомитил Bounds := TRectF.Create(Control.Position.X, Control.Position.Y, Control.AbsoluteWidth, Control.AbsoluteHeight);// <-- Изменил, но высота и шрина не поддаются Bounds.Fit(RectF(0, 0, Control.AbsoluteWidth, Control.AbsoluteHeight)); Bounds.Offset(Control.AbsoluteRect.Left, Control.AbsoluteRect.Top); SetParent(FWnd, WindowHandleToPlatform(Form.Handle).Wnd); SetWindowPos(FWnd, 0, Bounds.Round.Left, Bounds.Round.Top, Bounds.Round.Width, Bounds.Round.Height, 0); R := TRect.Create(0, 0, Bounds.Round.Width, Bounds.Round.Height); if FVMRWindowlessControl9 <> nil then FVMRWindowlessControl9.SetVideoPosition(nil, @R); if FVMRWindowlessControl7 <> nil then FVMRWindowlessControl7.SetVideoPosition(nil, @R); ShowWindow(FWnd, SW_SHOW) end else ShowWindow(FWnd, SW_HIDE) end; end; Прошу помощи...

Это всё понятно) Я могу так же взять круги и с ними прекрастно работать, суть проблемы не в то что я не могу перемещать компоненты...

Интересно сейчас можно у кого-нибудь запросить код из того вебинара? Очень хочу увидеть как оно работает...

Ну у меня ХE8. А на видео XE10. В этом причина?

Пробовал) Не в этом дело

Если нужно программировать передвижение самих SelectionPoint`ов то какой смысл от них? С таким же успехом можно взять цирклы

Добрый день! В этом видео на 40:50 показано как можно работать с линией. Прикол в том что я пытаюсь сделать это. На видео Коопоненты SelectionPoint1, SelectionPoint2, Line лежат на форме. И при запуске как минимум точки можно перемещать. Я кидаю так же запускаю и у меня точки не двигаются. Но если их поместить в лайаут они передвигаются мышкой. В чём подвох?

Спасибо большое!

Прикрепляю проект. RPScenarioEditor.7z

Вообщем столкнулся с такой бедой и не знаю как решить! Мне нужно сделать в какой-то контейнер накидать лайауты, кнопки, имейджи, лейблы и тд. Потом нужно чтобы это всё можно было таскать по скролбоксу и создавать копию такого же контейнера! Казалось бы всё можно сделать но тут я в тупике, почему? Я кинуть TCalloutRectangle на форму в нём расположил как мне нужно элементы и научил его двигаться в скролбоксе!! Сижу я тут такой радуюсь смотрю на код) procedure TForm1.crtPhaseMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single); begin zX := X; zY := Y; zIsDragging := true; (Sender as TControl).BringToFront; (Sender as TShape).Fill.Color := TAlphaColorRec.Lightblue; (Sender as TShape).Root.Captured := (Sender as TShape); end; procedure TForm1.crtPhaseMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single); begin if zIsDragging and (ssLeft in Shift) then begin (Sender as TControl).Position.X := (Sender as TControl).Position.X + X - zX; (Sender as TControl).Position.Y := (Sender as TControl).Position.Y + Y - zY; // (Sender as TShape).Fill end; end; Потом такой же радостный беру и копирую код из другого проекта где у меня прекрасно создавались копии накиданные мной . procedure TForm1.Button1Click(Sender: TObject); var Layout: TButton; begin Layout := TButton.Create(GridLayout1); Layout.Parent := GridLayout1; Layout.StyleLookup := 'MainStyle3'; Layout.Position.X := Layout1.Position.X + 10; Layout.Position.Y := Layout1.Position.Y + 10; Layout.Visible := true; GridLayout1.Height := GridLayout1.Height + Layout.Height; end; Сижу и думаю вот контрол сделал он по форме таскается круто шас ещё и научу его многожить))) Но тут горячая обезьянка подкидывает сурпрайз) У TCalloutRectangle и ему подобным нет свойства LoockupStyle. А это значит что стиль я ему предать не могу) Но он хорошо передвигается по форме) Ок делаю кнопку он вроде как стиль применяет, корява но это возмно мой касяк) Но он не передвигается по форме, а при клике по нему выдаёт ошибку First chance exception at $773ADAE8. Exception class EInvalidCast with message 'Invalid class typecast'. Process RPScenarioEditor.exe (4084) Чта делать я в замешательстве!!! Подскажите пожалуйста....

procedure TForm1.ScaledLayout1MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean); var Value: single; begin if WheelDelta > 0 then Value := 0.1 else Value := -0.1; ScaledLayout1.Scale.X := ScaledLayout1.Scale.X + Value; ScaledLayout1.Scale.Y := ScaledLayout1.Scale.X; Label1.Text := VarToStr(ScaledLayout1.Scale.X); Label2.Text := VarToStr(ScaledLayout1.Scale.Y); //Panel1.Align := TAlignLayout.Client; end; Разобрался с изменением размера. Теперь проблема в другом. Уменьшается область экрана и если мышка не в этой области, то панель перестаёт реагировать

Что значит? Более подробно плз) Если нужна прокрутка, то просто менял позицию TScaledLayout.

Добрый день. Мне нужно добиться такого же эффекта как и в браузере, чтобы при зажатой кнопке CTRL + кручение скролла элементы на форме изменяли размеры это возможно?

Добрый день. Столкнулся с проблемой правильного отображения. есть картинка. Которая должна вращаться по принципу часовой стрелки, но при изменении свойства RotationAnge происходит смещение стрелки от своего центра вокруг которого она должна вращаться. Как правильно поворачивать стрелку?

AlexG, к сожалению предложенный вами метод не помог... Буду делать через ImageList правда пока не знаю как)))