diff options
author | basisbit <basisbit@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2015-10-11 22:15:05 +0000 |
---|---|---|
committer | basisbit <basisbit@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2015-10-11 22:15:05 +0000 |
commit | 086642246da49e0ad2de8857004e083081a14867 (patch) | |
tree | d17de7a3de34c55f9029742eca0abcd2980790eb /src/base/UCommandLine.pas | |
parent | 6cef6c00598000b85d0bd9f8c1d8795a04e07c99 (diff) | |
download | usdx-086642246da49e0ad2de8857004e083081a14867.tar.gz usdx-086642246da49e0ad2de8857004e083081a14867.tar.xz usdx-086642246da49e0ad2de8857004e083081a14867.zip |
* 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
Diffstat (limited to 'src/base/UCommandLine.pas')
-rw-r--r-- | src/base/UCommandLine.pas | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/base/UCommandLine.pas b/src/base/UCommandLine.pas index ac0db2c2..7a3761da 100644 --- a/src/base/UCommandLine.pas +++ b/src/base/UCommandLine.pas @@ -38,6 +38,7 @@ uses type TScreenMode = (scmDefault, scmFullscreen, scmWindowed); + TSplitMode = (spmDefault, spmNoSplit, spmSplit); {** * Reads infos from ParamStr and set some easy interface variables @@ -61,6 +62,7 @@ type NoLog: boolean; ScreenMode: TScreenMode; Joypad: boolean; + Split: TSplitMode; // some value variables set when reading infos {-1: Not Set, others: Value} Depth: integer; @@ -139,6 +141,7 @@ begin NoLog := False; ScreenMode := scmDefault; Joypad := False; + Split := spmDefault; // some value variables set when reading infos {-1: Not Set, others: Value} fResolution := ''; @@ -190,6 +193,10 @@ begin ScreenMode := scmWindowed else if (Command = 'joypad') then Joypad := True + else if (Command = 'split') then + Split := spmSplit + else if (Command = 'nosplit') then + Split := spmNoSplit // integer variables else if (Command = 'depth') then |