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;

Прошу помощи...

14 часов назад, Alexander сказал:

Перемещение контролов

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

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

Ну у меня Х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;

Разобрался с изменением размера. Теперь проблема в другом. Уменьшается область экрана и если мышка не в этой области, то панель перестаёт реагировать

Что значит? Более подробно плз)

1. Если нужна прокрутка, то просто менял позицию TScaledLayout.

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

Добрый день. Столкнулся с проблемой правильного отображения. есть картинка.

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

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