From 94db57d020985bd886b8c90c0b9bb8ce8d6072b7 Mon Sep 17 00:00:00 2001
From: brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Mon, 24 May 2010 15:54:42 +0000
Subject: update of reset method (uvideo): added default values

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@2414 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 VideoPreview/src/media/UMedia_dummy.pas |  4 ++--
 VideoPreview/src/media/UVideo.pas       | 20 ++++++++++++++++++--
 VideoPreview/src/media/UVisualizer.pas  |  4 ++--
 3 files changed, 22 insertions(+), 6 deletions(-)

(limited to 'VideoPreview/src/media')

diff --git a/VideoPreview/src/media/UMedia_dummy.pas b/VideoPreview/src/media/UMedia_dummy.pas
index a77579f4..46cbe6b8 100644
--- a/VideoPreview/src/media/UMedia_dummy.pas
+++ b/VideoPreview/src/media/UMedia_dummy.pas
@@ -115,7 +115,7 @@ type
       procedure SetScreen(Screen: integer);
       function GetScreen(): integer;
 
-      procedure SetScreenPosition(X, Y: double; Z: double = 0.0);
+      procedure SetScreenPosition(X, Y, Z: double);
       procedure GetScreenPosition(var X, Y, Z: double);
 
       procedure  SetWidth(Width: double);
@@ -372,7 +372,7 @@ begin
   Result := 0;
 end;
 
-procedure TVideo_Dummy.SetScreenPosition(X, Y: double; Z: double = 0.0);
+procedure TVideo_Dummy.SetScreenPosition(X, Y, Z: double);
 begin
 end;
 
diff --git a/VideoPreview/src/media/UVideo.pas b/VideoPreview/src/media/UVideo.pas
index 56cebb4c..fdfb4d1e 100644
--- a/VideoPreview/src/media/UVideo.pas
+++ b/VideoPreview/src/media/UVideo.pas
@@ -177,7 +177,7 @@ type
     procedure SetScreen(Screen: integer);
     function GetScreen(): integer;
 
-    procedure SetScreenPosition(X, Y: double; Z: double = 0.0);
+    procedure SetScreenPosition(X, Y, Z: double);
     procedure GetScreenPosition(var X, Y, Z: double);
 
     procedure SetWidth(Width: double);
@@ -520,6 +520,22 @@ begin
   fPboId := 0;
 
   fAspectCorrection := acoCrop;
+
+  fScreen := 1;
+
+  fScreenPositionX := 0;
+  fScreenPositionY := 0;
+  fScreenPositionZ := 0;
+  fScreenWidth := RenderW;
+  fScreenHeight := RenderH;
+
+  fFrameRange.Left := 0;
+  fFrameRange.Right := 1;
+  fFrameRange.Upper := 0;
+  fFrameRange.Lower := 1;
+
+  fAlpha := 1;
+  fReflectionSpacing := 0;
 end;
 
 procedure TVideo_FFmpeg.Close;
@@ -1145,7 +1161,7 @@ begin
 end;
 
 
-procedure TVideo_FFmpeg.SetScreenPosition(X, Y: double; Z: double = 0.0);
+procedure TVideo_FFmpeg.SetScreenPosition(X, Y, Z: double);
 begin
   fScreenPositionX := X;
   fScreenPositionY := Y;
diff --git a/VideoPreview/src/media/UVisualizer.pas b/VideoPreview/src/media/UVisualizer.pas
index b3ed7b0f..1cdc3500 100644
--- a/VideoPreview/src/media/UVisualizer.pas
+++ b/VideoPreview/src/media/UVisualizer.pas
@@ -149,7 +149,7 @@ type
       procedure SetScreen(Screen: integer);
       function GetScreen(): integer;
 
-      procedure SetScreenPosition(X, Y: double; Z: double = 0.0);
+      procedure SetScreenPosition(X, Y, Z: double);
       procedure GetScreenPosition(var X, Y, Z: double);
 
       procedure  SetWidth(Width: double);
@@ -300,7 +300,7 @@ begin
   Result := 0;
 end;
 
-procedure TVideo_ProjectM.SetScreenPosition(X, Y: double; Z: double = 0.0);
+procedure TVideo_ProjectM.SetScreenPosition(X, Y, Z: double);
 begin
 end;
 
-- 
cgit v1.2.3