TMediaPlayer DisplayRect - глюки при изменении

[Dmitry333]

Может кто-нибудь подскажет как лучше устанавливать пропорциональность DisplayRect. если изменять DisplayRect при изменении размеров формы то прога глючит, и ещё, почему при присваивании DisplayRect вызывается метод Play TMediaPlayer?

[notHaker]

если изменять DisplayRect при изменении размеров формы то прога глючит

Каким образом?

[inndim]

А мне кажется, что про TMediaPlayer (уж больно он глючной и древний) вообще нужно зыбыть, и спокойненько использовать сторонние компоненты, например DSPack.

[notHaker]

А мне кажется, что про TMediaPlayer (уж больно он глючной и древний) вообще нужно зыбыть, и спокойненько использовать сторонние компоненты, например DSPack.

Куда глючней ДСПак... А МП для новичков - самое то.

[Dmitry333]

Сообщение от notHaker

Каким образом?

вызываю проседуру Proporc OnResize панели дисплея

procedure TfmMain.Proporc;
var
  rect:Trect;
  kn,e:real;
  w,h:integer;
begin
  // процедура для установки пропорциональности видео
  if (mp.Tag <> 0) and (k>0) and (not titleshow) then
  begin
      imTitle.Visible:=false;
      pnScr.Repaint;

      e:=0.001;
      // расчёт коэффициента пропорциональности панели
      w:=pnScr.Width;
      h:=pnScr.Height;
      kn:=w/h;

      // подстраиваем пропорциональность видео под панель
      while abs(kn-k)>e do
      begin
        if (kn<k) then dec(h) else dec(w);
        kn:=w/h;
      end;

      // устанавливаем видео по-середине
      rect.Top:=round((pnScr.Height - h)/2);
      rect.Bottom:=h;

      rect.Left:=round((pnScr.Width - w)/2);
      rect.Right:=w;

      // присваиваем размер видео плееру
      mp.DisplayRect:=rect;

      // обновляем панель
      pnScr.Repaint;
      exit;
  end;
end;

И почемуто вызывается Play???

[Dmitry333]

Сообщение от inndim

А мне кажется, что про TMediaPlayer (уж больно он глючной и древний) вообще нужно зыбыть, и спокойненько использовать сторонние компоненты, например DSPack.

Да я бы с радостью чего нибудь другое кавырял, но только это курсач младшему курсу, а там надо всё по стандарту и по простому

[notHaker]

По стоп точкам тестили? В этой процедуре всё нормально вроде...