Delphi

Galosh · Отправлено: **01:42, 16-05-2003** | #2

Цитата:

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

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

Boss Linuxoid · Отправлено: **19:03, 20-05-2003** | #3

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

Добавлено:

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

Добавлено:

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

Galosh · Отправлено: **00:37, 21-05-2003** | #4

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;

Boss Linuxoid · Отправлено: **19:18, 26-05-2003** | #5

Galosh

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

Добавлено:

Galosh

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

Добавлено:

Galosh

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

Galosh · Отправлено: **00:44, 27-05-2003** | #6

Кинь на форму компонент 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;

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

*

Boss Linuxoid · Отправлено: **16:28, 27-05-2003** | #7

Galosh

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

Добавлено:

Galosh

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