Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

Те кто работал с DirectShow9 и полноэкранным режимом помогите   Найти похожие ветки 

 
Anatol_rus ©   (2008-11-03 00:20) [0]

Народ вот какая у меня проблема.Делаю я свой видеоплеер работающий через DirectX.С помощью вот етой функции DirectShow9,видео приложение или фотка переходит в полноэкранный режим:
function put_FullScreenMode(FullScreenMode: LongBool): HResult;

Но ее минус в том что при ее исполнении не отображается курсор мыши и панель управления видео(воспроизведение,пауза,стоп) моего приложения,что делать подскажите плиз
Мне нужно сделать что-нибудь на подобии в Media Player Classic,чтоб при наведении курсора мыши на нижнюю часть экрана появлялась панель действия.

P.S.Хочу сразу сказать,что предлагаемые методы типа растягивания панели на весь экран мне не нужно,это я и сам знаю.


 
CodeMaster ©   (2008-11-13 17:10) [1]

private
procedure FormSetCursor(Var Message: TMessage); message WM_SETCURSOR;
....
implementation
procedure TForm1.FormSetCursor(var message: TMessage);
begin
inherited;
SetCursor(<Указывай свой курсор>)
end;


 
CodeMaster ©   (2008-11-13 17:14) [2]

Или выводи свой курсор функциями DirectX
На примере DirectDraw:
Res:= FDDSBack.BltFast(MouseX,MouseY,FDDSCursor,DDBLTFAST_WAIT or DDBLTFAST_SRCCOLORKEY,nil);
if Failed(hRet) then
if Failed(RestoreSurface) then begin
ErrorOut("Error BltFast FDDSCursor",hRet);
Application.Terminate;
end;


MouseX,MouseY: Координаты курсора, берутся из GetCursorPos
ErrorOut процедура записи ошибки в файл
Res - hResult;
Application.Terminate - ну думаю это процедура не нуждается в комментировании



Страницы: 1 вся ветка

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.079 c
2-1332844142
TSubject
2012-03-27 14:29
2013.03.22
Delphi ODAC и Русские имена полей


15-1342092360
ПЛОВ
2012-07-12 15:26
2013.03.22
Ошибка Access violation... и странный указатель


15-1334176202
Юрий
2012-04-12 00:30
2013.03.22
С днем рождения ! 12 апреля 2012 четверг


2-1343630882
vasa777
2012-07-30 10:48
2013.03.22
замена или переопределение процедуры


2-1338196726
leklerk
2012-05-28 13:18
2013.03.22
Не работает WinExec