3 files changed, 22 insertions, 6 deletions
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;