From 99002f7a9a6e96c824725e9a5bea7ef3e3422c08 Mon Sep 17 00:00:00 2001 From: brunzelchen Date: Mon, 24 May 2010 15:19:00 +0000 Subject: filled the video interface methods git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@2413 b956fd51-792f-4845-bead-9b4dfca2ff2c --- VideoPreview/src/media/UVideo.pas | 57 ++++++++++++++++++++++++--------------- 1 file 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; -- cgit v1.2.3