aboutsummaryrefslogtreecommitdiffstats
path: root/VideoPreview/src
diff options
context:
space:
mode:
authorbrunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>2010-05-24 15:19:00 +0000
committerbrunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>2010-05-24 15:19:00 +0000
commit99002f7a9a6e96c824725e9a5bea7ef3e3422c08 (patch)
tree8cba8ce0fbd05dd83705f315174170d04ec1dada /VideoPreview/src
parent29ad1858a3f603e3929eba36fb19583d4e9591bf (diff)
downloadusdx-99002f7a9a6e96c824725e9a5bea7ef3e3422c08.tar.gz
usdx-99002f7a9a6e96c824725e9a5bea7ef3e3422c08.tar.xz
usdx-99002f7a9a6e96c824725e9a5bea7ef3e3422c08.zip
filled the video interface methods
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@2413 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'VideoPreview/src')
-rw-r--r--VideoPreview/src/media/UVideo.pas57
1 files changed, 36 insertions, 21 deletions
diff --git a/VideoPreview/src/media/UVideo.pas b/VideoPreview/src/media/UVideo.pas
index 28b19223..56cebb4c 100644
--- a/VideoPreview/src/media/UVideo.pas
+++ b/VideoPreview/src/media/UVideo.pas
@@ -126,7 +126,19 @@ type
fSwScaleContext: PSwsContext;
{$ENDIF}
- fScreen: integer; //actual screen to draw on
+ fScreen: integer; //actual screen to draw on
+
+ fScreenPositionX: double;
+ fScreenPositionY: double;
+ fScreenPositionZ: double;
+ fScreenWidth: double;
+ fScreenHeight: double;
+
+ fFrameRange: TRectCoords;
+
+ fAlpha: double;
+ fReflectionSpacing: double;
+
fAspect: real; //**< width/height ratio
fAspectCorrection: TAspectCorrection;
@@ -168,10 +180,10 @@ type
procedure SetScreenPosition(X, Y: double; Z: double = 0.0);
procedure GetScreenPosition(var X, Y, Z: double);
- procedure SetWidth(Width: double);
+ procedure SetWidth(Width: double);
function GetWidth(): double;
- procedure SetHeight(Height: double);
+ procedure SetHeight(Height: double);
function GetHeight(): double;
{**
@@ -186,7 +198,6 @@ type
procedure SetAspectCorrection(AspectCorrection: TAspectCorrection);
function GetAspectCorrection(): TAspectCorrection;
-
procedure SetAlpha(Alpha: double);
function GetAlpha(): double;
@@ -1125,96 +1136,100 @@ end;
procedure TVideo_FFmpeg.SetScreen(Screen: integer);
begin
-
+ fScreen := Screen;
end;
function TVideo_FFmpeg.GetScreen(): integer;
begin
-
+ Result := fScreen;
end;
procedure TVideo_FFmpeg.SetScreenPosition(X, Y: double; Z: double = 0.0);
begin
-
+ fScreenPositionX := X;
+ fScreenPositionY := Y;
+ fScreenPositionZ := Z;
end;
procedure TVideo_FFmpeg.GetScreenPosition(var X, Y, Z: double);
begin
-
+ X := fScreenPositionX;
+ Y := fScreenPositionY;
+ Z := fScreenPositionZ;
end;
procedure TVideo_FFmpeg.SetWidth(Width: double);
begin
-
+ fScreenWidth := Width;
end;
function TVideo_FFmpeg.GetWidth(): double;
begin
-
+ Result := fScreenWidth;
end;
procedure TVideo_FFmpeg.SetHeight(Height: double);
begin
-
+ fScreenHeight := Height;
end;
function TVideo_FFmpeg.GetHeight(): double;
begin
-
+ Result := fScreenHeight;
end;
procedure TVideo_FFmpeg.SetFrameRange(Range: TRectCoords);
begin
-
+ fFrameRange := Range;
end;
function TVideo_FFmpeg.GetFrameRange(): TRectCoords;
begin
-
+ Result := fFrameRange;
end;
function TVideo_FFmpeg.GetFrameAspect(): real;
begin
-
+ Result := fAspect;
end;
procedure TVideo_FFmpeg.SetAspectCorrection(AspectCorrection: TAspectCorrection);
begin
-
+ fAspectCorrection := AspectCorrection;
end;
function TVideo_FFmpeg.GetAspectCorrection(): TAspectCorrection;
begin
-
+ Result := fAspectCorrection;
end;
procedure TVideo_FFmpeg.SetAlpha(Alpha: double);
begin
-
+ fAlpha := Alpha;
end;
function TVideo_FFmpeg.GetAlpha(): double;
begin
-
+ Result := fAlpha;
end;
procedure TVideo_FFmpeg.SetReflectionSpacing(Spacing: double);
begin
-
+ fReflectionSpacing := Spacing;
end;
function TVideo_FFmpeg.GetReflectionSpacing(): double;
begin
-
+ Result := fReflectionSpacing;
end;