backported the fix that allows USDX 1.0 tree to run in wine.

jira#USDX-124

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

1 files changed, 10 insertions, 2 deletions

diff --git a/Game/Code/Classes/UIni.pas b/Game/Code/Classes/UIni.pas
index 846c0deb..82bae011 100644
--- a/Game/Code/Classes/UIni.pas
+++ b/Game/Code/Classes/UIni.pas
@@ -252,12 +252,20 @@ begin
   SetLength(IResolution, 0);

   Modes := SDL_ListModes(nil, SDL_OPENGL or SDL_FULLSCREEN); // Check if there are any modes available

   repeat

-//    Log.LogError(Format( ' %d x %d', [ modes^.w, modes^.h ] ) );

     SetLength(IResolution, Length(IResolution) + 1);

     IResolution[High(IResolution)] := IntToStr(Modes^.w) + 'x' + IntToStr(Modes^.h);

     Inc(Modes);

   until Modes^ = nil;

 

+  // if no modes were set, then failback to 800x600

+  // as per http://sourceforge.net/forum/message.php?msg_id=4544965

+  // THANKS : linnex at users.sourceforge.net

+  if Length(IResolution) < 1 then

+  begin

+    SetLength(IResolution, Length(IResolution) + 1);

+    IResolution[High(IResolution)] := IntToStr(800) + 'x' + IntToStr(600);

+  end;

+

   // reverse order

   for I := 0 to (Length(IResolution) div 2) - 1 do begin

     S := IResolution[I];

@@ -761,4 +769,4 @@ begin
   end;

 end;

 

-end.
\ No newline at end of file
+end.