From c56c859c68a78bbfb6267904c68d964793bfd57d Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 4 Mar 2024 11:35:41 +0000
Subject: [PATCH] MPlayer: Add start parameters to "simple" demo to fix
 occasional issues in Windows (Issue #39070)

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9263 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/mplayer/examples/Simple/unit1.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/mplayer/examples/Simple/unit1.pas b/components/mplayer/examples/Simple/unit1.pas
index 339c9634a..2ce1bf36f 100644
--- a/components/mplayer/examples/Simple/unit1.pas
+++ b/components/mplayer/examples/Simple/unit1.pas
@@ -85,7 +85,7 @@ begin
    MPlayerControl1.MPlayerPath := Application.Location + 'MPlayer\mplayer.exe' ;
   // Or: if your MPlayer is installed as usual:
   // MPlayerControl1.MPlayerPath := AppendPathDelim(GetWindowsSpecialDir(FOLDERID_ProgramFilesX86, false)) + 'MPlayer for Windows\mplayer.exe';
-  //MPlayerControl1.StartParam:='-zoom -fs';
+   MPlayerControl1.StartParam := '-vo direct3d -zoom -fs';
   {$endif}
 end;