- 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

1 files changed, 6 insertions, 5 deletions

diff --git a/Game/Code/Classes/UHelp.pas b/Game/Code/Classes/UHelp.pas
index 4691858c..d3595e52 100644
--- a/Game/Code/Classes/UHelp.pas
+++ b/Game/Code/Classes/UHelp.pas
@@ -144,13 +144,14 @@ var
 begin

   SetLength(List, 0);

 

-  if FindFirst(LanguagesPath + '*.ini', 0, SR) = 0 then begin

+  if FindFirst(LanguagesPath + '*.ini', 0, SR) = 0 then

+  begin

     repeat

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

       SR.Name := ChangeFileExt(SR.Name, '');

       List[High(List)].Name := SR.Name;

     until FindNext(SR) <> 0;

-  SysUtils.FindClose(SR);

+    SysUtils.FindClose(SR);

   end; // if FindFirst

 end;

 

@@ -310,7 +311,7 @@ end;
 

 function THelp.SetHelpID(ID: String):boolean;

 var

-  E, J:   integer; // entry

+  E:   integer; // entry

 begin

   Result := false;

   ScrollPos := 0.0;

@@ -357,7 +358,7 @@ end;
 function THelp.GetHelpStr(): TTextResult;

 var

   K, I, J:   Integer;

-  w: real;

+

 begin

   SetLength(Result.Sections, Length(AEntry.Sections));

   for K := 0 to Length(AEntry.Sections) - 1 do

@@ -398,4 +399,4 @@ begin
   Result := ScrollPos;

 end;

 

-end.

+end.
\ No newline at end of file