MacOSX patch for WideUpperChar. The cwstring Unicode manager is not supported at the moment because of some problems with the iconv linker dependencies.

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

1 files changed, 4 insertions, 3 deletions

diff --git a/Game/Code/Screens/UScreenSong.pas b/Game/Code/Screens/UScreenSong.pas
index d747f65a..e52b4c98 100644
--- a/Game/Code/Screens/UScreenSong.pas
+++ b/Game/Code/Screens/UScreenSong.pas
@@ -264,7 +264,7 @@ begin
           begin

             if (CatSongs.Song[(I + Interaction) mod I2].Visible) AND

                (Length(CatSongs.Song[(I + Interaction) mod I2].Title)>0) AND

-               (WideCharUpperCase(CatSongs.Song[(I + Interaction) mod I2].Title)[1] = Letter) then

+               (WideStringUpperCase(CatSongs.Song[(I + Interaction) mod I2].Title)[1] = Letter) then

             begin

               SkipTo(CatSongs.VisibleIndex((I + Interaction) mod I2));

 

@@ -285,7 +285,7 @@ begin
           begin

             if (CatSongs.Song[(I + Interaction) mod I2].Visible) AND

                (Length(CatSongs.Song[(I + Interaction) mod I2].Artist)>0) AND

-               (WideCharUpperCase(CatSongs.Song[(I + Interaction) mod I2].Artist)[1] = Letter) then

+               (WideStringUpperCase(CatSongs.Song[(I + Interaction) mod I2].Artist)[1] = Letter) then

             begin

               SkipTo(CatSongs.VisibleIndex((I + Interaction) mod I2));

 

@@ -848,7 +848,8 @@ begin
         try

           AddButton(300 + Pet*250, 140, 200, 200, '', TEXTURE_TYPE_PLAIN, Theme.Song.Cover.Reflections);

         except

-          ShowMessage('"No Cover" image is damaged. Ultrastar will exit now.');


+          ShowMessage('"No Cover" image is damaged. Ultrastar will exit now.');

+

           Halt;

         end;

         I := Pet + 1;