MediaPlayer and vista Problem

[Mike Buckler]

When I execute this cosde on xp it works fine.

But on vista home I do not get the 1/2 size screen setting and the media player is displayed with controls in the top left corner of the window audio plays but just a black box for video.

Anyone have a fix for this problem?
Thanks in advance Mike.

Code: Select all  Expand view

      DEFINE WINDOW  owndvid  FROM 0,0  TO     400,550  pixel  style nOr(WS_POPUP )       
activevid = TActiveX():New( owndvid, "MediaPlayer.MediaPlayer.1" )
      activevid:TransparentAtStart:=.t.
      activevid:FileName ="fivewin.avi"
      activevid:ShowControls :=.f.
      activevid:PlayCount :=0
      activevid:SendMouseClickEvents :=.f.
      activevid:ClickToPlay:=.f.
      activevid:DisplaySize:=7
      activevid:VideoBorder3D:=.t.
      owndvid:oClient := activevid
      ACTIVATE WINDOW    owndvid  on init (SetWindowPos( owndvid:HWND, -1, 0, 0, 0, 0, 3 ) )

[Antonio Linares]

Mike,

FWH\samples\Media.prg is working fine here with Vista

[Mike Buckler]

Thanks Mike

[Mike Buckler]

Thanks Mike