Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Полноэкранное видео в Delphi [D6, WinME]

Shluz © (2003-01-26 23:54:00)
Доброе время суток, уважаемые мастера!!! Вопрос к вам такой: каким образом можно сделать полноэкранное видео?? Т.е. как в Стандартном проигрователе в Выньдос

Shluz (2003-01-28 17:29:00) [1]
спасибо!!!

vvvaaa (2003-01-28 15:07:00) [2]
unit Unit1;
interface

uses
Windows, Messages, SysUtils, Classes, Controls,
Forms,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
//Button1: TButton;
// Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
procedure WMGetMinMaxInfo(var msg: TWMGetMinMaxInfo);
message WM_GETMINMAXINFO;

public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.WMGetMinMaxInfo(var msg:
TWMGetMinMaxInfo);
begin
inherited;
with msg.MinMaxInfo^.ptMaxTrackSize do begin
X := GetDeviceCaps( Canvas.handle, HORZRES ) +
(Width - ClientWidth);
Y := GetDeviceCaps( Canvas.handle, VERTRES ) +
(Height - ClientHeight );
end;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
FullScreen: Boolean;
Rect: TRect;// = (Left: 0; Top: 0; Right: 0; Bottom: 0);

// Разворачиваем на весь экран
begin

FullScreen := true;
if FullScreen then begin
Rect := BoundsRect;
SetBounds( Left - ClientOrigin.X,
Top - ClientOrigin.Y, GetDeviceCaps( Canvas.handle,
HORZRES )
+ (Width - ClientWidth), GetDeviceCaps( Canvas.handle,
VERTRES )
+ (Height - ClientHeight ));
end
else BoundsRect := Rect;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;

end.

У меня работает.

Shluz (2003-01-28 13:23:00) [3]
видео в таком случае изображается в своем первоначальном размере :((

pasha676 (2003-01-28 10:06:00) [4]
Ну так и посмотри хелп на медиаплэйер. На крайняк, если у медиаплэйера этого нет - у формы убери бордюры всякого рода и разверни форму на весь экран.

Shluz (2003-01-27 18:43:00) [5]
видео - Avi , проигрываю стандартным компонентом MediaPlayer, display -форма

pasha676 (2003-01-27 13:49:00) [6]
Смотря как ты делаешь видео. Откуда берешь видео, с помощью чего выводишь.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »