घर
Top.Mail.Ru Yandeks.Metrika
मंच: "मीडिया";
वर्तमान संग्रह: 2003.05.05;
डाउनलोड करें: [xml.tar.bz2];

नीचे

डेल्फी में पूर्ण स्क्रीन वीडियो इसी तरह की शाखाएँ खोजें


Shluz   (2003-01-26 23:54) [0]

Доброе время суток, уважаемые мастера!!! Вопрос к вам такой: каким образом можно сделать полноэкранное видео?? Т.е. как в Стандартном проигрователе в Выньдос



pasha676   (2003-01-27 13:49) [1]

Смотря как ты делаешь видео. Откуда берешь видео, с помощью чего выводишь.



Shluz   (2003-01-27 18:43) [2]

видео - Avi , проигрываю стандартным компонентом MediaPlayer, display -форма



pasha676   (2003-01-28 10:06) [3]

खैर, मीडिया प्लेयर पर मदद को देखो। चरम सीमा तक, यदि मीडिया प्लेयर के पास यह नहीं है, तो फ़ॉर्म से सभी प्रकार की सीमाओं को हटा दें और फ़ॉर्म को पूर्ण स्क्रीन पर विस्तारित करें।



Shluz   (2003-01-28 13:23) [4]

видео в таком случае изображается в своем первоначальном размере :((



vvvaaa   (2003-01-28 15:07) [5]

इकाई Unit1;
इंटरफेस

का उपयोग करता है
Windows, Messages, SysUtils, Classes, Controls,
फार्म,
StdCtrls;

टाइप
TForm1 = वर्ग (TForm)
Button1: TButton;
Button2: TButton;
//Button1: TButton;
// Button2: TButton;
प्रक्रिया Button1Click (प्रेषक: Tobject);
प्रक्रिया Button2Click (प्रेषक: Tobject);
निजी
{निजी घोषणाएँ}
procedure WMGetMinMaxInfo(var msg: TWMGetMinMaxInfo);
message WM_GETMINMAXINFO;

सार्वजनिक
{सार्वजनिक घोषणाएँ}
अंत;

था
Form1: TForm1;

कार्यान्वयन

{$ R * .DFM}
procedure TForm1.WMGetMinMaxInfo(var msg:
TWMGetMinMaxInfo);
शुरू करना
विरासत में मिला;
with msg.MinMaxInfo^.ptMaxTrackSize do begin
X := GetDeviceCaps( Canvas.handle, HORZRES ) +
(Width - ClientWidth);
Y := GetDeviceCaps( Canvas.handle, VERTRES ) +
(Height - ClientHeight );
अंत;

अंत;

प्रक्रिया TForm1.Button1 क्लिक करें (प्रेषक: TObject);
था
FullScreen: Boolean;
Rect: TRect;// = (Left: 0; Top: 0; Right: 0; Bottom: 0);

// Разворачиваем на весь экран
शुरू करना

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 ));
समाप्त
else BoundsRect := Rect;
अंत;

प्रक्रिया TForm1.Button2 क्लिक करें (प्रेषक: TObject);
शुरू करना
बंद;
अंत;

समाप्त।

यह मेरे लिए काम करता है।



Shluz   (2003-01-28 17:29) [6]

спасибо !!!



पन्ने: 1 पूरी शाखा

मंच: "मीडिया";
वर्तमान संग्रह: 2003.05.05;
डाउनलोड करें: [xml.tar.bz2];

ऊपर





मेमोरी: 0.56 एमबी
समय: 0.022 c
14-12899
SiJack
2003-04-16 16:27
2003.05.05
ADO प्रवेश


1-12712
एलेक्सा
2003-04-23 15:16
2003.05.05
StatusBar और डबल क्लिक करें


1-12699
सर्गेई च
2003-04-23 11:09
2003.05.05
एमएस वर्ड के साथ काम करें


9-12592
JOG2
2002-07-25 13:10
2003.05.05
समस्या! (एक शुरुआत में मदद करें!)


3-12607
_MAX_
2003-04-14 18:01
2003.05.05
Oracle से BDEClientDataSet में डेटा फ़ेच





अफ्रीकी अल्बानियन अरबी भाषा अर्मेनियाई आज़रबाइजानी बस्क बेलारूसी बल्गेरियाई कैटलन सरलीकृत चीनी) चीनी पारंपरिक) क्रोएशियाई चेक डेनिश डच अंग्रेज़ी एस्तोनियावासी फिलिपिनो फिनिश फ्रेंच
गैलिशियन् जॉर्जियाई जर्मन यूनानी हाईटियन यहूदी हिंदी हंगरी आइसलैंड का इन्डोनेशियाई आयरिश इतालवी जापानी कोरियाई लात्वीयावासी लिथुआनियाई मेसीडोनियन मलायी मोलतिज़ नार्वेजियन
फ़ारसी पोलिश पुर्तगाली रोमानियाई रूसी सर्बियाई स्लोवाक स्लोवेनियाई स्पेनिश स्वाहिली स्वीडिश थाई तुर्की यूक्रेनी उर्दू वियतनामी वेल्श यहूदी बंगाली बोस्नियाई
सिबुआनो एस्पेरांतो गुजराती हौसा हमोंग ईग्बो जावानीस कन्नड़ खमेर लाओ लैटिन माओरी मराठी मंगोलियन नेपाली पंजाबी सोमाली तामिल तेलुगु योरूबा
ज़ुलु
Английский Французский Немецкий Итальянский Португальский Русский Испанский