Войти

Показать полную графическую версию : Delphi 5


Boss Linuxoid
15-05-2003, 19:07
Как сделать чтобы форма подстраивалась под размер клипа,
и как увеличивать и уменьшать сам клип

Galosh
16-05-2003, 01:42
Как сделать чтобы форма подстраивалась под размер клипаРазмести компонент Bevel. Свойству Shape фаски присвой значение bsFrame. Размер формы сделай так, чтобы фаска скрывалась. Не пробывал, просто подумал может получится

Boss Linuxoid
20-05-2003, 19:03
Не получается.
Клип вообще не хочет проигрываться в Bevel


Добавлено:

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


Добавлено:

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

Galosh
21-05-2003, 00:37
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
26-05-2003, 19:18
Galosh

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




Добавлено:

Galosh

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




Добавлено:

Galosh

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

Galosh
27-05-2003, 00:44
Кинь на форму компонент 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: *:)

Boss Linuxoid
27-05-2003, 16:28
Galosh

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


Добавлено:

Galosh

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




© OSzone.net 2001-2012