From e7b509d9fcf5251f19cad8465b80792463932d06 Mon Sep 17 00:00:00 2001
From: jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sun, 11 Nov 2007 23:00:17 +0000
Subject: git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@603
 b956fd51-792f-4845-bead-9b4dfca2ff2c

---
 Game/Code/Classes/UIni.pas | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

(limited to 'Game/Code')

diff --git a/Game/Code/Classes/UIni.pas b/Game/Code/Classes/UIni.pas
index 998a1d4b..040a0cdb 100644
--- a/Game/Code/Classes/UIni.pas
+++ b/Game/Code/Classes/UIni.pas
@@ -271,15 +271,12 @@ begin
   // Resolution
   SetLength(IResolution, 0);
   Modes := SDL_ListModes(nil, SDL_OPENGL or SDL_FULLSCREEN); // Check if there are any modes available
-  repeat
+  while Assigned(Modes) do //this should solve the biggest wine problem | THANKS Linnex (11.11.07)
+  begin
     SetLength(IResolution, Length(IResolution) + 1);
     IResolution[High(IResolution)] := IntToStr(Modes^.w) + 'x' + IntToStr(Modes^.h);
-    Tekst := IniFile.ReadString('Graphics', 'Screens', IScreens[0]);
-    
-    Log.LogStatus('SDL_ListModes Res : ' + IResolution[High(IResolution)], 'Graphics - Resolutions');
-    
     Inc(Modes);
-  until Modes^ = nil;
+  end;
 
   // if no modes were set, then failback to 800x600
   // as per http://sourceforge.net/forum/message.php?msg_id=4544965
-- 
cgit v1.2.3