VPF::Пропорции видео - Форум программистов

кИлОбАйТ

Дата 31.3.2006, 02:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 31.3.2006

Репутация: нет
Всего: нет

Всем привет! Вот столкнулся с такой проблемой:
Как в плеере реализовать изменение размеров, чтобы сохранялись пропорции(или хотя бы как узнать эти пропорции при помощи IBasicVideo)?

s-mike

Дата 1.4.2006, 13:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 425
Регистрация: 16.1.2005
Где: Киев

Репутация: 5
Всего: 16

Если изменяется ширина, то пропорционально увеличивать высоту, если высота - то ширину. Или имеется в виду что-то другое?

--------------------

Преферанс для Android на базе исходников Марьяжа

кИлОбАйТ

Дата 4.4.2006, 03:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 31.3.2006

Репутация: нет
Всего: нет

Спасибо. Для тех кто интересуется:

Код


vw:IVideoWindow;
...
procedure SetPosition(Left,Top:integer;Width,height:integer);
var
vaspect:real;
paspect:real;
newh,neww:integer;
begin
if (Height=0)or(Width=0) then exit;
vaspect:=GetFilmHeight/GetFilmWidth;
paspect:=Height/Width;

if (vaspect>paspect) then
 begin
 newh:=Height;
 neww:=trunc(NewH /vaspect);
 end else if(vaspect<paspect) then
   begin
   neww:=Width;
   newh:=trunc(NewW*vaspect);
   end else
     begin
     neww:=Width;
     Newh:=Height;
     end;

vw.SetWindowPosition((Left+Width-neww) div 2,(Top+Height-newh)div 2,neww,newh);
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »