Показать полную графическую версию : Delphi 5
Boss Linuxoid
15-05-2003, 19:07
Как сделать чтобы форма подстраивалась под размер клипа,
и как увеличивать и уменьшать сам клип
Как сделать чтобы форма подстраивалась под размер клипаРазмести компонент Bevel. Свойству Shape фаски присвой значение bsFrame. Размер формы сделай так, чтобы фаска скрывалась. Не пробывал, просто подумал может получится
Boss Linuxoid
20-05-2003, 19:03
Не получается.
Клип вообще не хочет проигрываться в 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;
Boss Linuxoid
26-05-2003, 19:18
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: *:)
Boss Linuxoid
27-05-2003, 16:28
Galosh
Если есть исходник плеера, то вышли, если не жалко:
boss-home@mail.ru
Добавлено:
Galosh
Если есть исходник плеера, то вышли, если не жалко:
boss-home@mail.ru
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.