From f9827cabe2bd6ff0bf8f0de7bfb7d041d77c4306 Mon Sep 17 00:00:00 2001 From: brunzelchen Date: Tue, 25 May 2010 20:44:45 +0000 Subject: fixed property AspectCorrection (write). added constant ReflectionH (reflection height). added procedures for drawing black borders (acoLetterBox). git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@2422 b956fd51-792f-4845-bead-9b4dfca2ff2c --- VideoPreview/src/screens/UScreenSing.pas | 15 +++++---------- 1 file changed, 5 insertions(+), 10 deletions(-) (limited to 'VideoPreview/src/screens/UScreenSing.pas') diff --git a/VideoPreview/src/screens/UScreenSing.pas b/VideoPreview/src/screens/UScreenSing.pas index 76eb385e..835cb2df 100644 --- a/VideoPreview/src/screens/UScreenSing.pas +++ b/VideoPreview/src/screens/UScreenSing.pas @@ -847,24 +847,19 @@ begin fCurrentVideo.GetFrame(VideoFrameTime); end; - // clear just once when in dual screen mode - if (ScreenAct = 1) then - begin - glClearColor(0, 0, 0, 0); - //glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); - end; - //***** for testing: - fCurrentVideo.SetScreenPosition(300, 10); + {fCurrentVideo.SetScreenPosition(10, 10, 1); fCurrentVideo.Width := 200; - fCurrentVideo.Height := 150; + fCurrentVideo.Height := 200; fCurrentVideo.ReflectionSpacing := 10; + fCurrentVideo.Alpha := 1; + fCurrentVideo.AspectCorrection := acoLetterBox;} //***** end testing fCurrentVideo.SetScreen(ScreenAct); fCurrentVideo.Draw; - fCurrentVideo.DrawReflection; //just for testing, should be deleted! + //fCurrentVideo.DrawReflection; //just for testing, should be deleted! end; // draw static menu (FG) -- cgit v1.2.3