From 60e6d3f9904a8114e985fccd14454b9b604ea275 Mon Sep 17 00:00:00 2001
From: brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 28 Apr 2010 19:54:31 +0000
Subject: - new SDL.dll (with a quick and dirty workaround for the
 hanging-mouse problem) - changing of sorting and folder-option (on/off) does
 not need any restart now - a lot of code clean up - some bugfixes... i
 hope... dont't know which...

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2316 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Screens/UScreenEditSub.pas | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

(limited to 'Game/Code/Screens/UScreenEditSub.pas')

diff --git a/Game/Code/Screens/UScreenEditSub.pas b/Game/Code/Screens/UScreenEditSub.pas
index a0c89637..5570e965 100644
--- a/Game/Code/Screens/UScreenEditSub.pas
+++ b/Game/Code/Screens/UScreenEditSub.pas
@@ -2,7 +2,7 @@ unit UScreenEditSub;
 
 interface
 
-uses UMenu, UVideo, TextGL, UMusic, SDL, SysUtils, UFiles, UTime, USongs, UIni, ULog, USmpeg, UTexture, UMenuText,
+uses UMenu, UVideo, TextGL, UMusic, SDL, SysUtils, UFiles, UTime, USongs, UIni, ULog, UTexture, UMenuText,
   ULyrics, Math, gl, UThemes, MidiOut, UHelp;
 
 type
@@ -1136,7 +1136,7 @@ end;
 
 function TScreenEditSub.ParseInputEditBPM(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean;
 var
-  SDL_ModState: Word;
+  //SDL_ModState: Word;
   strBPM:       string;
   temp:         real;
 
@@ -1144,8 +1144,8 @@ begin
   // used when in Text Edit Mode
   Result := true;
 
-  SDL_ModState := SDL_GetModState and (KMOD_LSHIFT + KMOD_RSHIFT
-    + KMOD_LCTRL + KMOD_RCTRL + KMOD_LALT  + KMOD_RALT {+ KMOD_CAPS});
+  //SDL_ModState := SDL_GetModState and (KMOD_LSHIFT + KMOD_RSHIFT
+  //  + KMOD_LCTRL + KMOD_RCTRL + KMOD_LALT  + KMOD_RALT {+ KMOD_CAPS});
 
   // check normal keys
   if (ScanCode in [48..57, 44]) then
@@ -1339,7 +1339,7 @@ end;
 procedure TScreenEditSub.LyricsCapitalize;
 var
   C:    integer;
-  N:    integer; // temporary
+  //N:    integer; // temporary
   S:    string;
 begin
   // temporary
@@ -1936,9 +1936,9 @@ end;
 
 function TScreenEditSub.Draw: boolean;
 var
-  Min:    integer;
-  Sec:    integer;
-  Tekst:  string;
+  //Min:    integer;
+  //Sec:    integer;
+  //Tekst:  string;
   Pet:    integer;
   PlayClick:  boolean;
   line, note: integer;
@@ -2387,14 +2387,14 @@ end;
 
 procedure TScreenEditSub.DrawInfoBar(x, y, w, h: integer);
 var
-  start, end_:        integer;
-  ww:                 integer;
+  start, end_:  integer;
+  ww:           integer;
 
-  pos:                real;
-  br:                 real;
+  pos:          real;
+  br:           real;
 
-  line, note:         integer;
-  numLines, numNotes: integer;
+  line:         integer;
+  numLines:     integer;
 
 begin
   numLines := Length(Czesci[0].Czesc);
@@ -2564,4 +2564,4 @@ begin
     Result := 0;
 end;
 
-end.
+end.
\ No newline at end of file
-- 
cgit v1.2.3