Fórum O video não fica em tela cheia #187208

08/10/2003

0

Estou usando o seguinte codigo, aonde está o erro, para o video não ficar em tela cheia?

if OpenDialog1.Execute
Then Begin
MediaPlayer1.FileName:= OpenDialog1.FileName;
MediaPlayer1.Open;
MediaPlayer1.Play;
MediaPlayer1.Display:= Form1;
MediaPlayer1.Display.Height:= Screen.Height;
MediaPlayer1.Display.Width:= Screen.Width;
end;


Euler

Euler

Responder

Posts

11/10/2003

Hiko Seijuro

Tente subistituir essas linhas:

MediaPlayer1.Play;
MediaPlayer1.Display:= Form1;

Por algo assim:
MediaPlayer1.Play;
Form1.WindowState := wsNormal;
Form1.BorderStyle := bsNone;
Form1.BorderIcons := [];
MediaPlayer1.Display:= Form1;

Dessa forma, primeiro você vai estar fazendo o form ocupar a tela toda, depois (ficando sem borda e aquela barra de título padrão do windows).
Acredito que estava dando problema porque o video ocupava somente o form inteiro, mas o form em si não ocupava toda tela, por isso o video não ocupava a tela toda.


Responder

Gostei + 0

14/10/2003

Uelcone

naum naum meu amigo....


isto vai dar certo;...


MediaPlayer1.FileName :=´c:\meuVideo.extenção´;
MediaPlayer1.Open;
MediaPlayer1.Display := form1;
MediaPlayer1.DisplayRect := form1.ClientRect;
MediaPlayer1.Play;

isto da certo... naum esqueca de colocar o form para abrir na tela cheia.

Form1.WindowState := wsNormal;
Form1.BorderStyle := bsNone;
Form1.BorderIcons := [];


Responder

Gostei + 0

14/10/2003

Hiko Seijuro

[quote:0b669f8a17=´uelcome e eu´]
Form1.WindowState := wsNormal;
Form1.BorderStyle := bsNone;
Form1.BorderIcons := [];
[/quote:0b669f8a17]

Nós vacilamos em falar que maximizar é assim.
Apenas troque a linha [b:0b669f8a17]Form1.WindowState := wsNormal;[/b:0b669f8a17] (assim fica com a tela normal) por [b:0b669f8a17]Form1.WindowState := wsMaximized; [/b:0b669f8a17] que é para maximizar o form (estando sem borda e sem barra padrão ele ocupará toda a tela).


Responder

Gostei + 0

14/10/2003

Euler

Desta maneira so o form que que fica em tela cheia, o video continua no tamanho normal.


Responder

Gostei + 0

18/10/2003

Gilsonlongo

Olá,

Pelo que entendí, o que vocês estão fazendo para solucionar o problema do form no XP é alterar o Form1.WindowState := wsNormal?

Mas pessoal, se form meia dúzia está bem, mas quando se tem centenas de form´s como proceder?

Deve ter alguma outra maneira,

Estou com erro também ao imprimir QR na Tela - com o método Previewn, dá erro e aborta o sistema????

Grato,


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar