aboutsummaryrefslogtreecommitdiffstats
path: root/VideoPreview/src/media
diff options
context:
space:
mode:
Diffstat (limited to 'VideoPreview/src/media')
-rw-r--r--VideoPreview/src/media/UMedia_dummy.pas4
-rw-r--r--VideoPreview/src/media/UVideo.pas20
-rw-r--r--VideoPreview/src/media/UVisualizer.pas4
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;