removed useless properties in UVideo

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@2421 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 0 insertions, 10 deletions

diff --git a/VideoPreview/src/media/UVideo.pas b/VideoPreview/src/media/UVideo.pas
index 78d1832f..b70f78cc 100644
--- a/VideoPreview/src/media/UVideo.pas
+++ b/VideoPreview/src/media/UVideo.pas
@@ -207,16 +207,6 @@ type
      procedure GetFrame(Time: Extended);
      procedure Draw();
      procedure DrawReflection();
-
-     property Screen: integer read GetScreen;
-     property Width: double read GetWidth write SetWidth;
-     property Height: double read GetHeight write SetHeight;
-     property Alpha: double read GetAlpha write SetAlpha;
-     property ReflectionSpacing: double read GetReflectionSpacing write SetReflectionSpacing;
-     property FrameAspect: real read GetFrameAspect;
-     property AspectCorrection: TAspectCorrection read GetAspectCorrection;
-     property Loop: boolean read GetLoop write SetLoop;
-     property Position: real read GetPosition write SetPosition;
   end;
 
   TVideoPlayback_FFmpeg = class( TInterfacedObject, IVideoPlayback )