1 files changed, 149 insertions, 0 deletions
diff --git a/Game/Code/lib/JEDI-SDLv1.0/smpeg/Demos/MpegPlayer/sdlmpegpanel.pas b/Game/Code/lib/JEDI-SDLv1.0/smpeg/Demos/MpegPlayer/sdlmpegpanel.pas
new file mode 100644
index 00000000..6e7e87de
--- /dev/null
+++ b/Game/Code/lib/JEDI-SDLv1.0/smpeg/Demos/MpegPlayer/sdlmpegpanel.pas
@@ -0,0 +1,149 @@
+unit sdlmpegpanel;
+
+interface
+
+{$IFDEF UNIX}
+{$DEFINE CLX}
+{$ELSE}
+{$DEFINE VCL}
+{$ENDIF}
+
+uses
+  SysUtils,
+  Classes,
+{$IFDEF VCL}
+  Graphics,
+  Controls,
+  Forms,
+  Dialogs,
+  ExtCtrls,
+{$ENDIF}
+{$IFDEF CLX}
+  Types,
+  QGraphics,
+  QControls,
+  QForms,
+  QDialogs,
+  QExtCtrls,
+{$ENDIF}
+  sdl,
+  smpeg;
+
+type
+  TSDLMPEGPanel = class( TPanel )
+  private
+    { Private declarations }
+    FSurface : PSDL_Surface;
+    FSMPEGHandle : PSMPEG;
+    FMPEGFile : TFileName;
+    FMPEGInfo : TSMPEG_Info;
+    FPlaying : Boolean;
+    FSound : Integer;
+    function GetSound : Boolean;
+    procedure SetSound( const Value : Boolean );
+  protected
+    { Protected declarations }
+  public
+    { Public declarations }
+    procedure Play;
+    procedure Stop;
+    procedure Pause;
+  published
+    { Published declarations }
+    property MPEGFile : TFileName read FMPEGFile write FMPEGFile;
+    property Sound : Boolean read GetSound write SetSound;
+  end;
+
+procedure Register;
+
+implementation
+
+{$IFDEF CLX}
+uses
+  Libc,
+  Qt;
+{$ENDIF}
+
+procedure TSDLMPEGPanel.Play;
+var
+  EnvVal : string;
+begin
+  if FPlaying then
+    Exit;
+  FPlaying := True;
+
+  if SDL_getenv( 'SDL_WINDOWID' ) = '' then
+  begin
+    {$IFDEF VCL}
+    SDL_putenv( 'SDL_VIDEODRIVER=windib' );
+    EnvVal := 'SDL_WINDOWID=' + inttostr( Integer( Handle ) );
+    {$ENDIF}
+
+    {$IFDEF CLX}
+    EnvVal := 'SDL_WINDOWID=' + inttostr( QWidget_WinId( ChildHandle ) );
+    {$ENDIF}
+
+    SDL_putenv( PChar( EnvVal ) );
+  end;
+
+  if SDL_getenv( 'SDL_VIDEO_YUV_HWACCEL' ) = '' then
+    SDL_putenv( 'SDL_VIDEO_YUV_HWACCEL=0' );
+
+  if SDL_Init( SDL_INIT_VIDEO or SDL_INIT_NOPARACHUTE ) < 0 then
+    raise Exception.Create( 'SDL_Init failed' );
+  {$IFDEF VCL}
+  FSurface := SDL_SetVideoMode( Width, Height, 16, SDL_SWSURFACE );
+  {$ENDIF}
+  {$IFDEF CLX}
+  FSurface := SDL_SetVideoMode( Width, Height, QPixmap_depth( Bitmap.Handle ), SDL_SWSURFACE );
+  {$ENDIF}
+  if FSurface = nil then
+    raise Exception.Create( 'SDL_SetVideoMode failed' );
+
+  FSMPEGHandle := SMPEG_new( PChar( FMPEGFile ), @FMPEGInfo, FSound );
+  if FSMPEGHandle = nil then
+    raise Exception.Create( 'Cannot create MPEG stream' );
+
+  if FSound = 0 then
+    SMPEG_enableaudio( FSMPEGHandle, 0 );
+
+  SMPEG_scaleXY( FSMPEGHandle, Width, Height );
+  SMPEG_setdisplay( FSMPEGHandle, FSurface, nil, nil );
+
+  SMPEG_play( FSMPEGHandle );
+end;
+
+procedure TSDLMPEGPanel.Stop;
+begin
+  if not FPlaying then
+    Exit;
+  FPlaying := False;
+  SMPEG_stop( FSMPEGHandle );
+  SMPEG_delete( FSMPEGHandle );
+  SDL_Quit;
+end;
+
+procedure TSDLMPEGPanel.Pause;
+begin
+  if FPlaying then
+    SMPEG_pause( FSMPEGHandle );
+end;
+
+function TSDLMPEGPanel.GetSound : Boolean;
+begin
+  Result := Boolean( FSound );
+end;
+
+procedure TSDLMPEGPanel.SetSound( const Value : Boolean );
+begin
+  FSound := Integer( Value );
+end;
+
+procedure Register;
+begin
+  RegisterComponents( 'SDL', [ TSDLMPEGPanel ] );
+end;
+
+end.
+
+