meld video-frame info (width/height/aspect) to reduce exported functions

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

1 files changed, 12 insertions, 3 deletions

diff --git a/mediaplugin/src/media/UVideoDecoderPlugin.pas b/mediaplugin/src/media/UVideoDecoderPlugin.pas
index 722928d8..ef411023 100644
--- a/mediaplugin/src/media/UVideoDecoderPlugin.pas
+++ b/mediaplugin/src/media/UVideoDecoderPlugin.pas
@@ -204,18 +204,27 @@ begin
 end;
 
 function TPluginVideoDecodeStream.GetFrameWidth(): integer;
+var
+  FrameInfo: TVideoFrameInfo;
 begin
-  Result := fVideoDecoderInfo.getFrameWidth(fStream);
+  fVideoDecoderInfo.getFrameInfo(fStream, @FrameInfo);
+  Result := FrameInfo.width;
 end;
 
 function TPluginVideoDecodeStream.GetFrameHeight(): integer;
+var
+  FrameInfo: TVideoFrameInfo;
 begin
-  Result := fVideoDecoderInfo.getFrameHeight(fStream);
+  fVideoDecoderInfo.getFrameInfo(fStream, @FrameInfo);
+  Result := FrameInfo.height;
 end;
 
 function TPluginVideoDecodeStream.GetFrameAspect(): real;
+var
+  FrameInfo: TVideoFrameInfo;
 begin
-  Result := fVideoDecoderInfo.getFrameAspect(fStream);
+  fVideoDecoderInfo.getFrameInfo(fStream, @FrameInfo);
+  Result := FrameInfo.aspect;
 end;
 
 end.