From 086642246da49e0ad2de8857004e083081a14867 Mon Sep 17 00:00:00 2001 From: basisbit Date: Sun, 11 Oct 2015 22:15:05 +0000 Subject: * modified to support current Bass.dll which fixes sound-issues on windows 8 and newer ToDo: implement usage of Bass device latency for usage when syncing video playback and audio playback * implemented the split-feature for linux-users. see https://sourceforge.net/p/ultrastardx/patches/16/ git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@3141 b956fd51-792f-4845-bead-9b4dfca2ff2c --- src/base/UGraphic.pas | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) (limited to 'src/base/UGraphic.pas') diff --git a/src/base/UGraphic.pas b/src/base/UGraphic.pas index bf297220..f0b60b95 100644 --- a/src/base/UGraphic.pas +++ b/src/base/UGraphic.pas @@ -616,11 +616,20 @@ var W, H: integer; Depth: Integer; Fullscreen: boolean; + Split: boolean; begin if (Params.Screens <> -1) then Screens := Params.Screens + 1 else Screens := Ini.Screens + 1; + case Params.Split of + spmSplit: + Split := True; + spmNoSplit: + Split := False; + else + Split := Ini.Split = 1; + end; // case // Set minimum color component sizes // Note: do not request an alpha plane with SDL_GL_ALPHA_SIZE here as @@ -647,8 +656,10 @@ begin S := IResolution[Ini.Resolution]; I := Pos('x', S); - W := StrToInt(Copy(S, 1, I-1)) * Screens; + W := StrToInt(Copy(S, 1, I-1)); H := StrToInt(Copy(S, I+1, 1000)); + if ((Screens > 1) and not Split) then + W := W * Screens; if (Params.Depth <> -1) then Depth := Params.Depth -- cgit v1.2.3