Delphi 5 - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - Delphi 5 (http://forum.oszone.net/showthread.php?t=30481)

Как сделать чтобы форма подстраивалась под размер клипа,
и как увеличивать и уменьшать сам клип

Цитата:

Как сделать чтобы форма подстраивалась под размер клипа

Размести компонент Bevel. Свойству Shape фаски присвой значение bsFrame. Размер формы сделай так, чтобы фаска скрывалась. Не пробЫвал, просто подумал может получится

Не получается.
Клип вообще не хочет проигрываться в Bevel

Добавлено:

Не получается.
Клип вообще не хочет проигрываться в Bevel

Добавлено:

Не получается.
Клип вообще не хочет проигрываться в Bevel

Display :=form1;
displayrect:=rect(bevel1.left +4, bevel1.top +4,0,0);
bevel1.width:=displayrect.right +8;
bevel1.height :=displayrect.bottom +8;
IF bevel1.height = 8 THEN
* self.clientheight:=bevel1.top
ELSE
* self.clientheight:=bevel1.height + bevel1.top + 8;

Galosh

Оно не знает что такое displayrect

Добавлено:

Galosh

Оно не знает что такое displayrect

Добавлено:

Galosh

Оно не знает что такое displayrect

Кинь на форму компонент MediaPlayer(если нету) *и измени:

Код:

Display :=form1; 

displayrect:=rect(bevel1.left +4, bevel1.top +4,0,0); 

bevel1.width:=displayrect.right +8; 

bevel1.height :=displayrect.bottom +8; 

IF bevel1.height = 8 THEN 

 *self.clientheight:=bevel1.top 

ELSE 

 *self.clientheight:=bevel1.height + bevel1.top + 8;

на этот код(вставь его в On Click кнопки, которая открывает медиа файл)

Код:

 

With Mediaplayer1 do 

begin 

open; 

Display :=form1; 

displayrect:=rect(bevel1.left +4, bevel1.top +4,0,0); 

bevel1.width:=displayrect.right +8; 

bevel1.height :=displayrect.bottom +8; 

IF bevel1.height = 8 THEN 

 *self.clientheight:=bevel1.top 

ELSE 

 *self.clientheight:=bevel1.height + bevel1.top + 8; 

end;

уж если это не получится, то анверно я не умею обьснять. Если че, то пиши, вышлю полный исходник готового медиаплеера с подстройкой клипа под размер формы.
:type: *:)

Galosh

Если есть исходник плеера, то вышли, если не жалко:
boss-home@mail.ru

Добавлено:

Galosh

Если есть исходник плеера, то вышли, если не жалко:
boss-home@mail.ru