Discussion :

[cincap]

Bonjour à toutes et à tous.

Je me demandais si c'était possible de faire afficher le Popupmenu de la fenêtre principale lorsque le TWindowsMediaPlayer est en mode FullScreen.

Je n'ai rien trouvé sur le Net à ce sujet !

A mon avis pas possible mais souvent je suis étonné des réponses émises par les cracks de ce site.

J'utilise la propriété FullScreen du composant TWindowsMediaPlayer donc pas d'une TForm en mode agrandi.

Merci d'avance,

@+,

cincap

[ShaiLeTroll]

C'est la version importée de l'activeX ?

enableContextMenu et get_uiMode impact le comportement du fullscreen

Remarks de IWMPPlayer::put_enableContextMenu method

During full-screen playback, Windows Media Player hides the mouse cursor when the VARIANT_BOOL retrieved by IWMPPlayer::get_enableContextMenu equals FALSE and the BSTR retrieved by IWMPPlayer::get_uiMode equals "none".

[cincap]

@ ShaiLeTroll, merci de ta réponse,

C'est la version importée de l'activeX ?

Oui et voici la commande que j'emploie pour le FullScreen :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
procedure TForm1.BFullClick(Sender: TObject);
begin
if Wp1.playState in [wmppsPlaying,wmppsPaused] then
    Wp1.fullScreen := not Wp1.fullScreen;
end;

J'ai désactivé le menu contextuel directement depuis le composant !

Je vais essayer de tester tes remarques.

@+,

cincap

[Cirec]

Bonjour,

alors c'est assez simple.
il faut un popupmenu nommé PopupMenu1
dans le OnShow de la FormPrincipale:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
procedure TForm14.FormShow(Sender: TObject);
begin
  // ne soutout pas placer dans le OnCreate sinon --> violation d'accès
  WindowsMediaPlayer1.enableContextMenu:= False;
end;

[Edit]

J'ai désactivé le menu contextuel directement depuis le composant !

Désactiver le menu contextuel depuis l'inspecteur d'objets ne fonctionne pas !!!
[/Edit]
pour le composant WindowsMediaPlayer:
uimode := 'full';
dans le OnClick du WindowsMediaPlayer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm14.WindowsMediaPlayer1Click(ASender: TObject; nButton,
  nShiftState: Smallint; fX, fY: Integer);
var
  PT: TPoint;
begin
  if nButton = 2 then
    if WindowsMediaPlayer1.fullScreen then
      PopupMenu1.Popup(fX, FY)
    else
    begin
      PT := ClientToScreen(Point(fX, FY));
      PopupMenu1.Popup(PT.X, PT.Y);
    end;
end;

Cordialement,
@+

[cincap]

Bonjour à toutes et à tous,

@ Cirec, hello merci de tes suggestions mais....

Désactiver le menu contextuel depuis l'inspecteur d'objets ne fonctionne pas !!!

Sur D6, ce n'est pas depuis l'inspecteur d'objets mais avant de compiler, si je double click sur le composant TWindowsMediaPlayer, j'active une boite des propriétés du composant avec 2 onglets et sur "Statistiques avancées" je peus activer ou non ce menu contextuel.

Comme tu le précises on peut le faire aussi dans le OnShow.

Mon problème c'est que sur ma fiche principale j'ai bien un Tpopumenu mais en mode fullscreen il ne s'affiche pas d'ou l'existance de mon topic.


@+,

cincap

[Cirec]

re,

en fait ce n'est pas qu'une suggestion
mais j'ai effectué un test avec un TWindowsMediaPlayer en FullScreen
et ça fonctionne parfaitement !!!

Donc as-tu testé le code que j'ai donné ?

Cordialement,
@+

[cincap]

@ Cirec, oui je l'ai testé et je confirme que cela fonctionne alors que je n'avais rien trouvé à ce sujet, super.

Mais dans mon application, j'avais désactivé les boutons pour mettre les miens et lorsque je fait le test, la barre des boutons du lecteur apparait et donc diminue la hauteur de l'écran.

Cela ne me convient donc pas pour ce que je voulais faire.

Comme il y a une solution, je ferme le topic

Encore merci à tous et à Cirec.

@+,

cincap

[ShaiLeTroll]

Dans la doc de uiMode

This method retrieves the appearance of the embedded Windows Media Player. When the BSTR retrieved from get_uiMode is "none", "mini", or "full", a window is present for the display of video clips and audio visualizations. This window can be hidden in mini or full mode by setting the height attribute of the OBJECT tag to 40, which is measured from the bottom, and leaves the controls portion of the user interface visible. If no embedded interface is desired, set both the width and height attributes to zero.

tu peux éventuellement combiner mini ou full et changer la taille du composant et voir le résultat pour remettre tes boutons
Désactiver c'est UIMode à none, et comme mentionner plus haut, le curseur de la souris disparaît voire peut-être que cela désactive une partie de la gestion de la souris dont le clic-droit.

Sinon savais-tu que tu peux skinner les boutons ?
Il faut implémenter IWMPRemoteMediaServices dans Delphi, mettre UIMode en custom, à lire Remoting the Windows Media Player Control

[cincap]

Bonsoir à toutes et à tous,

@ ShaiLeTroll, merci pour ton message.

Sinon savais-tu que tu peux skinner les boutons ?

En effet, je ne le savais pas, j'avais dans le temps essayé des effets de visualisations mais sans résultat sur D6 avec l' unité "DoogalsVisualization_TLB".

Sinon l'aspect de mon convertisseur avec le skin et les Tbuttons me convient.

Je vais voir sur D6 si cela fonctionne (IWMPRemoteMediaServices).

@+,

cincap