Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];




Вниз

Как вывести ролик на весь экран в TMediaPlayer???? 


volph   (2001-11-13 15:44) [0]

Как вывести ролик на весь экран в TMediaPlayer????



Leshuz   (2001-11-13 19:23) [1]

Дешево и сердито:
Выводи на новую форму, которая StayOnTop (всегда сверху)
и размером на весь экран (кажется Form1.widgh:=screen.widgh или около того)



volph   (2001-11-17 10:22) [2]

А что-бы панели задач не было видно, ну полностью fullscreen (как по alt+enter)!



elchin   (2001-11-18 19:11) [3]

Для фулскрин:

procedure TForm1.fullscreenClick(Sender: TObject);
Var hTaskBar : THandle;
begin
hTaskbar := FindWindow("Shell_TrayWnd", Nil);
ShowWindow(hTaskBar, SW_HIDE);
form1.width:=Screen.width;
form1.height:=Screen.height;
mediaplayer1.display:=form1;
mediaplayer1.displayrect:=forml.clientrect;
form1.WindowState := wsMaximized;
end;

а это чтоб восстоновить:

procedure TForm1.normalscreenclick(Sender: TObject);
Var hTaskBar : THandle;
begin
hTaskbar := FindWindow("Shell_TrayWnd", Nil);
ShowWindow(hTaskBar, SW_SHOWNORMAL);
with form1 do begin
WindowState := wsnormal;
width:=...;
height:=...;
top:=...;
left:=...;
mp1.displayrect:=clientrect;
end;
{и все остальное для восстонавления}
end;




Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.017 c
3-79276           Ars P                 2002-01-31 11:05  2002.02.25  
Чёт совсем запутался с чарсетами в interbase...


4-79512           Andrey80              2001-12-27 00:07  2002.02.25  
Подскажите как вставить иконку нестандартного размера.


4-79516           Алекс1                2001-12-18 10:16  2002.02.25  
Удалить директорию в NT и перезагрузка в NT


1-79322           Mistery               2002-02-07 18:15  2002.02.25  
П - а - м - а - г - а - и - г - и - т - е .


1-79396           Yaro                  2002-02-09 14:35  2002.02.25  
Запуск Ярлыка