small fixes for lazarus build.

cleanup on some code.

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

5 files changed, 2307 insertions, 2295 deletions

diff --git a/Game/Code/Classes/UCovers.pas b/Game/Code/Classes/UCovers.pas
index 094fe43c..966277cd 100644
--- a/Game/Code/Classes/UCovers.pas
+++ b/Game/Code/Classes/UCovers.pas
@@ -1,248 +1,263 @@
-unit UCovers;
-
-interface
-
-{$IFDEF FPC}
-  {$MODE Delphi}
-{$ENDIF}
-
-uses OpenGL12,
-     {$IFDEF win32}
-     windows,
-     {$ENDIF}
-     Math,
-     Classes,
-     SysUtils,
-     {$IFNDEF FPC}
-     Graphics,
-     {$ENDIF}
-     UThemes,
-     UTexture;
-
-type
-  TCover = record
-    Name:       string;
-    W:          word;
-    H:          word;
-    Size:       integer;
-    Position:   integer; // position of picture in the cache file
-//    Data:       array of byte;
-  end;
-
-  TCovers = class
-    Cover:      array of TCover;
-    W:          word;
-    H:          word;
-    Size:       integer;
-    Data:       array of byte;
-    WritetoFile: Boolean;
-
-    constructor Create;
-    procedure Load;
-    procedure Save;
-    procedure AddCover(Name: string);
-    function CoverExists(Name: string): boolean;
-    function CoverNumber(Name: string): integer;
-    procedure PrepareData(Name: string);
-  end;
-
-var
-  Covers:     TCovers;
-
-implementation
-
-uses UMain,
-     // UFiles,
-     ULog,
-     DateUtils;
-
-constructor TCovers.Create;
-begin
-  W := 128;
-  H := 128;
-  Size := W*H*3;
-  Load;
-  WritetoFile := True;
-end;
-
-procedure TCovers.Load;
-var
-  F:      File;
-  C:      integer; // cover number
-  W:      word;
-  H:      word;
-  Bits:   byte;
-  NLen:   word;
-  Name:   string;
-//  Data:   array of byte;
-begin
-  if FileExists(GamePath + 'covers.cache') then
-  begin
-    AssignFile(F, GamePath + 'covers.cache');
-    Reset(F, 1);
-
-    WritetoFile := not FileIsReadOnly(GamePath + 'covers.cache');
-
-    SetLength(Cover, 0);
-
-    while not EOF(F) do
-    begin
-      SetLength(Cover, Length(Cover)+1);
-
-      BlockRead(F, W, 2);
-      Cover[High(Cover)].W := W;
-
-      BlockRead(F, H, 2);
-      Cover[High(Cover)].H := H;
-
-      BlockRead(F, Bits, 1);
-
-      Cover[High(Cover)].Size := W * H * (Bits div 8);
-
-      // test
-  //    W := 128;
-  //    H := 128;
-  //    Bits := 24;
-  //    Seek(F, FilePos(F) + 3);
-
-      BlockRead(F, NLen, 2);
-      SetLength(Name, NLen);
-
-      BlockRead(F, Name[1], NLen);
-      Cover[High(Cover)].Name := Name;
-
-      Cover[High(Cover)].Position := FilePos(F);
-      Seek(F, FilePos(F) + W*H*(Bits div 8));
-
-  //    SetLength(Cover[High(Cover)].Data, W*H*(Bits div 8));
-  //    BlockRead(F, Cover[High(Cover)].Data[0], W*H*(Bits div 8));
-
-    end; // While
-
-    CloseFile(F);
-  end; // fileexists
-end;
-
-procedure TCovers.Save;
-var
-  F:      File;
-  C:      integer; // cover number
-  W:      word;
-  H:      word;
-  NLen:   word;
-  Bits:   byte;
-begin
-{  AssignFile(F, GamePath + 'covers.cache');
-  Rewrite(F, 1);
-
-  Bits := 24;
-  for C := 0 to High(Cover) do begin
-    W := Cover[C].W;
-    H := Cover[C].H;
-
-    BlockWrite(F, W, 2);
-    BlockWrite(F, H, 2);
-    BlockWrite(F, Bits, 1);
-
-    NLen := Length(Cover[C].Name);
-    BlockWrite(F, NLen, 2);
-    BlockWrite(F, Cover[C].Name[1], NLen);
-    BlockWrite(F, Cover[C].Data[0], W*H*(Bits div 8));
-  end;
-
-  CloseFile(F);}
-end;
-
-procedure TCovers.AddCover(Name: string);
-var
-  B:      integer;
-  F:      File;
-  C:      integer; // cover number
-  NLen:   word;
-  Bits:   byte;
-begin
-  if not CoverExists(Name) then begin
-    SetLength(Cover, Length(Cover)+1);
-    Cover[High(Cover)].Name := Name;
-
-    Cover[High(Cover)].W := W;
-    Cover[High(Cover)].H := H;
-    Cover[High(Cover)].Size := Size;
-
-    // do not copy data. write them directly to file
-//    SetLength(Cover[High(Cover)].Data, Size);
-//    for B := 0 to Size-1 do
-//      Cover[High(Cover)].Data[B] := CacheMipmap[B];
-
-    if WritetoFile then
-    begin
-      AssignFile(F, GamePath + 'covers.cache');
-      if FileExists(GamePath + 'covers.cache') then begin
-        Reset(F, 1);
-        Seek(F, FileSize(F));
-      end else
-        Rewrite(F, 1);
-
-        Bits := 24;
-
-        BlockWrite(F, W, 2);
-        BlockWrite(F, H, 2);
-        BlockWrite(F, Bits, 1);
-
-        NLen := Length(Name);
-        BlockWrite(F, NLen, 2);
-        BlockWrite(F, Name[1], NLen);
-
-        Cover[High(Cover)].Position := FilePos(F);
-        BlockWrite(F, CacheMipmap[0], W*H*(Bits div 8));
-
-        CloseFile(F);
-      end;
-  end
-  else
-    Cover[High(Cover)].Position := 0;
-end;
-
-function TCovers.CoverExists(Name: string): boolean;
-var
-  C:    integer; // cover
-begin
-  Result := false;
-  C := 0;
-  while (C <= High(Cover)) and (Result = false) do begin
-    if Cover[C].Name = Name then Result := true;
-    Inc(C);
-  end;
-end;
-
-function TCovers.CoverNumber(Name: string): integer;
-var
-  C:    integer;
-begin
-  Result := -1;
-  C := 0;
-  while (C <= High(Cover)) and (Result = -1) do begin
-    if Cover[C].Name = Name then Result := C;
-    Inc(C);
-  end;
-end;
-
-procedure TCovers.PrepareData(Name: string);
-var
-  F:  File;
-  C:  integer;
-begin
-  if FileExists(GamePath + 'covers.cache') then begin
-    AssignFile(F, GamePath + 'covers.cache');
-    Reset(F, 1);
-
-    C := CoverNumber(Name);
-    SetLength(Data, Cover[C].Size);
-    if Length(Data) < 6 then beep;
-    Seek(F, Cover[C].Position);
-    BlockRead(F, Data[0], Cover[C].Size);
-    CloseFile(F);
-  end;
-end;
-
-end.
+unit UCovers;

+

+interface

+

+{$IFDEF FPC}

+  {$MODE Delphi}

+{$ENDIF}

+

+uses OpenGL12,

+     {$IFDEF win32}

+     windows,

+     {$ENDIF}

+     Math,

+     Classes,

+     SysUtils,

+     {$IFNDEF FPC}

+     Graphics,

+     {$ENDIF}

+     UThemes,

+     UTexture;

+

+type

+  TCover = record

+    Name:       string;

+    W:          word;

+    H:          word;

+    Size:       integer;

+    Position:   integer; // position of picture in the cache file

+//    Data:       array of byte;

+  end;

+

+  TCovers = class

+    Cover:      array of TCover;

+    W:          word;

+    H:          word;

+    Size:       integer;

+    Data:       array of byte;

+    WritetoFile: Boolean;

+

+    constructor Create;

+    procedure Load;

+    procedure Save;

+    procedure AddCover(Name: string);

+    function CoverExists(Name: string): boolean;

+    function CoverNumber(Name: string): integer;

+    procedure PrepareData(Name: string);

+  end;

+

+var

+  Covers:     TCovers;

+

+implementation

+

+uses UMain,

+     // UFiles,

+     ULog,

+     DateUtils;

+

+constructor TCovers.Create;

+begin

+  W := 128;

+  H := 128;

+  Size := W*H*3;

+  Load;

+  WritetoFile := True;

+end;

+

+procedure TCovers.Load;

+var

+  F:      File;

+  C:      integer; // cover number

+  W:      word;

+  H:      word;

+  Bits:   byte;

+  NLen:   word;

+  Name:   string;

+//  Data:   array of byte;

+begin

+  if FileExists(GamePath + 'covers.cache') then

+  begin

+    AssignFile(F, GamePath + 'covers.cache');

+    Reset(F, 1);

+

+    WritetoFile := not FileIsReadOnly(GamePath + 'covers.cache');

+

+    SetLength(Cover, 0);

+

+    while not EOF(F) do

+    begin

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

+

+      BlockRead(F, W, 2);

+      Cover[High(Cover)].W := W;

+

+      BlockRead(F, H, 2);

+      Cover[High(Cover)].H := H;

+

+      BlockRead(F, Bits, 1);

+

+      Cover[High(Cover)].Size := W * H * (Bits div 8);

+

+      // test

+  //    W := 128;

+  //    H := 128;

+  //    Bits := 24;

+  //    Seek(F, FilePos(F) + 3);

+

+      BlockRead(F, NLen, 2);

+      SetLength(Name, NLen);

+

+      BlockRead(F, Name[1], NLen);

+      Cover[High(Cover)].Name := Name;

+

+      Cover[High(Cover)].Position := FilePos(F);

+      Seek(F, FilePos(F) + W*H*(Bits div 8));

+

+  //    SetLength(Cover[High(Cover)].Data, W*H*(Bits div 8));

+  //    BlockRead(F, Cover[High(Cover)].Data[0], W*H*(Bits div 8));

+

+    end; // While

+

+    CloseFile(F);

+  end; // fileexists

+end;

+

+procedure TCovers.Save;

+var

+  F:      File;

+  C:      integer; // cover number

+  W:      word;

+  H:      word;

+  NLen:   word;

+  Bits:   byte;

+begin

+{  AssignFile(F, GamePath + 'covers.cache');

+  Rewrite(F, 1);

+

+  Bits := 24;

+  for C := 0 to High(Cover) do begin

+    W := Cover[C].W;

+    H := Cover[C].H;

+

+    BlockWrite(F, W, 2);

+    BlockWrite(F, H, 2);

+    BlockWrite(F, Bits, 1);

+

+    NLen := Length(Cover[C].Name);

+    BlockWrite(F, NLen, 2);

+    BlockWrite(F, Cover[C].Name[1], NLen);

+    BlockWrite(F, Cover[C].Data[0], W*H*(Bits div 8));

+  end;

+

+  CloseFile(F);}

+end;

+

+procedure TCovers.AddCover(Name: string);

+var

+  B:      integer;

+  F:      File;

+  C:      integer; // cover number

+  NLen:   word;

+  Bits:   byte;

+begin

+  if not CoverExists(Name) then

+  begin

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

+    Cover[High(Cover)].Name := Name;

+

+    Cover[High(Cover)].W := W;

+    Cover[High(Cover)].H := H;

+    Cover[High(Cover)].Size := Size;

+

+    // do not copy data. write them directly to file

+//    SetLength(Cover[High(Cover)].Data, Size);

+//    for B := 0 to Size-1 do

+//      Cover[High(Cover)].Data[B] := CacheMipmap[B];

+

+    if WritetoFile then

+    begin

+      AssignFile(F, GamePath + 'covers.cache');

+      

+      if FileExists(GamePath + 'covers.cache') then

+      begin

+        Reset(F, 1);

+        Seek(F, FileSize(F));

+      end

+      else

+      begin

+        Rewrite(F, 1);

+      end;

+

+      Bits := 24;

+

+      BlockWrite(F, W, 2);

+      BlockWrite(F, H, 2);

+      BlockWrite(F, Bits, 1);

+

+      NLen := Length(Name);

+      BlockWrite(F, NLen, 2);

+      BlockWrite(F, Name[1], NLen);

+

+      Cover[High(Cover)].Position := FilePos(F);

+      BlockWrite(F, CacheMipmap[0], W*H*(Bits div 8));

+

+      CloseFile(F);

+    end;

+  end

+  else

+    Cover[High(Cover)].Position := 0;

+end;

+

+function TCovers.CoverExists(Name: string): boolean;

+var

+  C:    integer; // cover

+begin

+  Result := false;

+  C      := 0;

+  

+  while (C <= High(Cover)) and (Result = false) do

+  begin

+    if Cover[C].Name = Name then

+      Result := true;

+      

+    Inc(C);

+  end;

+end;

+

+function TCovers.CoverNumber(Name: string): integer;

+var

+  C:    integer;

+begin

+  Result := -1;

+  C      := 0;

+  

+  while (C <= High(Cover)) and (Result = -1) do

+  begin

+    if Cover[C].Name = Name then

+      Result := C;

+      

+    Inc(C);

+  end;

+end;

+

+procedure TCovers.PrepareData(Name: string);

+var

+  F:  File;

+  C:  integer;

+begin

+  if FileExists(GamePath + 'covers.cache') then

+  begin

+    AssignFile(F, GamePath + 'covers.cache');

+    Reset(F, 1);

+

+    C := CoverNumber(Name);

+    SetLength(Data, Cover[C].Size);

+    if Length(Data) < 6 then beep;

+    Seek(F, Cover[C].Position);

+    BlockRead(F, Data[0], Cover[C].Size);

+    CloseFile(F);

+  end;

+end;

+

+end.

diff --git a/Game/Code/Classes/UGraphic.pas b/Game/Code/Classes/UGraphic.pas
index 6ea89c0f..44c068a0 100644
--- a/Game/Code/Classes/UGraphic.pas
+++ b/Game/Code/Classes/UGraphic.pas
@@ -312,9 +312,6 @@ begin
 

   Log.LogStatus('Loading Textures - C', 'LoadTextures');

 

-  {$IFNDEF FPC}

-  // TODO : jb_FPC  why does this cause lazarus build, to have runtime error..

-  // TODO : jb_FPC - START HERE !!

   //Line Bonus PopUp

   for P := 0 to 8 do

     begin

@@ -357,8 +354,6 @@ begin
     Tex_ScoreBG[P] := Texture.LoadTexture(pchar(Skin.GetTextureFileName('ScoreBG')),  'PNG', 'Colorized', Col);

   end;

 

-  {$ENDIF}

-

   Log.LogStatus('Loading Textures - D', 'LoadTextures');

 end;

 

diff --git a/Game/Code/Classes/UMusic.pas b/Game/Code/Classes/UMusic.pas
index b9ed47b4..b9f93b29 100644
--- a/Game/Code/Classes/UMusic.pas
+++ b/Game/Code/Classes/UMusic.pas
@@ -233,7 +233,7 @@ begin
   if not BASS_Init(1, 44100, 0, fHWND, nil) then

   begin

     {$IFNDEF FPC}

-    // TODO : JB_lazarus find a way to do this nice..

+    // TODO : JB_linux find a way to do this nice..

     Application.MessageBox ('Could not initialize BASS', 'Error');

     {$ENDIF}

     Exit;

diff --git a/Game/Code/Classes/UTexture.pas b/Game/Code/Classes/UTexture.pas
index 76eab676..eb01b4c4 100644
--- a/Game/Code/Classes/UTexture.pas
+++ b/Game/Code/Classes/UTexture.pas
@@ -980,7 +980,8 @@ begin
     // use cache texture

     C := Covers.CoverNumber(Name);

 

-    if TextureDatabase.Texture[T].TextureCache.TexNum = -1 then begin

+    if TextureDatabase.Texture[T].TextureCache.TexNum = -1 then

+    begin

       // load texture

       Covers.PrepareData(Name);

       TextureDatabase.Texture[T].TextureCache := CreateTexture(Covers.Data, Name, Covers.Cover[C].W, Covers.Cover[C].H, 24);

diff --git a/Game/Code/Screens/UScreenSong.pas b/Game/Code/Screens/UScreenSong.pas
index 569645d4..0a3c1d02 100644
--- a/Game/Code/Screens/UScreenSong.pas
+++ b/Game/Code/Screens/UScreenSong.pas
@@ -1,2040 +1,2041 @@
-unit UScreenSong;
-
-interface
-{$I switches.inc}
-
-uses
-  UMenu,
-  SDL,
-  UMusic,
-  UFiles,
-  UTime,
-  UDisplay,
-  USongs,
-  SysUtils,
-  ULog,
-  UThemes,
-  UTexture,
-  ULanguage,
-  ULCD,
-  ULight,
-  UIni;
-
-type
-  TScreenSong = class(TMenu)
-    public
-      TextArtist:   integer;
-      TextTitle:    integer;
-      TextNumber:   integer;
-
-      //Video Icon Mod
-      VideoIcon:         Cardinal;
-
-      TextCat:   integer;
-      StaticCat: integer;
-
-      SongCurrent:  real;
-      SongTarget:   real;
-
-      HighSpeed:    boolean;
-      CoverFull:    boolean;
-      CoverTime:    real;
-      CoverX:       integer;
-      CoverY:       integer;
-      CoverW:       integer;
-      is_jump:      boolean; // Jump to Song Mod
-      is_jump_title:boolean; //Jump to SOng MOd-YTrue if search for Title
-
-      EqualizerBands: array of Byte;
-      EqualizerTime: Cardinal;
-      EqualizerTime2: Byte;
-
-      //Party Mod
-      Mode: Byte;  //0 = Standard, 1= Go to PartyMode after Selection + Change to Random Song at Show
-      //party Statics (Joker)
-      StaticTeam1Joker1: Cardinal;
-      StaticTeam1Joker2: Cardinal;
-      StaticTeam1Joker3: Cardinal;
-      StaticTeam1Joker4: Cardinal;
-      StaticTeam1Joker5: Cardinal;
-
-      StaticTeam2Joker1: Cardinal;
-      StaticTeam2Joker2: Cardinal;
-      StaticTeam2Joker3: Cardinal;
-      StaticTeam2Joker4: Cardinal;
-      StaticTeam2Joker5: Cardinal;
-
-      StaticTeam3Joker1: Cardinal;
-      StaticTeam3Joker2: Cardinal;
-      StaticTeam3Joker3: Cardinal;
-      StaticTeam3Joker4: Cardinal;
-      StaticTeam3Joker5: Cardinal;
-
-      StaticParty:    Array of Cardinal;
-      TextParty:      Array of Cardinal;
-      StaticNonParty: Array of Cardinal;
-      TextNonParty:   Array of Cardinal;
-
-
-      constructor Create; override;
-      procedure SetScroll;
-      procedure SetScroll1;
-      procedure SetScroll2;
-      procedure SetScroll3;
-      procedure SetScroll4;
-      procedure SetScroll5;
-      procedure SetScroll6;
-      function ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; override;
-      function Draw: boolean; override;
-      procedure onShow; override;
-      procedure onHide; override;
-      procedure SelectNext;
-      procedure SelectPrev;
-      procedure UpdateLCD;
-      procedure SkipTo(Target: Cardinal);
-      procedure FixSelected; //Show Wrong Song when Tabs on Fix
-      procedure FixSelected2; //Show Wrong Song when Tabs on Fix
-      procedure ShowCatTL(Cat: Integer);// Show Cat in Top left
-      procedure ShowCatTLCustom(Caption: String);// Show Custom Text in Top left
-      procedure HideCatTL;// Show Cat in Tob left
-      procedure Refresh; //Refresh Song Sorting
-      procedure DrawEqualizer;
-      procedure ChangeMusic;
-      //Party Mode
-      procedure SelectRandomSong;
-      procedure SetJoker;
-      procedure SetStatics;
-      //procedures for Menu
-      procedure StartSong;
-      procedure OpenEditor;
-      procedure DoJoker(Team: Byte);
-      procedure SelectPlayers;
-
-      procedure UnLoadDetailedCover;
-
-      //Extensions
-      procedure DrawExtensions;
-  end;
-
-implementation
-uses UGraphic,
-     UMain,
-     UCovers,
-     math,
-     OpenGL12,
-     {$IFDEF win32}
-     windows,
-     {$ELSE}
-     lclintf,
-     {$ENDIF}
-     USkins,
-     UDLLManager,
-     UParty,
-     UPlaylist,
-     UScreenSongMenu;
-
-// ***** Public methods ****** //
-
-//Show Wrong Song when Tabs on Fix
-procedure TScreenSong.FixSelected;
-var I, I2: Integer;
-  begin
-    if CatSongs.VisibleSongs > 0 then
-    begin
-      I2:= 0;
-      for I := low(CatSongs.Song) to High(Catsongs.Song) do
-      begin
-        if CatSongs.Song[I].Visible then
-          inc(I2);
-
-        if I = Interaction - 1 then
-          break;
-      end;
-
-      SongCurrent := I2;
-      SongTarget  := I2;
-    end;
-  end;
-
-procedure TScreenSong.FixSelected2;
-var I, I2: Integer;
-  begin
-    if CatSongs.VisibleSongs > 0 then
-    begin
-      I2:= 0;
-      for I := low(CatSongs.Song) to High(Catsongs.Song) do
-      begin
-        if CatSongs.Song[I].Visible then
-          inc(I2);
-
-        if I = Interaction - 1 then
-          break;
-      end;
-
-      SongTarget  := I2;
-    end;
-  end;
-//Show Wrong Song when Tabs on Fix End
-
-  procedure TScreenSong.ShowCatTLCustom(Caption: String);// Show Custom Text in Top left
-  begin
-    Text[TextCat].Text := Caption;
-    Text[TextCat].Visible := true;
-    Static[StaticCat].Visible := False;
-  end;
-
-  //Show Cat in Top Left Mod
-  procedure TScreenSong.ShowCatTL(Cat: Integer);
-    begin
-    //Change
-    Text[TextCat].Text := CatSongs.Song[Cat].Artist;
-    //showmessage(CatSongs.Song[Cat].Path + CatSongs.Song[Cat].Cover);
-    //Static[StaticCat].Texture := Texture.GetTexture(Button[Cat].Texture.Name, 'Plain', true);
-
-    Static[StaticCat].Texture := Texture.GetTexture(Button[Cat].Texture.Name, 'Plain', true);
-    //Texture.GetTexture(Button[Cat].Texture.Name, 'Plain', false);
-    //Button[Cat].
-    //Cover
-
-
-    //Show
-    Text[TextCat].Visible := true;
-    Static[StaticCat].Visible := True;
-    end;
-
-  procedure TScreenSong.HideCatTL;
-    begin
-    //Hide
-    //Text[TextCat].Visible := false;
-    Static[StaticCat].Visible := false;
-    //New -> Show Text specified in Theme
-    Text[TextCat].Visible := True;
-    Text[TextCat].Text := Theme.Song.TextCat.Text;
-    end;
-    //Show Cat in Top Left Mod End
-
-
-// Method for input parsing. If False is returned, GetNextWindow
-// should be checked to know the next window to load;
-function TScreenSong.ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean;
-var
-  I:      integer;
-  I2:     integer;
-  HS:     integer;
-  SDL_ModState:  Word;
-  Letter: Char;
-begin
-  Result := true;
-
-  //Song Screen Extensions (Jumpto + Menu)
-  if (ScreenSongMenu.Visible) then
-  begin
-    Result := ScreenSongMenu.ParseInput(PressedKey, ScanCode, PressedDown);
-    Exit;
-  end
-  else if (ScreenSongJumpto.Visible) then
-  begin
-    Result := ScreenSongJumpto.ParseInput(PressedKey, ScanCode, PressedDown);
-    Exit;
-  end;
-
-  If (PressedDown) Then
-  begin // Key Down
-
-    SDL_ModState := SDL_GetModState and (KMOD_LSHIFT + KMOD_RSHIFT
-    + KMOD_LCTRL + KMOD_RCTRL + KMOD_LALT  + KMOD_RALT);
-
-    //Jump to Artist/Titel
-    if (SDL_ModState and KMOD_LALT <> 0) AND (Mode = 0) AND (PressedKey >= SDLK_A) AND (PressedKey <= SDLK_Z) then
-    begin
-      Letter := UpCase(Chr(ScanCode));
-      I2 := Length(CatSongs.Song);
-
-      //Jump To Titel
-      if (SDL_ModState = KMOD_LALT or KMOD_LSHIFT) then
-      begin
-        For I := 1 to high(CatSongs.Song) do
-        begin
-          if (CatSongs.Song[(I + Interaction) mod I2].Visible) AND (Length(CatSongs.Song[(I + Interaction) mod I2].Title)>0) AND (UpCase(CatSongs.Song[(I + Interaction) mod I2].Title[1]) = Letter) then
-          begin
-            SkipTo(CatSongs.VisibleIndex((I + Interaction) mod I2));
-
-            Music.PlayChange;
-
-            ChangeMusic;
-            SetScroll4;
-            UpdateLCD;
-            //Break and Exit
-            Exit;
-          end;
-        end;
-      end
-      //Jump to Artist
-      else  if (SDL_ModState = KMOD_LALT) then
-      begin
-        For I := 1 to high(CatSongs.Song) do
-        begin
-          if (CatSongs.Song[(I + Interaction) mod I2].Visible) AND (Length(CatSongs.Song[(I + Interaction) mod I2].Artist)>0) AND (UpCase(CatSongs.Song[(I + Interaction) mod I2].Artist[1]) = Letter) then
-          begin
-            SkipTo(CatSongs.VisibleIndex((I + Interaction) mod I2));
-
-            Music.PlayChange;
-
-            ChangeMusic;
-            SetScroll4;
-            UpdateLCD;
-
-            //Break and Exit
-            Exit;
-          end;
-        end;
-      end;
-      Exit;
-    end;
-
-    case PressedKey of
-      SDLK_Q:
-        begin
-          Result := false;
-        end;
-
-      SDLK_ESCAPE,
-      SDLK_BACKSPACE :
-        begin
-        if (Mode = 0) then
-        begin
-          //On Escape goto Cat-List Hack
-          if (Ini.Tabs_at_startup = 1) AND (CatSongs.CatNumShow <> -1) then
-            begin
-            //Find Category
-            I := Interaction;
-            while not catsongs.Song[I].Main  do
-              begin
-              Dec (I);
-              if (I < low(catsongs.Song)) then
-                break;
-              end;
-            if (I<= 1) then
-            Interaction := high(catsongs.Song)
-            else
-            Interaction := I - 1;
-
-            //Stop Music
-            Music.Stop;
-
-            CatSongs.ShowCategoryList;
-
-            //Show Cat in Top Left Mod
-            HideCatTL;
-
-
-            //Show Wrong Song when Tabs on Fix
-            SelectNext;
-            FixSelected;
-            //SelectPrev;
-            //CatSongs.Song[0].Visible := False;
-            end
-          else
-          begin
-          //On Escape goto Cat-List Hack End
-            //Tabs off and in Search or Playlist -> Go back to Song view
-            if (CatSongs.CatNumShow < -1) then
-            begin
-              //Atm: Set Empty Filter
-              CatSongs.SetFilter('', 0);
-
-              //Show Cat in Top Left Mod
-              HideCatTL;
-              Interaction := 0;
-
-              //Show Wrong Song when Tabs on Fix
-              SelectNext;
-              FixSelected;
-
-              ChangeMusic;
-            end
-            else
-            begin
-              Music.Stop;
-              Music.PlayBack;
-
-              FadeTo(@ScreenMain);
-            end;
-
-          end;
-        end
-        //When in party Mode then Ask before Close
-        else if (Mode = 1) then
-        begin
-          Music.PlayBack;
-          CheckFadeTo(@ScreenMain,'MSG_END_PARTY');
-        end;
-        end;
-      SDLK_RETURN:
-        begin
-          if Length(Songs.Song) > 0 then
-          begin
-            {$IFDEF UseSerialPort}
-              // PortWriteB($378, 0);
-            {$ENDIF}
-            if CatSongs.Song[Interaction].Main then
-            begin // clicked on Category Button
-
-              //Show Cat in Top Left Mod
-              ShowCatTL (Interaction);
-
-              //I := CatSongs.VisibleIndex(Interaction);
-              CatSongs.ClickCategoryButton(Interaction);
-              {I2 := CatSongs.VisibleIndex(Interaction);
-              SongCurrent := SongCurrent - I + I2;
-              SongTarget := SongTarget - I + I2; }
-
-//              if I<>I2 then beep;
-            //  SetScroll4;
-
-            //Show Wrong Song when Tabs on Fix
-            SelectNext;
-            FixSelected;
-
-            //Play Music:
-            ChangeMusic;
-
-            end else begin // clicked on song
-              if (Mode = 0) then //Normal Mode -> Start Song
-              begin
-                //Do the Action that is specified in Ini
-                case Ini.OnSongClick of
-                  0: StartSong;
-                  1: SelectPlayers;
-                  2:begin
-                      If (CatSongs.CatNumShow = -3) then
-                        ScreenSongMenu.MenuShow(SM_Playlist)
-                      else
-                        ScreenSongMenu.MenuShow(SM_Main);
-                    end;
-                end;
-              end
-              else if (Mode = 1) then //PartyMode -> Show Menu
-              begin
-                if (Ini.PartyPopup = 1) then
-                  ScreenSongMenu.MenuShow(SM_Party_Main)
-                else
-                  ScreenSong.StartSong;
-              end;
-            end;
-          end;
-        end;
-
-      SDLK_M: //Show SongMenu
-        begin
-          if (Length(Songs.Song) > 0) then begin
-            if (Mode = 0) then begin
-              if not CatSongs.Song[Interaction].Main then begin // clicked on Song
-                if CatSongs.CatNumShow = -3 then
-                  ScreenSongMenu.MenuShow(SM_Playlist)
-                else
-                  ScreenSongMenu.MenuShow(SM_Main);
-              end
-              else
-              begin
-                ScreenSongMenu.MenuShow(SM_Playlist_Load);
-              end;
-            end //Party Mode -> Show Party Menu
-            else ScreenSongMenu.MenuShow(SM_Party_Main);
-          end;
-        end;
-
-      SDLK_P: //Show Playlist Menu
-        begin
-          if (Length(Songs.Song) > 0) AND (Mode = 0) then begin
-              ScreenSongMenu.MenuShow(SM_Playlist_Load);
-          end;
-        end;
-
-      SDLK_J: //Show Jumpto Menu
-        begin
-          if (Length(Songs.Song) > 0) AND (Mode = 0) then
-          begin
-            ScreenSongJumpto.Visible := True;
-          end;
-        end;
-
-      SDLK_DOWN:
-        begin
-          if (Mode = 0) then
-          begin
-            //Only Change Cat when not in Playlist or Search Mode
-            if (CatSongs.CatNumShow > -2) then
-            begin
-              //Cat Change Hack
-              if Ini.Tabs_at_startup = 1 then
-              begin
-                I := Interaction;
-                if I <= 0 then I := 1;
-
-                while not catsongs.Song[I].Main do
-                begin
-                  Inc (I);
-                  if (I > high(catsongs.Song)) then
-                    I := low(catsongs.Song);
-                end;
-
-                Interaction := I;
-
-                //Show Cat in Top Left Mod
-                ShowCatTL (Interaction);
-
-                CatSongs.ClickCategoryButton(Interaction);
-                SelectNext;
-                FixSelected;
-
-                //Play Music:
-                Music.PlayChange;
-                ChangeMusic;
-
-              end;
-
-            //
-            //Cat Change Hack End}
-            end;
-          end;
-        end;
-      SDLK_UP:
-        begin
-          if (Mode = 0) then
-          begin
-            //Only Change Cat when not in Playlist or Search Mode
-            if (CatSongs.CatNumShow > -2) then
-            begin
-              //Cat Change Hack
-              if Ini.Tabs_at_startup = 1 then
-              begin
-                I := Interaction;
-                I2 := 0;
-                if I <= 0 then I := 1;
-
-                while not catsongs.Song[I].Main or (I2 = 0) do
-                begin
-                  if catsongs.Song[I].Main then
-                    Inc(I2);
-                  Dec (I);
-                  if (I < low(catsongs.Song)) then
-                    I := high(catsongs.Song);
-                end;
-
-                Interaction := I;
-
-                //Show Cat in Top Left Mod
-                ShowCatTL (I);
-
-                CatSongs.ClickCategoryButton(I);
-                SelectNext;
-                FixSelected;
-
-                //Play Music:
-                Music.PlayChange;
-                ChangeMusic;
-              end;
-            end;
-            //Cat Change Hack End}
-          end;
-        end;
-
-      SDLK_RIGHT:
-        begin
-          if (Length(Songs.Song) > 0) AND (Mode = 0) then begin
-            Music.PlayChange;
-            SelectNext;
-//            InteractNext;
-//           SongTarget := Interaction;
-            ChangeMusic;
-            SetScroll4;
-            UpdateLCD;
-            Light.LightOne(1, 200);
-          end;
-        end;
-
-      SDLK_LEFT:
-        begin
-          if (Length(Songs.Song) > 0)AND (Mode = 0)  then begin
-            Music.PlayChange;
-            SelectPrev;
-            ChangeMusic;
-            SetScroll4;
-            UpdateLCD;
-            Light.LightOne(0, 200);
-          end;
-        end;
-
-      SDLK_E:
-        begin
-          OpenEditor;
-        end;
-
-      SDLK_R:
-        begin
-          if (Length(Songs.Song) > 0) AND (Mode = 0) then begin
-
-            if (SDL_ModState = KMOD_LSHIFT) AND (Ini.Tabs_at_startup = 1) then //Random Category
-            begin
-            I2 := 0; //Count Cats
-            for I:= low(CatSongs.Song) to high (CatSongs.Song) do
-              if CatSongs.Song[I].Main then Inc(I2);
-
-            I2 := Random (I2)+1; //Zufall
-
-            //Find Cat:
-            for I:= low(CatSongs.Song) to high (CatSongs.Song) do
-              begin
-              if CatSongs.Song[I].Main then
-                Dec(I2);
-              if (I2<=0) then
-                begin
-                //Show Cat in Top Left Mod
-                ShowCatTL (I);
-
-                Interaction := I;
-
-                CatSongs.ShowCategoryList;
-                CatSongs.ClickCategoryButton(I);
-                SelectNext;
-                FixSelected;
-                break;
-                end;
-              end;
-
-
-            end
-            else if (SDL_ModState = KMOD_LCTRL) AND (Ini.Tabs_at_startup = 1) then //random in All Categorys
-            begin
-            repeat
-              I2 := Random(high(CatSongs.Song)+1) - low(CatSongs.Song)+1;
-            until CatSongs.Song[I2].Main = false;
-
-            //Search Cat
-            for I := I2 downto low(CatSongs.Song) do
-              begin
-              if CatSongs.Song[I].Main then
-                break;
-              end;
-            //In I ist jetzt die Kategorie in I2 der Song
-
-            //Choose Cat
-            CatSongs.ShowCategoryList;
-
-            //Show Cat in Top Left Mod
-              ShowCatTL (I);
-
-            CatSongs.ClickCategoryButton(I);
-            SelectNext;
-
-            //Fix: Not Existing Song selected:
-            //if (I+1=I2) then Inc(I2);
-
-            //Choose Song
-            SkipTo(I2-I);
-
-            end
-            else //Random in one Category
-            begin
-            SkipTo(Random(CatSongs.VisibleSongs));
-            end;
-            Music.PlayChange;
-
-            ChangeMusic;
-            SetScroll4;
-            UpdateLCD;
-          end;
-        end;
-
-      SDLK_1:
-        begin //Jocker
-          if (Mode = 1) AND (PartySession.Teams.NumTeams >= 1) AND (PartySession.Teams.Teaminfo[0].Joker > 0) then
-          begin
-            //Joker spielen
-            Dec(PartySession.Teams.Teaminfo[0].Joker);
-            SelectRandomSong;
-            SetJoker;
-          end;
-        end;
-
-      SDLK_2:
-        begin //Jocker
-          if (Mode = 1) AND (PartySession.Teams.NumTeams >= 2) AND (PartySession.Teams.Teaminfo[1].Joker > 0) then
-          begin
-            //Joker spielen
-            Dec(PartySession.Teams.Teaminfo[1].Joker);
-            SelectRandomSong;
-            SetJoker;
-          end;
-        end;
-
-      SDLK_3:
-        begin //Jocker
-          if (Mode = 1) AND (PartySession.Teams.NumTeams >= 3) AND (PartySession.Teams.Teaminfo[2].Joker > 0) then
-          begin
-            //Joker spielen
-            Dec(PartySession.Teams.Teaminfo[2].Joker);
-            SelectRandomSong;
-            SetJoker;
-          end;
-        end;
-    end;
-  end;
-end;
-
-constructor TScreenSong.Create;
-var
-  Pet:    integer;
-  I:      integer;
-Label CreateSongButtons;
-begin
-  inherited Create;
-
-  LoadFromTheme(Theme.Song);
-
-  TextArtist := AddText(Theme.Song.TextArtist);
-  TextTitle :=  AddText(Theme.Song.TextTitle);
-  TextNumber := AddText(Theme.Song.TextNumber);
-
-  //Show Cat in Top Left mod
-  TextCat := AddText(Theme.Song.TextCat);
-  StaticCat :=  AddStatic(Theme.Song.StaticCat);
-
-  //Show Video Icon Mod
-  VideoIcon := AddStatic(Theme.Song.VideoIcon);
-
-  //Party Mode
-  StaticTeam1Joker1 := AddStatic(Theme.Song.StaticTeam1Joker1);
-  StaticTeam1Joker2 := AddStatic(Theme.Song.StaticTeam1Joker2);
-  StaticTeam1Joker3 := AddStatic(Theme.Song.StaticTeam1Joker3);
-  StaticTeam1Joker4 := AddStatic(Theme.Song.StaticTeam1Joker4);
-  StaticTeam1Joker5 := AddStatic(Theme.Song.StaticTeam1Joker5);
-
-  StaticTeam2Joker1 := AddStatic(Theme.Song.StaticTeam2Joker1);
-  StaticTeam2Joker2 := AddStatic(Theme.Song.StaticTeam2Joker2);
-  StaticTeam2Joker3 := AddStatic(Theme.Song.StaticTeam2Joker3);
-  StaticTeam2Joker4 := AddStatic(Theme.Song.StaticTeam2Joker4);
-  StaticTeam2Joker5 := AddStatic(Theme.Song.StaticTeam2Joker5);
-
-  StaticTeam3Joker1 := AddStatic(Theme.Song.StaticTeam3Joker1);
-  StaticTeam3Joker2 := AddStatic(Theme.Song.StaticTeam3Joker2);
-  StaticTeam3Joker3 := AddStatic(Theme.Song.StaticTeam3Joker3);
-  StaticTeam3Joker4 := AddStatic(Theme.Song.StaticTeam3Joker4);
-  StaticTeam3Joker5 := AddStatic(Theme.Song.StaticTeam3Joker5);
-
-  //Load Party or NonParty specific Statics and Texts
-  SetLength(StaticParty, Length(Theme.Song.StaticParty));
-  for I := 0 to High(Theme.Song.StaticParty) do
-    StaticParty[I] := AddStatic(Theme.Song.StaticParty[I]);
-
-  SetLength(TextParty, Length(Theme.Song.TextParty));
-  for I := 0 to High(Theme.Song.TextParty) do
-    TextParty[I] := AddText(Theme.Song.TextParty[I]);
-
-  SetLength(StaticNonParty, Length(Theme.Song.StaticNonParty));
-  for I := 0 to High(Theme.Song.StaticNonParty) do
-    StaticNonParty[I] := AddStatic(Theme.Song.StaticNonParty[I]);
-
-  SetLength(TextNonParty, Length(Theme.Song.TextNonParty));
-  for I := 0 to High(Theme.Song.TextNonParty) do
-    TextNonParty[I] := AddText(Theme.Song.TextNonParty[I]);
-
-  // Song List
-//  Songs.LoadSongList; // moved to the UltraStar unit
-  CatSongs.Refresh;
-
-  if (length(CatSongs.Song) > 0) then
-  begin
-    //Set Length of Button Array one Time Instead of one time for every Song
-    SetButtonLength(Length(CatSongs.Song));
-
-    I := 0;
-    CreateSongButtons:
-
-    try
-      for Pet := I to High(CatSongs.Song) do begin // creating all buttons
-        // new
-        Texture.Limit := 512;// 256 0.4.2 value, 512 in 0.5.0
-
-        if not FileExists(CatSongs.Song[Pet].Path + CatSongs.Song[Pet].Cover) then
-          CatSongs.Song[Pet].Cover := ''; // 0.5.0: if cover not found then show 'no cover'
-
-        if CatSongs.Song[Pet].Cover = '' then
-          AddButton(300 + Pet*250, 140, 200, 200, Skin.GetTextureFileName('SongCover'), 'JPG', 'Plain', Theme.Song.Cover.Reflections)
-        else begin
-          // cache texture if there is a need to this
-          if not Covers.CoverExists(CatSongs.Song[Pet].Path + CatSongs.Song[Pet].Cover) then begin
-            Texture.CreateCacheMipmap := true;
-            Texture.GetTexture(CatSongs.Song[Pet].Path + CatSongs.Song[Pet].Cover, 'Plain', true); // preloads textures and creates cache mipmap
-            Texture.CreateCacheMipmap := false;
-
-            // puts this texture to the cache file
-            Covers.AddCover(CatSongs.Song[Pet].Path + CatSongs.Song[Pet].Cover);
-
-            // unload full size texture
-            Texture.UnloadTexture(CatSongs.Song[Pet].Path + CatSongs.Song[Pet].Cover, false);
-
-            // we should also add mipmap texture by calling createtexture and use mipmap cache as data source
-          end;
-
-          // and now load it from cache file (small place for the optimization by eliminating reading it from file, but not here)
-          AddButton(300 + Pet*250, 140, 200, 200, CatSongs.Song[Pet].Path + CatSongs.Song[Pet].Cover, 'JPG', 'Plain', Theme.Song.Cover.Reflections);
-        end;
-        Texture.Limit := 1024*1024;
-        I := -1;
-      end;
-    except
-      //When Error is reported the First time for this Song
-      if (I <> Pet) then
-      begin
-        //Some Error reporting:
-        Log.LogError('Could not load Cover: ' + CatSongs.Song[Pet].Cover);
-
-        //Change Cover to NoCover and Continue Loading
-        CatSongs.Song[Pet].Cover := '';
-        I := Pet;
-      end
-      else //when Error occurs Multiple Times(NoSong Cover is damaged), then start loading next Song
-      begin
-        Log.LogError('NoCover Cover is damaged!');
-        try
-          AddButton(300 + Pet*250, 140, 200, 200, '', 'JPG', 'Plain', Theme.Song.Cover.Reflections);
-        except
-          {$IFDEF win32}
-          Messagebox(0, PChar('No Cover Image is damage. Could not Workaround Song Loading, Ultrastar will exit now.'), PChar(Language.Translate('US_VERSION')), MB_ICONERROR or MB_OK);
-          {$ELSE}
-          // TODO : JB_linux - better handle this message and display to user..
-          writeln( 'No Cover Image is damage. Could not Workaround Song Loading, Ultrastar will exit now.');
-          Log.LogError( 'No Cover Image is damage. Could not Workaround Song Loading, Ultrastar will exit now.' );
-          {$ENDIF}
-          Halt;
-        end;
-        I := Pet + 1;
-      end;
-    end;
-
-    if (I <> -1) then
-      GoTo CreateSongButtons;
-
-  end;
-
-  // Randomize Patch
-  Randomize;
-  //Equalizer
-  SetLength(EqualizerBands, Theme.Song.Equalizer.Bands);
-  //ClearArray
-  For I := low(EqualizerBands) to high(EqualizerBands) do
-    EqualizerBands[I] := 3;
-
-  if (Length(CatSongs.Song) > 0) then
-    Interaction := 0;
-end;
-
-procedure TScreenSong.SetScroll;
-var
-  VS, B: Integer;
-begin
-  VS := CatSongs.VisibleSongs;
-  if VS > 0 then
-  begin
-    //Set Positions
-    Case Theme.Song.Cover.Style of
-      3: SetScroll3;
-      5:begin
-          if VS > 5 then
-            SetScroll5
-          else
-            SetScroll4;
-        end;
-      6: SetScroll6;
-      else SetScroll4;
-    end;
-    //Set Visibility of Video Icon
-    Static[VideoIcon].Visible := (CatSongs.Song[Interaction].Video <> '');
-
-    //Set Texts:
-    Text[TextArtist].Text := CatSongs.Song[Interaction].Artist;
-    Text[TextTitle].Text  :=  CatSongs.Song[Interaction].Title;
-    if (Ini.Tabs_at_startup = 1) And (CatSongs.CatNumShow = -1) then
-    begin
-      Text[TextNumber].Text := IntToStr(CatSongs.Song[Interaction].OrderNum) + '/' + IntToStr(CatSongs.CatCount);
-      Text[TextTitle].Text  := '(' + IntToStr(CatSongs.Song[Interaction].CatNumber) + ' ' + Language.Translate('SING_SONGS_IN_CAT') + ')';
-    end
-    else if (CatSongs.CatNumShow = -2) then
-      Text[TextNumber].Text := IntToStr(CatSongs.VisibleIndex(Interaction)+1) + '/' + IntToStr(VS)
-    else if (CatSongs.CatNumShow = -3) then
-      Text[TextNumber].Text := IntToStr(CatSongs.VisibleIndex(Interaction)+1) + '/' + IntToStr(VS)
-    else if (Ini.Tabs_at_startup = 1) then
-      Text[TextNumber].Text := IntToStr(CatSongs.Song[Interaction].CatNumber) + '/' + IntToStr(CatSongs.Song[Interaction - CatSongs.Song[Interaction].CatNumber].CatNumber)
-    else
-      Text[TextNumber].Text := IntToStr(Interaction+1) + '/' + IntToStr(Length(CatSongs.Song));
-  end
-  else
-  begin
-    Text[TextNumber].Text := '0/0';
-    Text[TextArtist].Text := '';
-    Text[TextTitle].Text  := '';
-    for B := 0 to High(Button) do
-      Button[B].Visible := False;
-
-  end;
-end;
-
-procedure TScreenSong.SetScroll1;
-var
-  B:      integer;    // button
-  BMin:   integer;    // button min
-  BMax:   integer;    // button max
-  Src:    integer;
-//  Dst:    integer;
-  Count:  integer;    // Dst is not used. Count is used.
-  Ready:  boolean;
-
-  VisCount: integer;  // count of visible (or selectable) buttons
-  VisInt:   integer;  // visible position of interacted button
-  Typ:      integer;  // 0 when all songs fits the screen
-  Placed:   integer;  // number of placed visible buttons
-begin
-//  Src := 0;
-//  Dst := -1;
-  Count := 1;
-  Typ := 0;
-  Ready := false;
-  Placed := 0;
-
-  VisCount := 0;
-  for B := 0 to High(Button) do
-    if CatSongs.Song[B].Visible then Inc(VisCount);
-
-  VisInt := 0;
-  for B := 0 to Interaction-1 do
-    if CatSongs.Song[B].Visible then Inc(VisInt);
-
-
-  if VisCount <= 6 then begin
-    Typ := 0;
-  end else begin
-    if VisInt <= 3 then begin
-      Typ := 1;
-      Count := 7;
-      Ready := true;
-    end;
-
-    if (VisCount - VisInt) <= 3 then begin
-      Typ := 2;
-      Count := 7;
-      Ready := true;
-    end;
-
-    if not Ready then begin
-      Typ := 3;
-      Src := Interaction;
-    end;
-  end;
-
-
-
-  // hide all buttons
-  for B := 0 to High(Button) do begin
-    Button[B].Visible := false;
-    Button[B].Selectable := CatSongs.Song[B].Visible;
-  end;
-
-{  for B := Src to Dst do begin
-//    Button[B].Visible := true;
-    Button[B].Visible := CatSongs.Song[B].Visible;
-    Button[B].Selectable := Button[B].Visible;
-    Button[B].Y := 140 + (B-Src) * 60;
-  end;}
-
-
-  if Typ = 0 then begin
-    for B := 0 to High(Button) do begin
-      if CatSongs.Song[B].Visible then begin
-        Button[B].Visible := true;
-        Button[B].Y := 140 + (Placed) * 60;
-        Inc(Placed);
-      end;
-    end;
-  end;
-
-  if Typ = 1 then begin
-    B := 0;
-    while (Count > 0) do begin
-      if CatSongs.Song[B].Visible then begin
-        Button[B].Visible := true;
-        Button[B].Y := 140 + (Placed) * 60;
-        Inc(Placed);
-        Dec(Count);
-      end;
-      Inc(B);
-    end;
-  end;
-
-  if Typ = 2 then begin
-    B := High(Button);
-    while (Count > 0) do begin
-      if CatSongs.Song[B].Visible then begin
-        Button[B].Visible := true;
-        Button[B].Y := 140 + (6-Placed) * 60;
-        Inc(Placed);
-        Dec(Count);
-      end;
-      Dec(B);
-    end;
-  end;
-
-  if Typ = 3 then begin
-    B := Src;
-    Count := 4;
-    while (Count > 0) do begin
-      if CatSongs.Song[B].Visible then begin
-        Button[B].Visible := true;
-        Button[B].Y := 140 + (3+Placed) * 60;
-        Inc(Placed);
-        Dec(Count);
-      end;
-      Inc(B);
-    end;
-
-    B := Src-1;
-    Placed := 0;
-    Count := 3;
-    while (Count > 0) do begin
-      if CatSongs.Song[B].Visible then begin
-        Button[B].Visible := true;
-        Button[B].Y := 140 + (2-Placed) * 60;
-        Inc(Placed);
-        Dec(Count);
-      end;
-      Dec(B);
-    end;
-
-  end;
-
-  if Length(Button) > 0 then
-    Static[1].Texture.Y := Button[Interaction].Y - 5; // selection texture
-end;
-
-procedure TScreenSong.SetScroll2;
-var
-  B:      integer;
-  Wsp:    integer; // wspolczynnik przesuniecia wzgledem srodka ekranu
-  Wsp2:   real;
-begin
-  // liniowe
-  for B := 0 to High(Button) do
-    Button[B].X := 300 + (B - Interaction) * 260;
-
-  if Length(Button) >= 3 then begin
-    if Interaction = 0 then
-      Button[High(Button)].X := 300 - 260;
-
-    if Interaction = High(Button) then
-      Button[0].X := 300 + 260;
-  end;
-
-  // kolowe
-{  for B := 0 to High(Button) do begin
-    Wsp := (B - Interaction); // 0 dla srodka, -1 dla lewego, +1 dla prawego itd.
-    Wsp2 := Wsp / Length(Button);
-    Button[B].X := 300 + 10000 * sin(2*pi*Wsp2);
-//    Button[B].Y := 140 + 50 * ;
-  end;}
-end;
-
-procedure TScreenSong.SetScroll3; // with slide
-var
-  B:      integer;
-  Wsp:    integer; // wspolczynnik przesuniecia wzgledem srodka ekranu
-  Wsp2:   real;
-begin
-  SongTarget := Interaction;
-
-  // liniowe
-  for B := 0 to High(Button) do
-  begin
-    Button[B].X := 300 + (B - SongCurrent) * 260;
-    if (Button[B].X < -Button[B].W) OR (Button[B].X > 800) then
-      Button[B].Visible := False
-    else
-      Button[B].Visible := True;
-  end;
-
-{  if Length(Button) >= 3 then begin
-    if Interaction = 0 then
-      Button[High(Button)].X := 300 - 260;
-
-    if Interaction = High(Button) then
-      Button[0].X := 300 + 260;
-  end;}
-
-  // kolowe
-{  for B := 0 to High(Button) do begin
-    Wsp := (B - Interaction); // 0 dla srodka, -1 dla lewego, +1 dla prawego itd.
-    Wsp2 := Wsp / Length(Button);
-    Button[B].X := 300 + 10000 * sin(2*pi*Wsp2);
-//    Button[B].Y := 140 + 50 * ;
-  end;}
-end;
-
-procedure TScreenSong.SetScroll4; // rotate
-var
-  B:      integer;
-  Wsp:    real;
-  Z, Z2:      real;
-  VS:     integer;
-begin
-  VS := CatSongs.VisibleSongs; // 0.5.0 (I): cached, very important
-
-  // kolowe
-  for B := 0 to High(Button) do begin
-    Button[B].Visible := CatSongs.Song[B].Visible; // nowe
-    if Button[B].Visible then begin // 0.5.0 optimization for 1000 songs - updates only visible songs, hiding in tabs becomes useful for maintaing good speed
-
-    Wsp := 2 * pi * (CatSongs.VisibleIndex(B) - SongCurrent) /  VS {CatSongs.VisibleSongs};// 0.5.0 (II): takes another 16ms
-
-    Z := (1 + cos(Wsp)) / 2;
-    Z2 := (1 + 2*Z) / 3;
-
-
-    Button[B].X := Theme.Song.Cover.X + (0.185 * Theme.Song.Cover.H * VS * sin(Wsp)) * Z2 - ((Button[B].H - Theme.Song.Cover.H)/2); // 0.5.0 (I): 2 times faster by not calling CatSongs.VisibleSongs
-    Button[B].Z := Z / 2 + 0.3;
-
-    Button[B].W := Theme.Song.Cover.H * Z2;
-
-//    Button[B].Y := {50 +} 140 + 50 - 50 * Z2;
-    Button[B].Y := Theme.Song.Cover.Y  + (Theme.Song.Cover.H - Abs(Button[B].H)) * 0.7 ;
-    Button[B].H := Button[B].W;
-    end;
-  end;
-end;
-
-(*
-procedure TScreenSong.SetScroll4; // rotate
-var
-  B:      integer;
-  Wsp:    real;
-  Z:      real;
-  Z2, Z3:     real;
-  VS:     integer;
-  function modreal (const X, Y: real):real;
-  begin
-    Result := Frac(x / y) * y;
-    if Result < -3 then
-      Result := Result + Y
-    else if Result > 3 then
-      Result := Result - Y;
-  end;
-begin
-  VS := CatSongs.VisibleSongs; // 0.5.0 (I): cached, very important
-  Z3 := 1;
-  if VS < 12 then
-    Z2 := VS
-  else
-    Z2 := 12;
-
-  // kolowe
-  for B := 0 to High(Button) do begin
-    Button[B].Visible := CatSongs.Song[B].Visible; // nowe
-    if Button[B].Visible then begin // 0.5.0 optimization for 1000 songs - updates only visible songs, hiding in tabs becomes useful for maintaing good speed
-      if ((ModReal(CatSongs.VisibleIndex(B) - SongCurrent, VS)>-3) AND (ModReal(CatSongs.VisibleIndex(B) - SongCurrent, VS)<3)) then
-      begin
-        if CatSongs.VisibleIndex(B)> SongCurrent then
-          Wsp := 2 * pi * (CatSongs.VisibleIndex(B) - SongCurrent) /  Z2
-        else
-          Wsp := 2 * pi * (CatSongs.VisibleIndex(B) - SongCurrent) /  Z2;
-
-        Z3 := 2;
-        Z := (1 + cos(Wsp)) / 2;
-        //Z2 := (1 + 2*Z) / 3;
-        //Z2 := (0.5 + Z/2);
-        //Z2 := sin(Wsp);
-
-        //Z2 := Power (Z2,Z3);
-
-        Button[B].W := Theme.Song.CoverW * Power(cos(Wsp), Z3);//Power(Z2, 3);
-
-        //Button[B].X := Theme.Song.CoverX + ({Theme.Song.CoverX + Theme.Song.CoverW/2 + Theme.Song.CoverW*0.18 * VS {CatSongs.VisibleSongs {Length(Button) * sin(Wsp) {- Theme.Song.CoverX - Theme.Song.CoverW) * Z2; // 0.5.0 (I): 2 times faster by not calling CatSongs.VisibleSongs
-        if (sin(Wsp)<0) then
-          Button[B].X := sin(Wsp)*Theme.Song.CoverX*Theme.Song.CoverW*0.007 + Theme.Song.CoverX + Theme.Song.CoverW - Button[B].W
-        else //*Theme.Song.CoverW*0.004*Z3
-          Button[B].X := sin(Wsp)*Theme.Song.CoverX*Theme.Song.CoverW*0.007 + Theme.Song.CoverX;
-        Button[B].Z := Z-0.00001;
-
-//      Button[B].Y := {50 + 140 + 50 - 50 * Z2;
-    //  Button[B].Y := (Theme.Song.CoverY  + 40 + 50 - 50 * Z2);
-        Button[B].Y := (Theme.Song.CoverY  + Theme.Song.CoverW - Button[B].W);
-        Button[B].H := Button[B].W;
-        Button[B].Visible := True;
-      end
-      {else if (((CatSongs.VisibleIndex(B) - SongCurrent)>-3) AND ((CatSongs.VisibleIndex(B) - SongCurrent)<3)) OR ((round (CatSongs.VisibleIndex(B) - SongCurrent) mod VS > -3) AND ((CatSongs.VisibleIndex(B) - SongCurrent)<3)) then
-      begin
-        Wsp := 2 * pi * (CatSongs.VisibleIndex(B) - SongCurrent) /  12 ;// 0.5.0 (II): takes another 16ms
-
-        Z := (1 + cos(Wsp)) / 2 -0.00001; //z < 0.49999 is behind the cover 1 is in front of the covers
-
-        Button[B].W := Theme.Song.CoverW * Power(cos(Wsp), Z3);//Power(Z2, 3);
-
-        if (sin(Wsp)<0) then
-          Button[B].X := sin(Wsp)*Theme.Song.CoverX*Theme.Song.CoverW*0.007 + Theme.Song.CoverX + Theme.Song.CoverW - Button[B].W
-        else
-          Button[B].X := sin(Wsp)*Theme.Song.CoverX*Theme.Song.CoverW*0.007 + Theme.Song.CoverX;
-
-        Button[B].Z := Z;
-
-        Button[B].Y := (Theme.Song.CoverY  + Theme.Song.CoverW - Button[B].W);
-
-        Button[B].H := Button[B].W;
-        Button[B].Visible := True;
-      end
-      else Button[B].Visible := False;
-    end;
-  end;
-end;      *)
-
-procedure TScreenSong.SetScroll5; // rotate
-var
-  B:      integer;
-  Angle:    real;
-  Pos:    Real;
-  VS:     integer;
-  diff:     real;
-  X:        Real;
-  helper: real;
-begin
-  VS := CatSongs.VisibleSongs; // cache Visible Songs
-  {Vars
-  Theme.Song.CoverW: Radius des Kreises
-  Theme.Song.CoverX: X Pos Linke Kante des gewählten Covers
-  Theme.Song.CoverX: Y Pos Obere Kante des gewählten Covers
-  Theme.Song.CoverH: Höhe der Cover
-
-  (CatSongs.VisibleIndex(B) - SongCurrent)/VS = Abstand zum MIttleren Cover in %
-  }
-
-  //Change Pos of all Buttons
-  for B := low(Button) to high(Button) do
-  begin
-    Button[B].Visible := CatSongs.Song[B].Visible; //Adjust Visibility
-    if Button[B].Visible then //Only Change Pos for Visible Buttons
-    begin
-      Pos := (CatSongs.VisibleIndex(B) - SongCurrent);
-      if (Pos < -VS/2) then
-        Pos := Pos + VS
-      else if (Pos > VS/2) then
-        Pos := Pos - VS;
-
-      if (Abs(Pos) < 2.5) then {fixed Positions}
-      begin
-      Angle := Pi * (Pos / 5);
-//      Button[B].Visible := False;
-
-      Button[B].H := Abs(Theme.Song.Cover.H * cos(Angle*0.8));//Power(Z2, 3);
-
-//      Button[B].Reflectionspacing := 15 * Button[B].H/Theme.Song.Cover.H;
-      Button[B].DeSelectReflectionspacing := 15 * Button[B].H/Theme.Song.Cover.H;
-
-      Button[B].Z := 0.95 - Abs(Pos) * 0.01;
-
-      Button[B].Y := (Theme.Song.Cover.Y  + (Theme.Song.Cover.H - Abs(Theme.Song.Cover.H * cos(Angle))) * 0.5);
-
-      Button[B].W := Button[B].H;
-
-      Diff := (Button[B].H - Theme.Song.Cover.H)/2;
-
-
-      X := Sin(Angle*1.3)*0.9;
-
-      Button[B].X := Theme.Song.Cover.X + Theme.Song.Cover.W * X - Diff;
-
-      end
-      else
-      begin {Behind the Front Covers}
-
-        // limit-bg-covers hack
-        if (abs(abs(Pos)-VS/2)>10) then Button[B].Visible:=False;
-        // end of limit-bg-covers hack
-
-        if Pos < 0 then
-          Pos := (Pos - VS/2)/VS
-        else
-          Pos := (Pos + VS/2)/VS;
-
-        Angle := pi * Pos*2;
-        if VS > 24 then
-        begin
-          if Angle < 0 then helper:=-1 else helper:=1;
-          Angle:=2*pi-abs(Angle);
-          Angle:=Angle*(VS/24);
-          Angle:=(2*pi-Angle)*helper;
-        end;
-
-        Button[B].Z := (0.4 - Abs(Pos/4)) -0.00001; //z < 0.49999 is behind the cover 1 is in front of the covers
-
-        Button[B].H :=0.6*(Theme.Song.Cover.H-Abs(Theme.Song.Cover.H * cos(Angle/2)*0.8));//Power(Z2, 3);
-
-        Button[B].W := Button[B].H;
-
-        Button[B].Y := Theme.Song.Cover.Y  - (Button[B].H - Theme.Song.Cover.H)*0.75;
-
-//        Button[B].Reflectionspacing := 15 * Button[B].H/Theme.Song.Cover.H;
-        Button[B].DeSelectReflectionspacing := 15 * Button[B].H/Theme.Song.Cover.H;
-
-        Diff := (Button[B].H - Theme.Song.Cover.H)/2;
-
-        Button[B].X :=  Theme.Song.Cover.X+Theme.Song.Cover.H/2-Button[b].H/2+Theme.Song.Cover.W/320*((Theme.Song.Cover.H)*sin(Angle/2)*1.52);
-
-      end;
-
-      //Button[B].Y := (Theme.Song.Cover.Y  + (Theme.Song.Cover.H - Button[B].H)/1.5); //Cover at down border of the change field
-//      Button[B].Y := (Theme.Song.Cover.Y  + (Theme.Song.Cover.H - Button[B].H) * 0.7);
-
-    end;
-  end;
-end;
-
-procedure TScreenSong.SetScroll6; // rotate (slotmachine style)
-var
-  B:      integer;
-  Angle:    real;
-  Pos:    Real;
-  VS:     integer;
-  diff:     real;
-  X:        Real;
-  Wsp:    real;
-  Z, Z2:      real;
-begin
-  VS := CatSongs.VisibleSongs; // cache Visible Songs
-  if VS <=5 then begin
-    // kolowe
-    for B := 0 to High(Button) do
-    begin
-      Button[B].Visible := CatSongs.Song[B].Visible; // nowe
-      if Button[B].Visible then begin // 0.5.0 optimization for 1000 songs - updates only visible songs, hiding in tabs becomes useful for maintaing good speed
-
-      Wsp := 2 * pi * (CatSongs.VisibleIndex(B) - SongCurrent) /  VS {CatSongs.VisibleSongs};// 0.5.0 (II): takes another 16ms
-
-      Z := (1 + cos(Wsp)) / 2;
-      Z2 := (1 + 2*Z) / 3;
-
-
-      Button[B].Y := Theme.Song.Cover.Y + (0.185 * Theme.Song.Cover.H * VS * sin(Wsp)) * Z2 - ((Button[B].H - Theme.Song.Cover.H)/2); // 0.5.0 (I): 2 times faster by not calling CatSongs.VisibleSongs
-      Button[B].Z := Z / 2 + 0.3;
-
-      Button[B].W := Theme.Song.Cover.H * Z2;
-
-//      Button[B].Y := {50 +} 140 + 50 - 50 * Z2;
-      Button[B].X := Theme.Song.Cover.X  + (Theme.Song.Cover.H - Abs(Button[B].H)) * 0.7 ;
-      Button[B].H := Button[B].W;
-      end;
-    end;
-  end
-  else begin
-
-    //Change Pos of all Buttons
-    for B := low(Button) to high(Button) do
-      begin
-          Button[B].Visible := CatSongs.Song[B].Visible; //Adjust Visibility
-      if Button[B].Visible then //Only Change Pos for Visible Buttons
-        begin
-        Pos := (CatSongs.VisibleIndex(B) - SongCurrent);
-        if (Pos < -VS/2) then
-          Pos := Pos + VS
-        else if (Pos > VS/2) then
-          Pos := Pos - VS;
-
-        if (Abs(Pos) < 2.5) then {fixed Positions}
-        begin
-          Angle := Pi * (Pos / 5);
-//          Button[B].Visible := False;
-
-          Button[B].H := Abs(Theme.Song.Cover.H * cos(Angle*0.8));//Power(Z2, 3);
-
-          Button[B].DeSelectReflectionspacing := 15 * Button[B].H/Theme.Song.Cover.H;
-
-          Button[B].Z := 0.95 - Abs(Pos) * 0.01;
-
-          Button[B].X := (Theme.Song.Cover.X  + (Theme.Song.Cover.H - Abs(Theme.Song.Cover.H * cos(Angle))) * 0.5);
-
-          Button[B].W := Button[B].H;
-
-          Diff := (Button[B].H - Theme.Song.Cover.H)/2;
-
-
-          X := Sin(Angle*1.3)*0.9;
-
-          Button[B].Y := Theme.Song.Cover.Y + Theme.Song.Cover.W * X - Diff;
-        end
-        else
-        begin {Behind the Front Covers}
-
-          // limit-bg-covers hack
-          if (abs(VS/2-abs(Pos))>10) then Button[B].Visible:=False;
-          if VS > 25 then VS:=25;
-          // end of limit-bg-covers hack
-
-          if Pos < 0 then
-            Pos := (Pos - VS/2)/VS
-          else
-            Pos := (Pos + VS/2)/VS;
-
-          Angle := pi * Pos*2;
-
-          Button[B].Z := (0.4 - Abs(Pos/4)) -0.00001; //z < 0.49999 is behind the cover 1 is in front of the covers
-
-          Button[B].H :=0.6*(Theme.Song.Cover.H-Abs(Theme.Song.Cover.H * cos(Angle/2)*0.8));//Power(Z2, 3);
-
-          Button[B].W := Button[B].H;
-
-          Button[B].X := Theme.Song.Cover.X  - (Button[B].H - Theme.Song.Cover.H)*0.5;
-
-
-          Button[B].DeSelectReflectionspacing := 15 * Button[B].H/Theme.Song.Cover.H;
-
-          Button[B].Y := Theme.Song.Cover.Y+Theme.Song.Cover.H/2-Button[b].H/2+Theme.Song.Cover.W/320*(Theme.Song.Cover.H*sin(Angle/2)*1.52);
-        end;
-      end;
-    end;
-  end;
-end;
-
-
-procedure TScreenSong.onShow;
-begin
-  Music.Stop;
-
-  if Ini.Players <= 3 then PlayersPlay := Ini.Players + 1;
-  if Ini.Players = 4 then PlayersPlay := 6;
-
-  //Cat Mod etc
-    if (Ini.Tabs_at_startup = 1) AND (CatSongs.CatNumShow = -1) then
-    begin
-      CatSongs.ShowCategoryList;
-      FixSelected;
-      //Show Cat in Top Left Mod
-      HideCatTL;
-    end;
-
-
-  if Length(CatSongs.Song) > 0 then begin
-    //Load Music only when Song Preview is activated
-    if (Ini.PreviewVolume <> 0) then
-    begin
-      Music.SetLoop(false);
-      Music.Open(CatSongs.Song[Interaction].Path + CatSongs.Song[Interaction].Mp3);
-      Music.MoveTo(Music.Length / 4);
-      Music.Play;
-
-      //Set Preview Volume
-      Music.SetMusicVolume (Ini.PreviewVolume * 10);
-      {//if Music Fade is activated, Set Volume to 0 %
-      if (Ini.PreviewFading <> 0) then
-        Music.SetMusicVolume(0);}
-    end;
-
-    SetScroll;
-    UpdateLCD;
-  end;
-
-  //Playlist Mode
-  if (Mode = 0) then
-  begin
-    //If Playlist Shown -> Select Next automatically
-    if (CatSongs.CatNumShow = -3) then
-    begin
-      SelectNext;
-      ChangeMusic;
-    end;
-  end
-  //Party Mode
-  else if (Mode = 1) then
-  begin
-
-    SelectRandomSong;
-    //Show Menu directly in PartyMode
-    //But only if selected in Options
-    if (Ini.PartyPopup = 1) then
-    begin
-      ScreenSongMenu.MenuShow(SM_Party_Main);
-    end;
-
-
-  end;
-
-  SetJoker;
-  SetStatics;
-end;
-
-procedure TScreenSong.onHide;
-begin
-  //When Music Fading is activated, Turn Music to 100 %
-  If (Ini.PreviewVolume <> 100) or (Ini.PreviewFading <> 0) then
-    Music.SetMusicVolume(100);
-
-  //If Preview is deactivated: Load MUsicfile now
-  If (Ini.PreviewVolume = 0) then
-    Music.Open(CatSongs.Song[Interaction].Path + CatSongs.Song[Interaction].Mp3);
-
-  //When hide then Stop Music (For Party Mode Popup on Exit)
-  if (Display.NextScreen <> @ScreenSing) and (Display.NextScreen <> @ScreenSingModi) and (Music <> nil) then
-    Music.Stop;
-end;
-
-procedure TScreenSong.DrawExtensions;
-begin
-  //Draw Song Menu
-  if (ScreenSongMenu.Visible) then
-  begin
-    ScreenSongMenu.Draw;
-  end
-  else if (ScreenSongJumpto.Visible) then
-  begin
-    ScreenSongJumpto.Draw;
-  end
-end;
-
-function TScreenSong.Draw: boolean;
-var
-  dx:   real;
-  dt:   real;
-  I:    Integer;
-begin
-  dx := SongTarget-SongCurrent;
-  dt := TimeSkip*7;
-  if dt > 1 then dt := 1;
-  SongCurrent := SongCurrent + dx*dt;
-
-{  if SongCurrent > Catsongs.VisibleSongs then begin
-    SongCurrent := SongCurrent - Catsongs.VisibleSongs;
-    SongTarget := SongTarget - Catsongs.VisibleSongs;
-  end;}
-
-//  Log.BenchmarkStart(5);
-  SetScroll;
-//  Log.BenchmarkEnd(5);
-//  Log.LogBenchmark('SetScroll4', 5);
-
-  //Fading Functions, Only if Covertime is under 5 Seconds
-  If (CoverTime < 5) then
-  begin
-    // 0.5.0: cover fade
-    if (CoverTime < 1) and (CoverTime + TimeSkip >= 1) then begin
-      // load new texture
-      Texture.GetTexture(Button[Interaction].Texture.Name, 'Plain', false);
-      Button[Interaction].Texture.Alpha := 1;
-      Button[Interaction].Texture2 := Texture.GetTexture(Button[Interaction].Texture.Name, 'Plain', false);
-      Button[Interaction].Texture2.Alpha := 1;
-    end;
-
-    //Song Fade
-    if (CatSongs.VisibleSongs > 0) AND (Ini.PreviewVolume <> 0) AND (Not CatSongs.Song[Interaction].Main) AND (Ini.PreviewFading <> 0) then
-    begin
-      //Start Song Fade after a little Time, to prevent Song to be Played on Scrolling
-      if (CoverTime < 0.2) and (CoverTime + TimeSkip >= 0.2) then
-        Music.Play;
-
-      //Update Song Volume
-      if (CoverTime < Ini.PreviewFading) then
-        Music.SetMusicVolume(Round (CoverTime * Ini.PreviewVolume / Ini.PreviewFading * 10))
-      else
-        Music.SetMusicVolume(Ini.PreviewVolume * 10);
-
-    end;
-
-
-    //Update Fading Time
-    CoverTime := CoverTime + TimeSkip;
-
-    //Update Fading Texture
-    Button[Interaction].Texture2.Alpha := (CoverTime - 1) * 1.5;
-    if Button[Interaction].Texture2.Alpha > 1 then Button[Interaction].Texture2.Alpha := 1;
-
-  end;
-
-  //inherited Draw;
-  //heres a little Hack, that causes the Statics
-  //are Drawn after the Buttons because of some Blending Problems.
-  //This should cause no Problems because all Buttons on this screen
-  //Has Z Position.
-  //Draw BG
-  DrawBG;
-
-  //Instead of Draw FG Procedure:
-  //We draw Buttons for our own
-  for I := 0 to Length(Button) - 1 do
-    Button[I].Draw;
-
-  // Statics
-  for I := 0 to Length(Static) - 1 do
-    Static[I].Draw;
-
-  // and texts
-  for I := 0 to Length(Text) - 1 do
-    Text[I].Draw;
-
-
-  //Draw Equalizer
-  if Theme.Song.Equalizer.Visible then
-    DrawEqualizer;
-
-  DrawExtensions;
-
-end;
-
-procedure TScreenSong.SelectNext;
-var
-  Skip:   integer;
-  I:      integer;
-  VS:     Integer;
-begin
-  VS := CatSongs.VisibleSongs;
-
-  if VS > 0 then
-  begin
-    UnLoadDetailedCover;
-
-    Skip := 1;
-
-    // this 1 could be changed by CatSongs.FindNextVisible
-    while (not CatSongs.Song[(Interaction + Skip) mod Length(Interactions)].Visible) do Inc(Skip);
-
-    SongTarget := SongTarget + 1;//Skip;
-
-    Interaction := (Interaction + Skip) mod Length(Interactions);
-
-    // try to keep all at the beginning
-    if SongTarget > VS-1 then begin
-      SongTarget := SongTarget - VS;
-      SongCurrent := SongCurrent - VS;
-    end;
-
-  end;
-      // Interaction -> Button, ktorego okladke przeczytamy
-      //  Button[Interaction].Texture := Texture.GetTexture(Button[Interaction].Texture.Name, 'Plain', false); // 0.5.0: show uncached texture
-end;
-
-procedure TScreenSong.SelectPrev;
-var
-  Skip:   integer;
-  I:      integer;
-  VS:     Integer;
-begin
-  VS := CatSongs.VisibleSongs;
-
-  if VS > 0 then
-  begin
-    UnLoadDetailedCover;
-
-    Skip := 1;
-
-    while (not CatSongs.Song[(Interaction - Skip + Length(Interactions)) mod Length(Interactions)].Visible) do Inc(Skip);
-    SongTarget := SongTarget - 1;//Skip;
-
-    Interaction := (Interaction - Skip + Length(Interactions)) mod Length(Interactions);
-
-    // try to keep all at the beginning
-    if SongTarget < 0 then begin
-      SongTarget := SongTarget + CatSongs.VisibleSongs;
-      SongCurrent := SongCurrent + CatSongs.VisibleSongs;
-    end;
-
-  //  Button[Interaction].Texture := Texture.GetTexture(Button[Interaction].Texture.Name, 'Plain', false); // 0.5.0: show uncached texture
-  end;
-end;
-
-procedure TScreenSong.UpdateLCD;
-begin
-  LCD.HideCursor;
-  LCD.Clear;
-  LCD.WriteText(1, Text[TextArtist].Text);
-  LCD.WriteText(2, Text[TextTitle].Text);
-end;
-
-//Procedure Change current played Preview
-procedure TScreenSong.ChangeMusic;
-begin
-  //When Music Preview is avtivated -> then Change Music
-  if (Ini.PreviewVolume <> 0) then
-    begin
-    if (NOT CatSongs.Song[Interaction].Main) AND(CatSongs.VisibleSongs > 0) then
-    begin
-      Music.Close;
-      if Music.Open(CatSongs.Song[Interaction].Path + CatSongs.Song[Interaction].Mp3) then begin
-        Music.MoveTo(Music.Length / 4);
-        //If Song Fading is activated then don't Play directly, and Set Volume to Null, else Play normal
-        if (Ini.PreviewFading = 0) then
-          Music.Play
-        else
-          Music.SetMusicVolume(0);
-      end;
-    end
-    else
-      Music.Stop;
-  end;
-end;
-
-procedure TScreenSong.SkipTo(Target: Cardinal); // 0.5.0
-var
-  Skip:   integer;
-  I:      integer;
-begin
-  UnLoadDetailedCover;
-
-  Interaction := High(CatSongs.Song);
-  SongTarget := 0;
-
-  for I := 1 to Target+1 do
-    SelectNext;
-
-  FixSelected2;
-end;
-
-procedure TScreenSong.DrawEqualizer;
-var
-  Data: TFFTData; //Audio Data
-  I, J: Integer;
-  Res: byte;
-  A, B: Integer;
-  PosX, PosY: Integer;
-  Pos: Real;
-begin
-if (not Music.Finished) AND (Theme.Song.Equalizer.Length > 0) then
-begin
-
-
-  A := GetTickCount div 44;
-
-  if (A <> EqualizerTime) then
-  begin
-    EqualizerTime := A;
-    Data := Music.GetFFTData;
-
-    B:=0;
-    Pos := 0;
-    Res := ceil(92/Theme.Song.Equalizer.Bands);//How much channels are used for one Band
-
-    //Change Lengths
-    for I := 0 to (Res * Theme.Song.Equalizer.Bands - 1) do
-    begin
-      A := floor(I/Res);
-
-      if (A<>B) then //Band changed
-      begin
-        if (Pos <= Theme.Song.Equalizer.Length) then
-        begin
-          if ((Pos < EqualizerBands[B]) AND (EqualizerBands[B]>1)) then
-            EqualizerBands[B] := EqualizerBands[B] - 1
-          else
-            EqualizerBands[B] := floor(Pos);
-        end
-        else
-          EqualizerBands[B] := 1;
-
-        B := A;
-        Pos := 0;
-      end;
-
-      if I > 35 then
-        Data[i] := Data[i] * 8
-      else if I > 11 then
-        Data[i] := Data[i] * 4.5
-      else
-        Data[i] := Data[i] * 1.1;
-
-      if (Data[i] >= 1) then
-        Data[i] := 0.9999999999999;
-
-      if Data[i]*Theme.Song.Equalizer.Length > Pos then
-        Pos := Data[i]*Theme.Song.Equalizer.Length;
-    end;
-
-    //Change Last Band
-    if (EqualizerBands[B] <= Theme.Song.Equalizer.Length) then
-    begin
-      if ((Pos < EqualizerBands[B]) AND (EqualizerBands[B]>1)) then
-        EqualizerBands[B] := EqualizerBands[B] - 1
-      else
-        EqualizerBands[B] := floor(Pos)
-    end
-    else
-      EqualizerBands[B] := 1;
-  end;
-
-  //Draw every Channel
-  glColor4f(Theme.Song.Equalizer.ColR, Theme.Song.Equalizer.ColG, Theme.Song.Equalizer.ColB, Theme.Song.Equalizer.Alpha); //Set Color
-  glDisable(GL_TEXTURE_2D);
-  glEnable(GL_BLEND);
-
-  PosY := Theme.Song.Equalizer.Y;
-  PosX := Theme.Song.Equalizer.X;
-
-  For I := 0 to Theme.Song.Equalizer.Bands-1 do
-  begin
-    if Theme.Song.Equalizer.Direction then
-      PosY := Theme.Song.Equalizer.Y //+ (Theme.Song.Equalizer.H + Theme.Song.Equalizer.Space) * Theme.Song.Equalizer.Length
-    else
-      PosX := Theme.Song.Equalizer.X;
-    //Draw for every visible quad
-    for J := 1 to EqualizerBands[I] do
-    begin
-      glBegin(GL_QUADS);
-        glVertex3f(PosX, PosY, Theme.Song.Equalizer.Z);
-        glVertex3f(PosX, PosY+Theme.Song.Equalizer.H, Theme.Song.Equalizer.Z);
-        glVertex3f(PosX+Theme.Song.Equalizer.W, PosY+Theme.Song.Equalizer.H, Theme.Song.Equalizer.Z);
-        glVertex3f(PosX+Theme.Song.Equalizer.W, PosY, Theme.Song.Equalizer.Z);
-      glEnd;
-
-      if Theme.Song.Equalizer.Direction then //Vertically
-        PosY := PosY - Theme.Song.Equalizer.H - Theme.Song.Equalizer.Space
-      else //Horizontally
-        PosX := PosX + Theme.Song.Equalizer.W + Theme.Song.Equalizer.Space;
-    end;
-    if Theme.Song.Equalizer.Direction then //Horizontally
-      PosX := PosX + Theme.Song.Equalizer.W + Theme.Song.Equalizer.Space
-    else //Vertically
-      PosY := PosY + Theme.Song.Equalizer.H + Theme.Song.Equalizer.Space;
-  end;
-end;
-end;
-
-Procedure TScreenSong.SelectRandomSong;
-var
-  I, I2: Integer;
-begin
-  Case PlaylistMan.Mode of
-      0:  //All Songs Just Select Random Song
-        begin
-          //When Tabs are activated then use Tab Method
-          if (Ini.Tabs_at_startup = 1) then
-          begin
-            repeat
-              I2 := Random(high(CatSongs.Song)+1) - low(CatSongs.Song)+1;
-            until CatSongs.Song[I2].Main = false;
-
-            //Search Cat
-            for I := I2 downto low(CatSongs.Song) do
-            begin
-              if CatSongs.Song[I].Main then
-                break;
-            end;
-            //In I ist jetzt die Kategorie in I2 der Song
-            //I is the CatNum, I2 is the No of the Song within this Cat
-
-            //Choose Cat
-            CatSongs.ShowCategoryList;
-
-            //Show Cat in Top Left Mod
-            ShowCatTL (I);
-
-            CatSongs.ClickCategoryButton(I);
-            SelectNext;
-
-            //Choose Song
-            SkipTo(I2-I);
-          end
-          //When Tabs are deactivated use easy Method
-          else
-            SkipTo(Random(CatSongs.VisibleSongs));
-        end;
-      1:  //One Category Select Category and Select Random Song
-        begin
-          CatSongs.ShowCategoryList;
-          CatSongs.ClickCategoryButton(PlaylistMan.CurPlayList);
-          ShowCatTL(PlaylistMan.CurPlayList);
-
-          SelectNext;
-          FixSelected2;
-
-          SkipTo(Random(CatSongs.VisibleSongs));
-        end;
-      2:  //Playlist: Select Playlist and Select Random Song
-        begin
-          PlaylistMan.SetPlayList(PlaylistMan.CurPlayList);
-
-          SkipTo(Random(CatSongs.VisibleSongs));
-          FixSelected2;
-        end;
-  end;
-
-  Music.PlayChange;
-  ChangeMusic;
-  SetScroll;
-  UpdateLCD;
-end;
-
-procedure TScreenSong.SetJoker;
-begin
-  //If Party Mode
-  if Mode = 1 then //Show Joker that are available
-  begin
-    if (PartySession.Teams.NumTeams >= 1) then
-    begin
-      Static[StaticTeam1Joker1].Visible := (PartySession.Teams.Teaminfo[0].Joker >= 1);
-      Static[StaticTeam1Joker2].Visible := (PartySession.Teams.Teaminfo[0].Joker >= 2);
-      Static[StaticTeam1Joker3].Visible := (PartySession.Teams.Teaminfo[0].Joker >= 3);
-      Static[StaticTeam1Joker4].Visible := (PartySession.Teams.Teaminfo[0].Joker >= 4);
-      Static[StaticTeam1Joker5].Visible := (PartySession.Teams.Teaminfo[0].Joker >= 5);
-    end
-    else
-    begin
-      Static[StaticTeam1Joker1].Visible := False;
-      Static[StaticTeam1Joker2].Visible := False;
-      Static[StaticTeam1Joker3].Visible := False;
-      Static[StaticTeam1Joker4].Visible := False;
-      Static[StaticTeam1Joker5].Visible := False;
-    end;
-
-    if (PartySession.Teams.NumTeams >= 2) then
-    begin
-      Static[StaticTeam2Joker1].Visible := (PartySession.Teams.Teaminfo[1].Joker >= 1);
-      Static[StaticTeam2Joker2].Visible := (PartySession.Teams.Teaminfo[1].Joker >= 2);
-      Static[StaticTeam2Joker3].Visible := (PartySession.Teams.Teaminfo[1].Joker >= 3);
-      Static[StaticTeam2Joker4].Visible := (PartySession.Teams.Teaminfo[1].Joker >= 4);
-      Static[StaticTeam2Joker5].Visible := (PartySession.Teams.Teaminfo[1].Joker >= 5);
-    end
-    else
-    begin
-      Static[StaticTeam2Joker1].Visible := False;
-      Static[StaticTeam2Joker2].Visible := False;
-      Static[StaticTeam2Joker3].Visible := False;
-      Static[StaticTeam2Joker4].Visible := False;
-      Static[StaticTeam2Joker5].Visible := False;
-    end;
-
-    if (PartySession.Teams.NumTeams >= 3) then
-    begin
-      Static[StaticTeam3Joker1].Visible := (PartySession.Teams.Teaminfo[2].Joker >= 1);
-      Static[StaticTeam3Joker2].Visible := (PartySession.Teams.Teaminfo[2].Joker >= 2);
-      Static[StaticTeam3Joker3].Visible := (PartySession.Teams.Teaminfo[2].Joker >= 3);
-      Static[StaticTeam3Joker4].Visible := (PartySession.Teams.Teaminfo[2].Joker >= 4);
-      Static[StaticTeam3Joker5].Visible := (PartySession.Teams.Teaminfo[2].Joker >= 5);
-    end
-    else
-    begin
-      Static[StaticTeam3Joker1].Visible := False;
-      Static[StaticTeam3Joker2].Visible := False;
-      Static[StaticTeam3Joker3].Visible := False;
-      Static[StaticTeam3Joker4].Visible := False;
-      Static[StaticTeam3Joker5].Visible := False;
-    end;
-  end
-  else
-  begin //Hide all
-    Static[StaticTeam1Joker1].Visible := False;
-    Static[StaticTeam1Joker2].Visible := False;
-    Static[StaticTeam1Joker3].Visible := False;
-    Static[StaticTeam1Joker4].Visible := False;
-    Static[StaticTeam1Joker5].Visible := False;
-
-    Static[StaticTeam2Joker1].Visible := False;
-    Static[StaticTeam2Joker2].Visible := False;
-    Static[StaticTeam2Joker3].Visible := False;
-    Static[StaticTeam2Joker4].Visible := False;
-    Static[StaticTeam2Joker5].Visible := False;
-
-    Static[StaticTeam3Joker1].Visible := False;
-    Static[StaticTeam3Joker2].Visible := False;
-    Static[StaticTeam3Joker3].Visible := False;
-    Static[StaticTeam3Joker4].Visible := False;
-    Static[StaticTeam3Joker5].Visible := False;
-  end;
-end;
-
-procedure TScreenSong.SetStatics;
-var
-  I:       Integer;
-  Visible: Boolean;
-begin
-  //Set Visibility of Party Statics and Text
-  Visible := (Mode = 1);
-
-  For I := 0 to high(StaticParty) do
-    Static[StaticParty[I]].Visible := Visible;
-
-  For I := 0 to high(TextParty) do
-    Text[TextParty[I]].Visible := Visible;
-
-  //Set Visibility of Non Party Statics and Text
-  Visible := not Visible;
-
-  For I := 0 to high(StaticNonParty) do
-    Static[StaticNonParty[I]].Visible := Visible;
-
-  For I := 0 to high(TextNonParty) do
-    Text[TextNonParty[I]].Visible := Visible;
-end;
-
-//Procedures for Menu
-
-procedure TScreenSong.StartSong;
-begin
-  CatSongs.Selected := Interaction;
-  Music.Stop;
-  //Party Mode
-  if (Mode = 1) then
-  begin
-    FadeTo(@ScreenSingModi);
-  end
-  else
-  begin
-    FadeTo(@ScreenSing);
-  end;
-end;
-
-procedure TScreenSong.SelectPlayers;
-begin
-  CatSongs.Selected := Interaction;
-  Music.Stop;
-
-  ScreenName.Goto_SingScreen := True;
-  FadeTo(@ScreenName);
-end;
-
-procedure TScreenSong.OpenEditor;
-begin
-  if (Length(Songs.Song) > 0) and (not CatSongs.Song[Interaction].Main) AND (Mode = 0) then begin
-    Music.Stop;
-    Music.PlayStart;
-    ScreenEditSub.Path := CatSongs.Song[Interaction].Path;
-    ScreenEditSub.FileName := CatSongs.Song[Interaction].FileName;
-    FadeTo(@ScreenEditSub);
-  end;
-end;
-
-//Team No of Team (0-5)
-procedure TScreenSong.DoJoker (Team: Byte);
-begin
-  if (Mode = 1) AND (PartySession.Teams.NumTeams >= Team + 1) AND (PartySession.Teams.Teaminfo[Team].Joker > 0) then
-  begin
-    //Joker spielen
-    Dec(PartySession.Teams.Teaminfo[Team].Joker);
-    SelectRandomSong;
-    SetJoker;
-  end;
-end;
-
-//Detailed Cover Unloading. Unloads the Detailed, uncached Cover of the cur. Song
-procedure TScreenSong.UnLoadDetailedCover;
-begin
-  CoverTime := 0;
-  
-  Button[Interaction].Texture := Texture.GetTexture(Button[Interaction].Texture.Name, 'Plain', true); // 0.5.0: show cached texture
-  Button[Interaction].Texture2.Alpha := 0;
-
-  if Button[Interaction].Texture.Name <> Skin.GetTextureFileName('SongCover') then
-    Texture.UnloadTexture(Button[Interaction].Texture.Name, false);
-end;
-
-procedure TScreenSong.Refresh;
-begin {
-CatSongs.Refresh;
-CatSongs.ShowCategoryList;
-Interaction := 0;
-SelectNext;
-FixSelected; }
-
-end;
-
-end.
+unit UScreenSong;

+

+interface

+{$I switches.inc}

+

+uses

+  UMenu,

+  SDL,

+  UMusic,

+  UFiles,

+  UTime,

+  UDisplay,

+  USongs,

+  SysUtils,

+  ULog,

+  UThemes,

+  UTexture,

+  ULanguage,

+  ULCD,

+  ULight,

+  UIni;

+

+type

+  TScreenSong = class(TMenu)

+    public

+      TextArtist:   integer;

+      TextTitle:    integer;

+      TextNumber:   integer;

+

+      //Video Icon Mod

+      VideoIcon:         Cardinal;

+

+      TextCat:   integer;

+      StaticCat: integer;

+

+      SongCurrent:  real;

+      SongTarget:   real;

+

+      HighSpeed:    boolean;

+      CoverFull:    boolean;

+      CoverTime:    real;

+      CoverX:       integer;

+      CoverY:       integer;

+      CoverW:       integer;

+      is_jump:      boolean; // Jump to Song Mod

+      is_jump_title:boolean; //Jump to SOng MOd-YTrue if search for Title

+

+      EqualizerBands: array of Byte;

+      EqualizerTime: Cardinal;

+      EqualizerTime2: Byte;

+

+      //Party Mod

+      Mode: Byte;  //0 = Standard, 1= Go to PartyMode after Selection + Change to Random Song at Show

+      //party Statics (Joker)

+      StaticTeam1Joker1: Cardinal;

+      StaticTeam1Joker2: Cardinal;

+      StaticTeam1Joker3: Cardinal;

+      StaticTeam1Joker4: Cardinal;

+      StaticTeam1Joker5: Cardinal;

+

+      StaticTeam2Joker1: Cardinal;

+      StaticTeam2Joker2: Cardinal;

+      StaticTeam2Joker3: Cardinal;

+      StaticTeam2Joker4: Cardinal;

+      StaticTeam2Joker5: Cardinal;

+

+      StaticTeam3Joker1: Cardinal;

+      StaticTeam3Joker2: Cardinal;

+      StaticTeam3Joker3: Cardinal;

+      StaticTeam3Joker4: Cardinal;

+      StaticTeam3Joker5: Cardinal;

+

+      StaticParty:    Array of Cardinal;

+      TextParty:      Array of Cardinal;

+      StaticNonParty: Array of Cardinal;

+      TextNonParty:   Array of Cardinal;

+

+

+      constructor Create; override;

+      procedure SetScroll;

+      procedure SetScroll1;

+      procedure SetScroll2;

+      procedure SetScroll3;

+      procedure SetScroll4;

+      procedure SetScroll5;

+      procedure SetScroll6;

+      function ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; override;

+      function Draw: boolean; override;

+      procedure onShow; override;

+      procedure onHide; override;

+      procedure SelectNext;

+      procedure SelectPrev;

+      procedure UpdateLCD;

+      procedure SkipTo(Target: Cardinal);

+      procedure FixSelected; //Show Wrong Song when Tabs on Fix

+      procedure FixSelected2; //Show Wrong Song when Tabs on Fix

+      procedure ShowCatTL(Cat: Integer);// Show Cat in Top left

+      procedure ShowCatTLCustom(Caption: String);// Show Custom Text in Top left

+      procedure HideCatTL;// Show Cat in Tob left

+      procedure Refresh; //Refresh Song Sorting

+      procedure DrawEqualizer;

+      procedure ChangeMusic;

+      //Party Mode

+      procedure SelectRandomSong;

+      procedure SetJoker;

+      procedure SetStatics;

+      //procedures for Menu

+      procedure StartSong;

+      procedure OpenEditor;

+      procedure DoJoker(Team: Byte);

+      procedure SelectPlayers;

+

+      procedure UnLoadDetailedCover;

+

+      //Extensions

+      procedure DrawExtensions;

+  end;

+

+implementation

+uses UGraphic,

+     UMain,

+     UCovers,

+     math,

+     OpenGL12,

+     {$IFDEF win32}

+     windows,

+     {$ELSE}

+     lclintf,

+     {$ENDIF}

+     USkins,

+     UDLLManager,

+     UParty,

+     UPlaylist,

+     UScreenSongMenu;

+

+// ***** Public methods ****** //

+

+//Show Wrong Song when Tabs on Fix

+procedure TScreenSong.FixSelected;

+var I, I2: Integer;

+  begin

+    if CatSongs.VisibleSongs > 0 then

+    begin

+      I2:= 0;

+      for I := low(CatSongs.Song) to High(Catsongs.Song) do

+      begin

+        if CatSongs.Song[I].Visible then

+          inc(I2);

+

+        if I = Interaction - 1 then

+          break;

+      end;

+

+      SongCurrent := I2;

+      SongTarget  := I2;

+    end;

+  end;

+

+procedure TScreenSong.FixSelected2;

+var I, I2: Integer;

+  begin

+    if CatSongs.VisibleSongs > 0 then

+    begin

+      I2:= 0;

+      for I := low(CatSongs.Song) to High(Catsongs.Song) do

+      begin

+        if CatSongs.Song[I].Visible then

+          inc(I2);

+

+        if I = Interaction - 1 then

+          break;

+      end;

+

+      SongTarget  := I2;

+    end;

+  end;

+//Show Wrong Song when Tabs on Fix End

+

+  procedure TScreenSong.ShowCatTLCustom(Caption: String);// Show Custom Text in Top left

+  begin

+    Text[TextCat].Text := Caption;

+    Text[TextCat].Visible := true;

+    Static[StaticCat].Visible := False;

+  end;

+

+  //Show Cat in Top Left Mod

+  procedure TScreenSong.ShowCatTL(Cat: Integer);

+    begin

+    //Change

+    Text[TextCat].Text := CatSongs.Song[Cat].Artist;

+    //showmessage(CatSongs.Song[Cat].Path + CatSongs.Song[Cat].Cover);

+    //Static[StaticCat].Texture := Texture.GetTexture(Button[Cat].Texture.Name, 'Plain', true);

+

+    Static[StaticCat].Texture := Texture.GetTexture(Button[Cat].Texture.Name, 'Plain', true);

+    //Texture.GetTexture(Button[Cat].Texture.Name, 'Plain', false);

+    //Button[Cat].

+    //Cover

+

+

+    //Show

+    Text[TextCat].Visible := true;

+    Static[StaticCat].Visible := True;

+    end;

+

+  procedure TScreenSong.HideCatTL;

+    begin

+    //Hide

+    //Text[TextCat].Visible := false;

+    Static[StaticCat].Visible := false;

+    //New -> Show Text specified in Theme

+    Text[TextCat].Visible := True;

+    Text[TextCat].Text := Theme.Song.TextCat.Text;

+    end;

+    //Show Cat in Top Left Mod End

+

+

+// Method for input parsing. If False is returned, GetNextWindow

+// should be checked to know the next window to load;

+function TScreenSong.ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean;

+var

+  I:      integer;

+  I2:     integer;

+  HS:     integer;

+  SDL_ModState:  Word;

+  Letter: Char;

+begin

+  Result := true;

+

+  //Song Screen Extensions (Jumpto + Menu)

+  if (ScreenSongMenu.Visible) then

+  begin

+    Result := ScreenSongMenu.ParseInput(PressedKey, ScanCode, PressedDown);

+    Exit;

+  end

+  else if (ScreenSongJumpto.Visible) then

+  begin

+    Result := ScreenSongJumpto.ParseInput(PressedKey, ScanCode, PressedDown);

+    Exit;

+  end;

+

+  If (PressedDown) Then

+  begin // Key Down

+

+    SDL_ModState := SDL_GetModState and (KMOD_LSHIFT + KMOD_RSHIFT

+    + KMOD_LCTRL + KMOD_RCTRL + KMOD_LALT  + KMOD_RALT);

+

+    //Jump to Artist/Titel

+    if (SDL_ModState and KMOD_LALT <> 0) AND (Mode = 0) AND (PressedKey >= SDLK_A) AND (PressedKey <= SDLK_Z) then

+    begin

+      Letter := UpCase(Chr(ScanCode));

+      I2 := Length(CatSongs.Song);

+

+      //Jump To Titel

+      if (SDL_ModState = KMOD_LALT or KMOD_LSHIFT) then

+      begin

+        For I := 1 to high(CatSongs.Song) do

+        begin

+          if (CatSongs.Song[(I + Interaction) mod I2].Visible) AND (Length(CatSongs.Song[(I + Interaction) mod I2].Title)>0) AND (UpCase(CatSongs.Song[(I + Interaction) mod I2].Title[1]) = Letter) then

+          begin

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

+

+            Music.PlayChange;

+

+            ChangeMusic;

+            SetScroll4;

+            UpdateLCD;

+            //Break and Exit

+            Exit;

+          end;

+        end;

+      end

+      //Jump to Artist

+      else  if (SDL_ModState = KMOD_LALT) then

+      begin

+        For I := 1 to high(CatSongs.Song) do

+        begin

+          if (CatSongs.Song[(I + Interaction) mod I2].Visible) AND (Length(CatSongs.Song[(I + Interaction) mod I2].Artist)>0) AND (UpCase(CatSongs.Song[(I + Interaction) mod I2].Artist[1]) = Letter) then

+          begin

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

+

+            Music.PlayChange;

+

+            ChangeMusic;

+            SetScroll4;

+            UpdateLCD;

+

+            //Break and Exit

+            Exit;

+          end;

+        end;

+      end;

+      Exit;

+    end;

+

+    case PressedKey of

+      SDLK_Q:

+        begin

+          Result := false;

+        end;

+

+      SDLK_ESCAPE,

+      SDLK_BACKSPACE :

+        begin

+        if (Mode = 0) then

+        begin

+          //On Escape goto Cat-List Hack

+          if (Ini.Tabs_at_startup = 1) AND (CatSongs.CatNumShow <> -1) then

+            begin

+            //Find Category

+            I := Interaction;

+            while not catsongs.Song[I].Main  do

+              begin

+              Dec (I);

+              if (I < low(catsongs.Song)) then

+                break;

+              end;

+            if (I<= 1) then

+            Interaction := high(catsongs.Song)

+            else

+            Interaction := I - 1;

+

+            //Stop Music

+            Music.Stop;

+

+            CatSongs.ShowCategoryList;

+

+            //Show Cat in Top Left Mod

+            HideCatTL;

+

+

+            //Show Wrong Song when Tabs on Fix

+            SelectNext;

+            FixSelected;

+            //SelectPrev;

+            //CatSongs.Song[0].Visible := False;

+            end

+          else

+          begin

+          //On Escape goto Cat-List Hack End

+            //Tabs off and in Search or Playlist -> Go back to Song view

+            if (CatSongs.CatNumShow < -1) then

+            begin

+              //Atm: Set Empty Filter

+              CatSongs.SetFilter('', 0);

+

+              //Show Cat in Top Left Mod

+              HideCatTL;

+              Interaction := 0;

+

+              //Show Wrong Song when Tabs on Fix

+              SelectNext;

+              FixSelected;

+

+              ChangeMusic;

+            end

+            else

+            begin

+              Music.Stop;

+              Music.PlayBack;

+

+              FadeTo(@ScreenMain);

+            end;

+

+          end;

+        end

+        //When in party Mode then Ask before Close

+        else if (Mode = 1) then

+        begin

+          Music.PlayBack;

+          CheckFadeTo(@ScreenMain,'MSG_END_PARTY');

+        end;

+        end;

+      SDLK_RETURN:

+        begin

+          if Length(Songs.Song) > 0 then

+          begin

+            {$IFDEF UseSerialPort}

+              // PortWriteB($378, 0);

+            {$ENDIF}

+            if CatSongs.Song[Interaction].Main then

+            begin // clicked on Category Button

+

+              //Show Cat in Top Left Mod

+              ShowCatTL (Interaction);

+

+              //I := CatSongs.VisibleIndex(Interaction);

+              CatSongs.ClickCategoryButton(Interaction);

+              {I2 := CatSongs.VisibleIndex(Interaction);

+              SongCurrent := SongCurrent - I + I2;

+              SongTarget := SongTarget - I + I2; }

+

+//              if I<>I2 then beep;

+            //  SetScroll4;

+

+            //Show Wrong Song when Tabs on Fix

+            SelectNext;

+            FixSelected;

+

+            //Play Music:

+            ChangeMusic;

+

+            end else begin // clicked on song

+              if (Mode = 0) then //Normal Mode -> Start Song

+              begin

+                //Do the Action that is specified in Ini

+                case Ini.OnSongClick of

+                  0: StartSong;

+                  1: SelectPlayers;

+                  2:begin

+                      If (CatSongs.CatNumShow = -3) then

+                        ScreenSongMenu.MenuShow(SM_Playlist)

+                      else

+                        ScreenSongMenu.MenuShow(SM_Main);

+                    end;

+                end;

+              end

+              else if (Mode = 1) then //PartyMode -> Show Menu

+              begin

+                if (Ini.PartyPopup = 1) then

+                  ScreenSongMenu.MenuShow(SM_Party_Main)

+                else

+                  ScreenSong.StartSong;

+              end;

+            end;

+          end;

+        end;

+

+      SDLK_M: //Show SongMenu

+        begin

+          if (Length(Songs.Song) > 0) then begin

+            if (Mode = 0) then begin

+              if not CatSongs.Song[Interaction].Main then begin // clicked on Song

+                if CatSongs.CatNumShow = -3 then

+                  ScreenSongMenu.MenuShow(SM_Playlist)

+                else

+                  ScreenSongMenu.MenuShow(SM_Main);

+              end

+              else

+              begin

+                ScreenSongMenu.MenuShow(SM_Playlist_Load);

+              end;

+            end //Party Mode -> Show Party Menu

+            else ScreenSongMenu.MenuShow(SM_Party_Main);

+          end;

+        end;

+

+      SDLK_P: //Show Playlist Menu

+        begin

+          if (Length(Songs.Song) > 0) AND (Mode = 0) then begin

+              ScreenSongMenu.MenuShow(SM_Playlist_Load);

+          end;

+        end;

+

+      SDLK_J: //Show Jumpto Menu

+        begin

+          if (Length(Songs.Song) > 0) AND (Mode = 0) then

+          begin

+            ScreenSongJumpto.Visible := True;

+          end;

+        end;

+

+      SDLK_DOWN:

+        begin

+          if (Mode = 0) then

+          begin

+            //Only Change Cat when not in Playlist or Search Mode

+            if (CatSongs.CatNumShow > -2) then

+            begin

+              //Cat Change Hack

+              if Ini.Tabs_at_startup = 1 then

+              begin

+                I := Interaction;

+                if I <= 0 then I := 1;

+

+                while not catsongs.Song[I].Main do

+                begin

+                  Inc (I);

+                  if (I > high(catsongs.Song)) then

+                    I := low(catsongs.Song);

+                end;

+

+                Interaction := I;

+

+                //Show Cat in Top Left Mod

+                ShowCatTL (Interaction);

+

+                CatSongs.ClickCategoryButton(Interaction);

+                SelectNext;

+                FixSelected;

+

+                //Play Music:

+                Music.PlayChange;

+                ChangeMusic;

+

+              end;

+

+            //

+            //Cat Change Hack End}

+            end;

+          end;

+        end;

+      SDLK_UP:

+        begin

+          if (Mode = 0) then

+          begin

+            //Only Change Cat when not in Playlist or Search Mode

+            if (CatSongs.CatNumShow > -2) then

+            begin

+              //Cat Change Hack

+              if Ini.Tabs_at_startup = 1 then

+              begin

+                I := Interaction;

+                I2 := 0;

+                if I <= 0 then I := 1;

+

+                while not catsongs.Song[I].Main or (I2 = 0) do

+                begin

+                  if catsongs.Song[I].Main then

+                    Inc(I2);

+                  Dec (I);

+                  if (I < low(catsongs.Song)) then

+                    I := high(catsongs.Song);

+                end;

+

+                Interaction := I;

+

+                //Show Cat in Top Left Mod

+                ShowCatTL (I);

+

+                CatSongs.ClickCategoryButton(I);

+                SelectNext;

+                FixSelected;

+

+                //Play Music:

+                Music.PlayChange;

+                ChangeMusic;

+              end;

+            end;

+            //Cat Change Hack End}

+          end;

+        end;

+

+      SDLK_RIGHT:

+        begin

+          if (Length(Songs.Song) > 0) AND (Mode = 0) then begin

+            Music.PlayChange;

+            SelectNext;

+//            InteractNext;

+//           SongTarget := Interaction;

+            ChangeMusic;

+            SetScroll4;

+            UpdateLCD;

+            Light.LightOne(1, 200);

+          end;

+        end;

+

+      SDLK_LEFT:

+        begin

+          if (Length(Songs.Song) > 0)AND (Mode = 0)  then begin

+            Music.PlayChange;

+            SelectPrev;

+            ChangeMusic;

+            SetScroll4;

+            UpdateLCD;

+            Light.LightOne(0, 200);

+          end;

+        end;

+

+      SDLK_E:

+        begin

+          OpenEditor;

+        end;

+

+      SDLK_R:

+        begin

+          if (Length(Songs.Song) > 0) AND (Mode = 0) then begin

+

+            if (SDL_ModState = KMOD_LSHIFT) AND (Ini.Tabs_at_startup = 1) then //Random Category

+            begin

+            I2 := 0; //Count Cats

+            for I:= low(CatSongs.Song) to high (CatSongs.Song) do

+              if CatSongs.Song[I].Main then Inc(I2);

+

+            I2 := Random (I2)+1; //Zufall

+

+            //Find Cat:

+            for I:= low(CatSongs.Song) to high (CatSongs.Song) do

+              begin

+              if CatSongs.Song[I].Main then

+                Dec(I2);

+              if (I2<=0) then

+                begin

+                //Show Cat in Top Left Mod

+                ShowCatTL (I);

+

+                Interaction := I;

+

+                CatSongs.ShowCategoryList;

+                CatSongs.ClickCategoryButton(I);

+                SelectNext;

+                FixSelected;

+                break;

+                end;

+              end;

+

+

+            end

+            else if (SDL_ModState = KMOD_LCTRL) AND (Ini.Tabs_at_startup = 1) then //random in All Categorys

+            begin

+            repeat

+              I2 := Random(high(CatSongs.Song)+1) - low(CatSongs.Song)+1;

+            until CatSongs.Song[I2].Main = false;

+

+            //Search Cat

+            for I := I2 downto low(CatSongs.Song) do

+              begin

+              if CatSongs.Song[I].Main then

+                break;

+              end;

+            //In I ist jetzt die Kategorie in I2 der Song

+

+            //Choose Cat

+            CatSongs.ShowCategoryList;

+

+            //Show Cat in Top Left Mod

+              ShowCatTL (I);

+

+            CatSongs.ClickCategoryButton(I);

+            SelectNext;

+

+            //Fix: Not Existing Song selected:

+            //if (I+1=I2) then Inc(I2);

+

+            //Choose Song

+            SkipTo(I2-I);

+

+            end

+            else //Random in one Category

+            begin

+            SkipTo(Random(CatSongs.VisibleSongs));

+            end;

+            Music.PlayChange;

+

+            ChangeMusic;

+            SetScroll4;

+            UpdateLCD;

+          end;

+        end;

+

+      SDLK_1:

+        begin //Jocker

+          if (Mode = 1) AND (PartySession.Teams.NumTeams >= 1) AND (PartySession.Teams.Teaminfo[0].Joker > 0) then

+          begin

+            //Joker spielen

+            Dec(PartySession.Teams.Teaminfo[0].Joker);

+            SelectRandomSong;

+            SetJoker;

+          end;

+        end;

+

+      SDLK_2:

+        begin //Jocker

+          if (Mode = 1) AND (PartySession.Teams.NumTeams >= 2) AND (PartySession.Teams.Teaminfo[1].Joker > 0) then

+          begin

+            //Joker spielen

+            Dec(PartySession.Teams.Teaminfo[1].Joker);

+            SelectRandomSong;

+            SetJoker;

+          end;

+        end;

+

+      SDLK_3:

+        begin //Jocker

+          if (Mode = 1) AND (PartySession.Teams.NumTeams >= 3) AND (PartySession.Teams.Teaminfo[2].Joker > 0) then

+          begin

+            //Joker spielen

+            Dec(PartySession.Teams.Teaminfo[2].Joker);

+            SelectRandomSong;

+            SetJoker;

+          end;

+        end;

+    end;

+  end;

+end;

+

+constructor TScreenSong.Create;

+var

+  Pet:    integer;

+  I:      integer;

+Label CreateSongButtons;

+begin

+  inherited Create;

+

+  LoadFromTheme(Theme.Song);

+

+  TextArtist := AddText(Theme.Song.TextArtist);

+  TextTitle :=  AddText(Theme.Song.TextTitle);

+  TextNumber := AddText(Theme.Song.TextNumber);

+

+  //Show Cat in Top Left mod

+  TextCat := AddText(Theme.Song.TextCat);

+  StaticCat :=  AddStatic(Theme.Song.StaticCat);

+

+  //Show Video Icon Mod

+  VideoIcon := AddStatic(Theme.Song.VideoIcon);

+

+  //Party Mode

+  StaticTeam1Joker1 := AddStatic(Theme.Song.StaticTeam1Joker1);

+  StaticTeam1Joker2 := AddStatic(Theme.Song.StaticTeam1Joker2);

+  StaticTeam1Joker3 := AddStatic(Theme.Song.StaticTeam1Joker3);

+  StaticTeam1Joker4 := AddStatic(Theme.Song.StaticTeam1Joker4);

+  StaticTeam1Joker5 := AddStatic(Theme.Song.StaticTeam1Joker5);

+

+  StaticTeam2Joker1 := AddStatic(Theme.Song.StaticTeam2Joker1);

+  StaticTeam2Joker2 := AddStatic(Theme.Song.StaticTeam2Joker2);

+  StaticTeam2Joker3 := AddStatic(Theme.Song.StaticTeam2Joker3);

+  StaticTeam2Joker4 := AddStatic(Theme.Song.StaticTeam2Joker4);

+  StaticTeam2Joker5 := AddStatic(Theme.Song.StaticTeam2Joker5);

+

+  StaticTeam3Joker1 := AddStatic(Theme.Song.StaticTeam3Joker1);

+  StaticTeam3Joker2 := AddStatic(Theme.Song.StaticTeam3Joker2);

+  StaticTeam3Joker3 := AddStatic(Theme.Song.StaticTeam3Joker3);

+  StaticTeam3Joker4 := AddStatic(Theme.Song.StaticTeam3Joker4);

+  StaticTeam3Joker5 := AddStatic(Theme.Song.StaticTeam3Joker5);

+

+  //Load Party or NonParty specific Statics and Texts

+  SetLength(StaticParty, Length(Theme.Song.StaticParty));

+  for I := 0 to High(Theme.Song.StaticParty) do

+    StaticParty[I] := AddStatic(Theme.Song.StaticParty[I]);

+

+  SetLength(TextParty, Length(Theme.Song.TextParty));

+  for I := 0 to High(Theme.Song.TextParty) do

+    TextParty[I] := AddText(Theme.Song.TextParty[I]);

+

+  SetLength(StaticNonParty, Length(Theme.Song.StaticNonParty));

+  for I := 0 to High(Theme.Song.StaticNonParty) do

+    StaticNonParty[I] := AddStatic(Theme.Song.StaticNonParty[I]);

+

+  SetLength(TextNonParty, Length(Theme.Song.TextNonParty));

+  for I := 0 to High(Theme.Song.TextNonParty) do

+    TextNonParty[I] := AddText(Theme.Song.TextNonParty[I]);

+

+  // Song List

+//  Songs.LoadSongList; // moved to the UltraStar unit

+  CatSongs.Refresh;

+

+  if (length(CatSongs.Song) > 0) then

+  begin

+    //Set Length of Button Array one Time Instead of one time for every Song

+    SetButtonLength(Length(CatSongs.Song));

+

+    I := 0;

+    CreateSongButtons:

+

+    try

+      for Pet := I to High(CatSongs.Song) do begin // creating all buttons

+        // new

+        Texture.Limit := 512;// 256 0.4.2 value, 512 in 0.5.0

+

+        if not FileExists(CatSongs.Song[Pet].Path + CatSongs.Song[Pet].Cover) then

+          CatSongs.Song[Pet].Cover := ''; // 0.5.0: if cover not found then show 'no cover'

+

+        if CatSongs.Song[Pet].Cover = '' then

+          AddButton(300 + Pet*250, 140, 200, 200, Skin.GetTextureFileName('SongCover'), 'JPG', 'Plain', Theme.Song.Cover.Reflections)

+        else begin

+          // cache texture if there is a need to this

+          if not Covers.CoverExists(CatSongs.Song[Pet].Path + CatSongs.Song[Pet].Cover) then

+          begin

+            Texture.CreateCacheMipmap := true;

+            Texture.GetTexture(CatSongs.Song[Pet].Path + CatSongs.Song[Pet].Cover, 'Plain', true); // preloads textures and creates cache mipmap

+            Texture.CreateCacheMipmap := false;

+

+            // puts this texture to the cache file

+            Covers.AddCover(CatSongs.Song[Pet].Path + CatSongs.Song[Pet].Cover);

+

+            // unload full size texture

+            Texture.UnloadTexture(CatSongs.Song[Pet].Path + CatSongs.Song[Pet].Cover, false);

+

+            // we should also add mipmap texture by calling createtexture and use mipmap cache as data source

+          end;

+

+          // and now load it from cache file (small place for the optimization by eliminating reading it from file, but not here)

+          AddButton(300 + Pet*250, 140, 200, 200, CatSongs.Song[Pet].Path + CatSongs.Song[Pet].Cover, 'JPG', 'Plain', Theme.Song.Cover.Reflections);

+        end;

+        Texture.Limit := 1024*1024;

+        I := -1;

+      end;

+    except

+      //When Error is reported the First time for this Song

+      if (I <> Pet) then

+      begin

+        //Some Error reporting:

+        Log.LogError('Could not load Cover: ' + CatSongs.Song[Pet].Cover);

+

+        //Change Cover to NoCover and Continue Loading

+        CatSongs.Song[Pet].Cover := '';

+        I := Pet;

+      end

+      else //when Error occurs Multiple Times(NoSong Cover is damaged), then start loading next Song

+      begin

+        Log.LogError('NoCover Cover is damaged!');

+        try

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

+        except

+          {$IFDEF win32}

+          Messagebox(0, PChar('No Cover Image is damage. Could not Workaround Song Loading, Ultrastar will exit now.'), PChar(Language.Translate('US_VERSION')), MB_ICONERROR or MB_OK);

+          {$ELSE}

+          // TODO : JB_linux - better handle this message and display to user..

+          writeln( 'No Cover Image is damage. Could not Workaround Song Loading, Ultrastar will exit now.');

+          Log.LogError( 'No Cover Image is damage. Could not Workaround Song Loading, Ultrastar will exit now.' );

+          {$ENDIF}

+          Halt;

+        end;

+        I := Pet + 1;

+      end;

+    end;

+

+    if (I <> -1) then

+      GoTo CreateSongButtons;

+

+  end;

+

+  // Randomize Patch

+  Randomize;

+  //Equalizer

+  SetLength(EqualizerBands, Theme.Song.Equalizer.Bands);

+  //ClearArray

+  For I := low(EqualizerBands) to high(EqualizerBands) do

+    EqualizerBands[I] := 3;

+

+  if (Length(CatSongs.Song) > 0) then

+    Interaction := 0;

+end;

+

+procedure TScreenSong.SetScroll;

+var

+  VS, B: Integer;

+begin

+  VS := CatSongs.VisibleSongs;

+  if VS > 0 then

+  begin

+    //Set Positions

+    Case Theme.Song.Cover.Style of

+      3: SetScroll3;

+      5:begin

+          if VS > 5 then

+            SetScroll5

+          else

+            SetScroll4;

+        end;

+      6: SetScroll6;

+      else SetScroll4;

+    end;

+    //Set Visibility of Video Icon

+    Static[VideoIcon].Visible := (CatSongs.Song[Interaction].Video <> '');

+

+    //Set Texts:

+    Text[TextArtist].Text := CatSongs.Song[Interaction].Artist;

+    Text[TextTitle].Text  :=  CatSongs.Song[Interaction].Title;

+    if (Ini.Tabs_at_startup = 1) And (CatSongs.CatNumShow = -1) then

+    begin

+      Text[TextNumber].Text := IntToStr(CatSongs.Song[Interaction].OrderNum) + '/' + IntToStr(CatSongs.CatCount);

+      Text[TextTitle].Text  := '(' + IntToStr(CatSongs.Song[Interaction].CatNumber) + ' ' + Language.Translate('SING_SONGS_IN_CAT') + ')';

+    end

+    else if (CatSongs.CatNumShow = -2) then

+      Text[TextNumber].Text := IntToStr(CatSongs.VisibleIndex(Interaction)+1) + '/' + IntToStr(VS)

+    else if (CatSongs.CatNumShow = -3) then

+      Text[TextNumber].Text := IntToStr(CatSongs.VisibleIndex(Interaction)+1) + '/' + IntToStr(VS)

+    else if (Ini.Tabs_at_startup = 1) then

+      Text[TextNumber].Text := IntToStr(CatSongs.Song[Interaction].CatNumber) + '/' + IntToStr(CatSongs.Song[Interaction - CatSongs.Song[Interaction].CatNumber].CatNumber)

+    else

+      Text[TextNumber].Text := IntToStr(Interaction+1) + '/' + IntToStr(Length(CatSongs.Song));

+  end

+  else

+  begin

+    Text[TextNumber].Text := '0/0';

+    Text[TextArtist].Text := '';

+    Text[TextTitle].Text  := '';

+    for B := 0 to High(Button) do

+      Button[B].Visible := False;

+

+  end;

+end;

+

+procedure TScreenSong.SetScroll1;

+var

+  B:      integer;    // button

+  BMin:   integer;    // button min

+  BMax:   integer;    // button max

+  Src:    integer;

+//  Dst:    integer;

+  Count:  integer;    // Dst is not used. Count is used.

+  Ready:  boolean;

+

+  VisCount: integer;  // count of visible (or selectable) buttons

+  VisInt:   integer;  // visible position of interacted button

+  Typ:      integer;  // 0 when all songs fits the screen

+  Placed:   integer;  // number of placed visible buttons

+begin

+//  Src := 0;

+//  Dst := -1;

+  Count := 1;

+  Typ := 0;

+  Ready := false;

+  Placed := 0;

+

+  VisCount := 0;

+  for B := 0 to High(Button) do

+    if CatSongs.Song[B].Visible then Inc(VisCount);

+

+  VisInt := 0;

+  for B := 0 to Interaction-1 do

+    if CatSongs.Song[B].Visible then Inc(VisInt);

+

+

+  if VisCount <= 6 then begin

+    Typ := 0;

+  end else begin

+    if VisInt <= 3 then begin

+      Typ := 1;

+      Count := 7;

+      Ready := true;

+    end;

+

+    if (VisCount - VisInt) <= 3 then begin

+      Typ := 2;

+      Count := 7;

+      Ready := true;

+    end;

+

+    if not Ready then begin

+      Typ := 3;

+      Src := Interaction;

+    end;

+  end;

+

+

+

+  // hide all buttons

+  for B := 0 to High(Button) do begin

+    Button[B].Visible := false;

+    Button[B].Selectable := CatSongs.Song[B].Visible;

+  end;

+

+{  for B := Src to Dst do begin

+//    Button[B].Visible := true;

+    Button[B].Visible := CatSongs.Song[B].Visible;

+    Button[B].Selectable := Button[B].Visible;

+    Button[B].Y := 140 + (B-Src) * 60;

+  end;}

+

+

+  if Typ = 0 then begin

+    for B := 0 to High(Button) do begin

+      if CatSongs.Song[B].Visible then begin

+        Button[B].Visible := true;

+        Button[B].Y := 140 + (Placed) * 60;

+        Inc(Placed);

+      end;

+    end;

+  end;

+

+  if Typ = 1 then begin

+    B := 0;

+    while (Count > 0) do begin

+      if CatSongs.Song[B].Visible then begin

+        Button[B].Visible := true;

+        Button[B].Y := 140 + (Placed) * 60;

+        Inc(Placed);

+        Dec(Count);

+      end;

+      Inc(B);

+    end;

+  end;

+

+  if Typ = 2 then begin

+    B := High(Button);

+    while (Count > 0) do begin

+      if CatSongs.Song[B].Visible then begin

+        Button[B].Visible := true;

+        Button[B].Y := 140 + (6-Placed) * 60;

+        Inc(Placed);

+        Dec(Count);

+      end;

+      Dec(B);

+    end;

+  end;

+

+  if Typ = 3 then begin

+    B := Src;

+    Count := 4;

+    while (Count > 0) do begin

+      if CatSongs.Song[B].Visible then begin

+        Button[B].Visible := true;

+        Button[B].Y := 140 + (3+Placed) * 60;

+        Inc(Placed);

+        Dec(Count);

+      end;

+      Inc(B);

+    end;

+

+    B := Src-1;

+    Placed := 0;

+    Count := 3;

+    while (Count > 0) do begin

+      if CatSongs.Song[B].Visible then begin

+        Button[B].Visible := true;

+        Button[B].Y := 140 + (2-Placed) * 60;

+        Inc(Placed);

+        Dec(Count);

+      end;

+      Dec(B);

+    end;

+

+  end;

+

+  if Length(Button) > 0 then

+    Static[1].Texture.Y := Button[Interaction].Y - 5; // selection texture

+end;

+

+procedure TScreenSong.SetScroll2;

+var

+  B:      integer;

+  Wsp:    integer; // wspolczynnik przesuniecia wzgledem srodka ekranu

+  Wsp2:   real;

+begin

+  // liniowe

+  for B := 0 to High(Button) do

+    Button[B].X := 300 + (B - Interaction) * 260;

+

+  if Length(Button) >= 3 then begin

+    if Interaction = 0 then

+      Button[High(Button)].X := 300 - 260;

+

+    if Interaction = High(Button) then

+      Button[0].X := 300 + 260;

+  end;

+

+  // kolowe

+{  for B := 0 to High(Button) do begin

+    Wsp := (B - Interaction); // 0 dla srodka, -1 dla lewego, +1 dla prawego itd.

+    Wsp2 := Wsp / Length(Button);

+    Button[B].X := 300 + 10000 * sin(2*pi*Wsp2);

+//    Button[B].Y := 140 + 50 * ;

+  end;}

+end;

+

+procedure TScreenSong.SetScroll3; // with slide

+var

+  B:      integer;

+  Wsp:    integer; // wspolczynnik przesuniecia wzgledem srodka ekranu

+  Wsp2:   real;

+begin

+  SongTarget := Interaction;

+

+  // liniowe

+  for B := 0 to High(Button) do

+  begin

+    Button[B].X := 300 + (B - SongCurrent) * 260;

+    if (Button[B].X < -Button[B].W) OR (Button[B].X > 800) then

+      Button[B].Visible := False

+    else

+      Button[B].Visible := True;

+  end;

+

+{  if Length(Button) >= 3 then begin

+    if Interaction = 0 then

+      Button[High(Button)].X := 300 - 260;

+

+    if Interaction = High(Button) then

+      Button[0].X := 300 + 260;

+  end;}

+

+  // kolowe

+{  for B := 0 to High(Button) do begin

+    Wsp := (B - Interaction); // 0 dla srodka, -1 dla lewego, +1 dla prawego itd.

+    Wsp2 := Wsp / Length(Button);

+    Button[B].X := 300 + 10000 * sin(2*pi*Wsp2);

+//    Button[B].Y := 140 + 50 * ;

+  end;}

+end;

+

+procedure TScreenSong.SetScroll4; // rotate

+var

+  B:      integer;

+  Wsp:    real;

+  Z, Z2:      real;

+  VS:     integer;

+begin

+  VS := CatSongs.VisibleSongs; // 0.5.0 (I): cached, very important

+

+  // kolowe

+  for B := 0 to High(Button) do begin

+    Button[B].Visible := CatSongs.Song[B].Visible; // nowe

+    if Button[B].Visible then begin // 0.5.0 optimization for 1000 songs - updates only visible songs, hiding in tabs becomes useful for maintaing good speed

+

+    Wsp := 2 * pi * (CatSongs.VisibleIndex(B) - SongCurrent) /  VS {CatSongs.VisibleSongs};// 0.5.0 (II): takes another 16ms

+

+    Z := (1 + cos(Wsp)) / 2;

+    Z2 := (1 + 2*Z) / 3;

+

+

+    Button[B].X := Theme.Song.Cover.X + (0.185 * Theme.Song.Cover.H * VS * sin(Wsp)) * Z2 - ((Button[B].H - Theme.Song.Cover.H)/2); // 0.5.0 (I): 2 times faster by not calling CatSongs.VisibleSongs

+    Button[B].Z := Z / 2 + 0.3;

+

+    Button[B].W := Theme.Song.Cover.H * Z2;

+

+//    Button[B].Y := {50 +} 140 + 50 - 50 * Z2;

+    Button[B].Y := Theme.Song.Cover.Y  + (Theme.Song.Cover.H - Abs(Button[B].H)) * 0.7 ;

+    Button[B].H := Button[B].W;

+    end;

+  end;

+end;

+

+(*

+procedure TScreenSong.SetScroll4; // rotate

+var

+  B:      integer;

+  Wsp:    real;

+  Z:      real;

+  Z2, Z3:     real;

+  VS:     integer;

+  function modreal (const X, Y: real):real;

+  begin

+    Result := Frac(x / y) * y;

+    if Result < -3 then

+      Result := Result + Y

+    else if Result > 3 then

+      Result := Result - Y;

+  end;

+begin

+  VS := CatSongs.VisibleSongs; // 0.5.0 (I): cached, very important

+  Z3 := 1;

+  if VS < 12 then

+    Z2 := VS

+  else

+    Z2 := 12;

+

+  // kolowe

+  for B := 0 to High(Button) do begin

+    Button[B].Visible := CatSongs.Song[B].Visible; // nowe

+    if Button[B].Visible then begin // 0.5.0 optimization for 1000 songs - updates only visible songs, hiding in tabs becomes useful for maintaing good speed

+      if ((ModReal(CatSongs.VisibleIndex(B) - SongCurrent, VS)>-3) AND (ModReal(CatSongs.VisibleIndex(B) - SongCurrent, VS)<3)) then

+      begin

+        if CatSongs.VisibleIndex(B)> SongCurrent then

+          Wsp := 2 * pi * (CatSongs.VisibleIndex(B) - SongCurrent) /  Z2

+        else

+          Wsp := 2 * pi * (CatSongs.VisibleIndex(B) - SongCurrent) /  Z2;

+

+        Z3 := 2;

+        Z := (1 + cos(Wsp)) / 2;

+        //Z2 := (1 + 2*Z) / 3;

+        //Z2 := (0.5 + Z/2);

+        //Z2 := sin(Wsp);

+

+        //Z2 := Power (Z2,Z3);

+

+        Button[B].W := Theme.Song.CoverW * Power(cos(Wsp), Z3);//Power(Z2, 3);

+

+        //Button[B].X := Theme.Song.CoverX + ({Theme.Song.CoverX + Theme.Song.CoverW/2 + Theme.Song.CoverW*0.18 * VS {CatSongs.VisibleSongs {Length(Button) * sin(Wsp) {- Theme.Song.CoverX - Theme.Song.CoverW) * Z2; // 0.5.0 (I): 2 times faster by not calling CatSongs.VisibleSongs

+        if (sin(Wsp)<0) then

+          Button[B].X := sin(Wsp)*Theme.Song.CoverX*Theme.Song.CoverW*0.007 + Theme.Song.CoverX + Theme.Song.CoverW - Button[B].W

+        else //*Theme.Song.CoverW*0.004*Z3

+          Button[B].X := sin(Wsp)*Theme.Song.CoverX*Theme.Song.CoverW*0.007 + Theme.Song.CoverX;

+        Button[B].Z := Z-0.00001;

+

+//      Button[B].Y := {50 + 140 + 50 - 50 * Z2;

+    //  Button[B].Y := (Theme.Song.CoverY  + 40 + 50 - 50 * Z2);

+        Button[B].Y := (Theme.Song.CoverY  + Theme.Song.CoverW - Button[B].W);

+        Button[B].H := Button[B].W;

+        Button[B].Visible := True;

+      end

+      {else if (((CatSongs.VisibleIndex(B) - SongCurrent)>-3) AND ((CatSongs.VisibleIndex(B) - SongCurrent)<3)) OR ((round (CatSongs.VisibleIndex(B) - SongCurrent) mod VS > -3) AND ((CatSongs.VisibleIndex(B) - SongCurrent)<3)) then

+      begin

+        Wsp := 2 * pi * (CatSongs.VisibleIndex(B) - SongCurrent) /  12 ;// 0.5.0 (II): takes another 16ms

+

+        Z := (1 + cos(Wsp)) / 2 -0.00001; //z < 0.49999 is behind the cover 1 is in front of the covers

+

+        Button[B].W := Theme.Song.CoverW * Power(cos(Wsp), Z3);//Power(Z2, 3);

+

+        if (sin(Wsp)<0) then

+          Button[B].X := sin(Wsp)*Theme.Song.CoverX*Theme.Song.CoverW*0.007 + Theme.Song.CoverX + Theme.Song.CoverW - Button[B].W

+        else

+          Button[B].X := sin(Wsp)*Theme.Song.CoverX*Theme.Song.CoverW*0.007 + Theme.Song.CoverX;

+

+        Button[B].Z := Z;

+

+        Button[B].Y := (Theme.Song.CoverY  + Theme.Song.CoverW - Button[B].W);

+

+        Button[B].H := Button[B].W;

+        Button[B].Visible := True;

+      end

+      else Button[B].Visible := False;

+    end;

+  end;

+end;      *)

+

+procedure TScreenSong.SetScroll5; // rotate

+var

+  B:      integer;

+  Angle:    real;

+  Pos:    Real;

+  VS:     integer;

+  diff:     real;

+  X:        Real;

+  helper: real;

+begin

+  VS := CatSongs.VisibleSongs; // cache Visible Songs

+  {Vars

+  Theme.Song.CoverW: Radius des Kreises

+  Theme.Song.CoverX: X Pos Linke Kante des gewählten Covers

+  Theme.Song.CoverX: Y Pos Obere Kante des gewählten Covers

+  Theme.Song.CoverH: Höhe der Cover

+

+  (CatSongs.VisibleIndex(B) - SongCurrent)/VS = Abstand zum MIttleren Cover in %

+  }

+

+  //Change Pos of all Buttons

+  for B := low(Button) to high(Button) do

+  begin

+    Button[B].Visible := CatSongs.Song[B].Visible; //Adjust Visibility

+    if Button[B].Visible then //Only Change Pos for Visible Buttons

+    begin

+      Pos := (CatSongs.VisibleIndex(B) - SongCurrent);

+      if (Pos < -VS/2) then

+        Pos := Pos + VS

+      else if (Pos > VS/2) then

+        Pos := Pos - VS;

+

+      if (Abs(Pos) < 2.5) then {fixed Positions}

+      begin

+      Angle := Pi * (Pos / 5);

+//      Button[B].Visible := False;

+

+      Button[B].H := Abs(Theme.Song.Cover.H * cos(Angle*0.8));//Power(Z2, 3);

+

+//      Button[B].Reflectionspacing := 15 * Button[B].H/Theme.Song.Cover.H;

+      Button[B].DeSelectReflectionspacing := 15 * Button[B].H/Theme.Song.Cover.H;

+

+      Button[B].Z := 0.95 - Abs(Pos) * 0.01;

+

+      Button[B].Y := (Theme.Song.Cover.Y  + (Theme.Song.Cover.H - Abs(Theme.Song.Cover.H * cos(Angle))) * 0.5);

+

+      Button[B].W := Button[B].H;

+

+      Diff := (Button[B].H - Theme.Song.Cover.H)/2;

+

+

+      X := Sin(Angle*1.3)*0.9;

+

+      Button[B].X := Theme.Song.Cover.X + Theme.Song.Cover.W * X - Diff;

+

+      end

+      else

+      begin {Behind the Front Covers}

+

+        // limit-bg-covers hack

+        if (abs(abs(Pos)-VS/2)>10) then Button[B].Visible:=False;

+        // end of limit-bg-covers hack

+

+        if Pos < 0 then

+          Pos := (Pos - VS/2)/VS

+        else

+          Pos := (Pos + VS/2)/VS;

+

+        Angle := pi * Pos*2;

+        if VS > 24 then

+        begin

+          if Angle < 0 then helper:=-1 else helper:=1;

+          Angle:=2*pi-abs(Angle);

+          Angle:=Angle*(VS/24);

+          Angle:=(2*pi-Angle)*helper;

+        end;

+

+        Button[B].Z := (0.4 - Abs(Pos/4)) -0.00001; //z < 0.49999 is behind the cover 1 is in front of the covers

+

+        Button[B].H :=0.6*(Theme.Song.Cover.H-Abs(Theme.Song.Cover.H * cos(Angle/2)*0.8));//Power(Z2, 3);

+

+        Button[B].W := Button[B].H;

+

+        Button[B].Y := Theme.Song.Cover.Y  - (Button[B].H - Theme.Song.Cover.H)*0.75;

+

+//        Button[B].Reflectionspacing := 15 * Button[B].H/Theme.Song.Cover.H;

+        Button[B].DeSelectReflectionspacing := 15 * Button[B].H/Theme.Song.Cover.H;

+

+        Diff := (Button[B].H - Theme.Song.Cover.H)/2;

+

+        Button[B].X :=  Theme.Song.Cover.X+Theme.Song.Cover.H/2-Button[b].H/2+Theme.Song.Cover.W/320*((Theme.Song.Cover.H)*sin(Angle/2)*1.52);

+

+      end;

+

+      //Button[B].Y := (Theme.Song.Cover.Y  + (Theme.Song.Cover.H - Button[B].H)/1.5); //Cover at down border of the change field

+//      Button[B].Y := (Theme.Song.Cover.Y  + (Theme.Song.Cover.H - Button[B].H) * 0.7);

+

+    end;

+  end;

+end;

+

+procedure TScreenSong.SetScroll6; // rotate (slotmachine style)

+var

+  B:      integer;

+  Angle:    real;

+  Pos:    Real;

+  VS:     integer;

+  diff:     real;

+  X:        Real;

+  Wsp:    real;

+  Z, Z2:      real;

+begin

+  VS := CatSongs.VisibleSongs; // cache Visible Songs

+  if VS <=5 then begin

+    // kolowe

+    for B := 0 to High(Button) do

+    begin

+      Button[B].Visible := CatSongs.Song[B].Visible; // nowe

+      if Button[B].Visible then begin // 0.5.0 optimization for 1000 songs - updates only visible songs, hiding in tabs becomes useful for maintaing good speed

+

+      Wsp := 2 * pi * (CatSongs.VisibleIndex(B) - SongCurrent) /  VS {CatSongs.VisibleSongs};// 0.5.0 (II): takes another 16ms

+

+      Z := (1 + cos(Wsp)) / 2;

+      Z2 := (1 + 2*Z) / 3;

+

+

+      Button[B].Y := Theme.Song.Cover.Y + (0.185 * Theme.Song.Cover.H * VS * sin(Wsp)) * Z2 - ((Button[B].H - Theme.Song.Cover.H)/2); // 0.5.0 (I): 2 times faster by not calling CatSongs.VisibleSongs

+      Button[B].Z := Z / 2 + 0.3;

+

+      Button[B].W := Theme.Song.Cover.H * Z2;

+

+//      Button[B].Y := {50 +} 140 + 50 - 50 * Z2;

+      Button[B].X := Theme.Song.Cover.X  + (Theme.Song.Cover.H - Abs(Button[B].H)) * 0.7 ;

+      Button[B].H := Button[B].W;

+      end;

+    end;

+  end

+  else begin

+

+    //Change Pos of all Buttons

+    for B := low(Button) to high(Button) do

+      begin

+          Button[B].Visible := CatSongs.Song[B].Visible; //Adjust Visibility

+      if Button[B].Visible then //Only Change Pos for Visible Buttons

+        begin

+        Pos := (CatSongs.VisibleIndex(B) - SongCurrent);

+        if (Pos < -VS/2) then

+          Pos := Pos + VS

+        else if (Pos > VS/2) then

+          Pos := Pos - VS;

+

+        if (Abs(Pos) < 2.5) then {fixed Positions}

+        begin

+          Angle := Pi * (Pos / 5);

+//          Button[B].Visible := False;

+

+          Button[B].H := Abs(Theme.Song.Cover.H * cos(Angle*0.8));//Power(Z2, 3);

+

+          Button[B].DeSelectReflectionspacing := 15 * Button[B].H/Theme.Song.Cover.H;

+

+          Button[B].Z := 0.95 - Abs(Pos) * 0.01;

+

+          Button[B].X := (Theme.Song.Cover.X  + (Theme.Song.Cover.H - Abs(Theme.Song.Cover.H * cos(Angle))) * 0.5);

+

+          Button[B].W := Button[B].H;

+

+          Diff := (Button[B].H - Theme.Song.Cover.H)/2;

+

+

+          X := Sin(Angle*1.3)*0.9;

+

+          Button[B].Y := Theme.Song.Cover.Y + Theme.Song.Cover.W * X - Diff;

+        end

+        else

+        begin {Behind the Front Covers}

+

+          // limit-bg-covers hack

+          if (abs(VS/2-abs(Pos))>10) then Button[B].Visible:=False;

+          if VS > 25 then VS:=25;

+          // end of limit-bg-covers hack

+

+          if Pos < 0 then

+            Pos := (Pos - VS/2)/VS

+          else

+            Pos := (Pos + VS/2)/VS;

+

+          Angle := pi * Pos*2;

+

+          Button[B].Z := (0.4 - Abs(Pos/4)) -0.00001; //z < 0.49999 is behind the cover 1 is in front of the covers

+

+          Button[B].H :=0.6*(Theme.Song.Cover.H-Abs(Theme.Song.Cover.H * cos(Angle/2)*0.8));//Power(Z2, 3);

+

+          Button[B].W := Button[B].H;

+

+          Button[B].X := Theme.Song.Cover.X  - (Button[B].H - Theme.Song.Cover.H)*0.5;

+

+

+          Button[B].DeSelectReflectionspacing := 15 * Button[B].H/Theme.Song.Cover.H;

+

+          Button[B].Y := Theme.Song.Cover.Y+Theme.Song.Cover.H/2-Button[b].H/2+Theme.Song.Cover.W/320*(Theme.Song.Cover.H*sin(Angle/2)*1.52);

+        end;

+      end;

+    end;

+  end;

+end;

+

+

+procedure TScreenSong.onShow;

+begin

+  Music.Stop;

+

+  if Ini.Players <= 3 then PlayersPlay := Ini.Players + 1;

+  if Ini.Players = 4 then PlayersPlay := 6;

+

+  //Cat Mod etc

+    if (Ini.Tabs_at_startup = 1) AND (CatSongs.CatNumShow = -1) then

+    begin

+      CatSongs.ShowCategoryList;

+      FixSelected;

+      //Show Cat in Top Left Mod

+      HideCatTL;

+    end;

+

+

+  if Length(CatSongs.Song) > 0 then begin

+    //Load Music only when Song Preview is activated

+    if (Ini.PreviewVolume <> 0) then

+    begin

+      Music.SetLoop(false);

+      Music.Open(CatSongs.Song[Interaction].Path + CatSongs.Song[Interaction].Mp3);

+      Music.MoveTo(Music.Length / 4);

+      Music.Play;

+

+      //Set Preview Volume

+      Music.SetMusicVolume (Ini.PreviewVolume * 10);

+      {//if Music Fade is activated, Set Volume to 0 %

+      if (Ini.PreviewFading <> 0) then

+        Music.SetMusicVolume(0);}

+    end;

+

+    SetScroll;

+    UpdateLCD;

+  end;

+

+  //Playlist Mode

+  if (Mode = 0) then

+  begin

+    //If Playlist Shown -> Select Next automatically

+    if (CatSongs.CatNumShow = -3) then

+    begin

+      SelectNext;

+      ChangeMusic;

+    end;

+  end

+  //Party Mode

+  else if (Mode = 1) then

+  begin

+

+    SelectRandomSong;

+    //Show Menu directly in PartyMode

+    //But only if selected in Options

+    if (Ini.PartyPopup = 1) then

+    begin

+      ScreenSongMenu.MenuShow(SM_Party_Main);

+    end;

+

+

+  end;

+

+  SetJoker;

+  SetStatics;

+end;

+

+procedure TScreenSong.onHide;

+begin

+  //When Music Fading is activated, Turn Music to 100 %

+  If (Ini.PreviewVolume <> 100) or (Ini.PreviewFading <> 0) then

+    Music.SetMusicVolume(100);

+

+  //If Preview is deactivated: Load MUsicfile now

+  If (Ini.PreviewVolume = 0) then

+    Music.Open(CatSongs.Song[Interaction].Path + CatSongs.Song[Interaction].Mp3);

+

+  //When hide then Stop Music (For Party Mode Popup on Exit)

+  if (Display.NextScreen <> @ScreenSing) and (Display.NextScreen <> @ScreenSingModi) and (Music <> nil) then

+    Music.Stop;

+end;

+

+procedure TScreenSong.DrawExtensions;

+begin

+  //Draw Song Menu

+  if (ScreenSongMenu.Visible) then

+  begin

+    ScreenSongMenu.Draw;

+  end

+  else if (ScreenSongJumpto.Visible) then

+  begin

+    ScreenSongJumpto.Draw;

+  end

+end;

+

+function TScreenSong.Draw: boolean;

+var

+  dx:   real;

+  dt:   real;

+  I:    Integer;

+begin

+  dx := SongTarget-SongCurrent;

+  dt := TimeSkip*7;

+  if dt > 1 then dt := 1;

+  SongCurrent := SongCurrent + dx*dt;

+

+{  if SongCurrent > Catsongs.VisibleSongs then begin

+    SongCurrent := SongCurrent - Catsongs.VisibleSongs;

+    SongTarget := SongTarget - Catsongs.VisibleSongs;

+  end;}

+

+//  Log.BenchmarkStart(5);

+  SetScroll;

+//  Log.BenchmarkEnd(5);

+//  Log.LogBenchmark('SetScroll4', 5);

+

+  //Fading Functions, Only if Covertime is under 5 Seconds

+  If (CoverTime < 5) then

+  begin

+    // 0.5.0: cover fade

+    if (CoverTime < 1) and (CoverTime + TimeSkip >= 1) then begin

+      // load new texture

+      Texture.GetTexture(Button[Interaction].Texture.Name, 'Plain', false);

+      Button[Interaction].Texture.Alpha := 1;

+      Button[Interaction].Texture2 := Texture.GetTexture(Button[Interaction].Texture.Name, 'Plain', false);

+      Button[Interaction].Texture2.Alpha := 1;

+    end;

+

+    //Song Fade

+    if (CatSongs.VisibleSongs > 0) AND (Ini.PreviewVolume <> 0) AND (Not CatSongs.Song[Interaction].Main) AND (Ini.PreviewFading <> 0) then

+    begin

+      //Start Song Fade after a little Time, to prevent Song to be Played on Scrolling

+      if (CoverTime < 0.2) and (CoverTime + TimeSkip >= 0.2) then

+        Music.Play;

+

+      //Update Song Volume

+      if (CoverTime < Ini.PreviewFading) then

+        Music.SetMusicVolume(Round (CoverTime * Ini.PreviewVolume / Ini.PreviewFading * 10))

+      else

+        Music.SetMusicVolume(Ini.PreviewVolume * 10);

+

+    end;

+

+

+    //Update Fading Time

+    CoverTime := CoverTime + TimeSkip;

+

+    //Update Fading Texture

+    Button[Interaction].Texture2.Alpha := (CoverTime - 1) * 1.5;

+    if Button[Interaction].Texture2.Alpha > 1 then Button[Interaction].Texture2.Alpha := 1;

+

+  end;

+

+  //inherited Draw;

+  //heres a little Hack, that causes the Statics

+  //are Drawn after the Buttons because of some Blending Problems.

+  //This should cause no Problems because all Buttons on this screen

+  //Has Z Position.

+  //Draw BG

+  DrawBG;

+

+  //Instead of Draw FG Procedure:

+  //We draw Buttons for our own

+  for I := 0 to Length(Button) - 1 do

+    Button[I].Draw;

+

+  // Statics

+  for I := 0 to Length(Static) - 1 do

+    Static[I].Draw;

+

+  // and texts

+  for I := 0 to Length(Text) - 1 do

+    Text[I].Draw;

+

+

+  //Draw Equalizer

+  if Theme.Song.Equalizer.Visible then

+    DrawEqualizer;

+

+  DrawExtensions;

+

+end;

+

+procedure TScreenSong.SelectNext;

+var

+  Skip:   integer;

+  I:      integer;

+  VS:     Integer;

+begin

+  VS := CatSongs.VisibleSongs;

+

+  if VS > 0 then

+  begin

+    UnLoadDetailedCover;

+

+    Skip := 1;

+

+    // this 1 could be changed by CatSongs.FindNextVisible

+    while (not CatSongs.Song[(Interaction + Skip) mod Length(Interactions)].Visible) do Inc(Skip);

+

+    SongTarget := SongTarget + 1;//Skip;

+

+    Interaction := (Interaction + Skip) mod Length(Interactions);

+

+    // try to keep all at the beginning

+    if SongTarget > VS-1 then begin

+      SongTarget := SongTarget - VS;

+      SongCurrent := SongCurrent - VS;

+    end;

+

+  end;

+      // Interaction -> Button, ktorego okladke przeczytamy

+      //  Button[Interaction].Texture := Texture.GetTexture(Button[Interaction].Texture.Name, 'Plain', false); // 0.5.0: show uncached texture

+end;

+

+procedure TScreenSong.SelectPrev;

+var

+  Skip:   integer;

+  I:      integer;

+  VS:     Integer;

+begin

+  VS := CatSongs.VisibleSongs;

+

+  if VS > 0 then

+  begin

+    UnLoadDetailedCover;

+

+    Skip := 1;

+

+    while (not CatSongs.Song[(Interaction - Skip + Length(Interactions)) mod Length(Interactions)].Visible) do Inc(Skip);

+    SongTarget := SongTarget - 1;//Skip;

+

+    Interaction := (Interaction - Skip + Length(Interactions)) mod Length(Interactions);

+

+    // try to keep all at the beginning

+    if SongTarget < 0 then begin

+      SongTarget := SongTarget + CatSongs.VisibleSongs;

+      SongCurrent := SongCurrent + CatSongs.VisibleSongs;

+    end;

+

+  //  Button[Interaction].Texture := Texture.GetTexture(Button[Interaction].Texture.Name, 'Plain', false); // 0.5.0: show uncached texture

+  end;

+end;

+

+procedure TScreenSong.UpdateLCD;

+begin

+  LCD.HideCursor;

+  LCD.Clear;

+  LCD.WriteText(1, Text[TextArtist].Text);

+  LCD.WriteText(2, Text[TextTitle].Text);

+end;

+

+//Procedure Change current played Preview

+procedure TScreenSong.ChangeMusic;

+begin

+  //When Music Preview is avtivated -> then Change Music

+  if (Ini.PreviewVolume <> 0) then

+    begin

+    if (NOT CatSongs.Song[Interaction].Main) AND(CatSongs.VisibleSongs > 0) then

+    begin

+      Music.Close;

+      if Music.Open(CatSongs.Song[Interaction].Path + CatSongs.Song[Interaction].Mp3) then begin

+        Music.MoveTo(Music.Length / 4);

+        //If Song Fading is activated then don't Play directly, and Set Volume to Null, else Play normal

+        if (Ini.PreviewFading = 0) then

+          Music.Play

+        else

+          Music.SetMusicVolume(0);

+      end;

+    end

+    else

+      Music.Stop;

+  end;

+end;

+

+procedure TScreenSong.SkipTo(Target: Cardinal); // 0.5.0

+var

+  Skip:   integer;

+  I:      integer;

+begin

+  UnLoadDetailedCover;

+

+  Interaction := High(CatSongs.Song);

+  SongTarget := 0;

+

+  for I := 1 to Target+1 do

+    SelectNext;

+

+  FixSelected2;

+end;

+

+procedure TScreenSong.DrawEqualizer;

+var

+  Data: TFFTData; //Audio Data

+  I, J: Integer;

+  Res: byte;

+  A, B: Integer;

+  PosX, PosY: Integer;

+  Pos: Real;

+begin

+if (not Music.Finished) AND (Theme.Song.Equalizer.Length > 0) then

+begin

+

+

+  A := GetTickCount div 44;

+

+  if (A <> EqualizerTime) then

+  begin

+    EqualizerTime := A;

+    Data := Music.GetFFTData;

+

+    B:=0;

+    Pos := 0;

+    Res := ceil(92/Theme.Song.Equalizer.Bands);//How much channels are used for one Band

+

+    //Change Lengths

+    for I := 0 to (Res * Theme.Song.Equalizer.Bands - 1) do

+    begin

+      A := floor(I/Res);

+

+      if (A<>B) then //Band changed

+      begin

+        if (Pos <= Theme.Song.Equalizer.Length) then

+        begin

+          if ((Pos < EqualizerBands[B]) AND (EqualizerBands[B]>1)) then

+            EqualizerBands[B] := EqualizerBands[B] - 1

+          else

+            EqualizerBands[B] := floor(Pos);

+        end

+        else

+          EqualizerBands[B] := 1;

+

+        B := A;

+        Pos := 0;

+      end;

+

+      if I > 35 then

+        Data[i] := Data[i] * 8

+      else if I > 11 then

+        Data[i] := Data[i] * 4.5

+      else

+        Data[i] := Data[i] * 1.1;

+

+      if (Data[i] >= 1) then

+        Data[i] := 0.9999999999999;

+

+      if Data[i]*Theme.Song.Equalizer.Length > Pos then

+        Pos := Data[i]*Theme.Song.Equalizer.Length;

+    end;

+

+    //Change Last Band

+    if (EqualizerBands[B] <= Theme.Song.Equalizer.Length) then

+    begin

+      if ((Pos < EqualizerBands[B]) AND (EqualizerBands[B]>1)) then

+        EqualizerBands[B] := EqualizerBands[B] - 1

+      else

+        EqualizerBands[B] := floor(Pos)

+    end

+    else

+      EqualizerBands[B] := 1;

+  end;

+

+  //Draw every Channel

+  glColor4f(Theme.Song.Equalizer.ColR, Theme.Song.Equalizer.ColG, Theme.Song.Equalizer.ColB, Theme.Song.Equalizer.Alpha); //Set Color

+  glDisable(GL_TEXTURE_2D);

+  glEnable(GL_BLEND);

+

+  PosY := Theme.Song.Equalizer.Y;

+  PosX := Theme.Song.Equalizer.X;

+

+  For I := 0 to Theme.Song.Equalizer.Bands-1 do

+  begin

+    if Theme.Song.Equalizer.Direction then

+      PosY := Theme.Song.Equalizer.Y //+ (Theme.Song.Equalizer.H + Theme.Song.Equalizer.Space) * Theme.Song.Equalizer.Length

+    else

+      PosX := Theme.Song.Equalizer.X;

+    //Draw for every visible quad

+    for J := 1 to EqualizerBands[I] do

+    begin

+      glBegin(GL_QUADS);

+        glVertex3f(PosX, PosY, Theme.Song.Equalizer.Z);

+        glVertex3f(PosX, PosY+Theme.Song.Equalizer.H, Theme.Song.Equalizer.Z);

+        glVertex3f(PosX+Theme.Song.Equalizer.W, PosY+Theme.Song.Equalizer.H, Theme.Song.Equalizer.Z);

+        glVertex3f(PosX+Theme.Song.Equalizer.W, PosY, Theme.Song.Equalizer.Z);

+      glEnd;

+

+      if Theme.Song.Equalizer.Direction then //Vertically

+        PosY := PosY - Theme.Song.Equalizer.H - Theme.Song.Equalizer.Space

+      else //Horizontally

+        PosX := PosX + Theme.Song.Equalizer.W + Theme.Song.Equalizer.Space;

+    end;

+    if Theme.Song.Equalizer.Direction then //Horizontally

+      PosX := PosX + Theme.Song.Equalizer.W + Theme.Song.Equalizer.Space

+    else //Vertically

+      PosY := PosY + Theme.Song.Equalizer.H + Theme.Song.Equalizer.Space;

+  end;

+end;

+end;

+

+Procedure TScreenSong.SelectRandomSong;

+var

+  I, I2: Integer;

+begin

+  Case PlaylistMan.Mode of

+      0:  //All Songs Just Select Random Song

+        begin

+          //When Tabs are activated then use Tab Method

+          if (Ini.Tabs_at_startup = 1) then

+          begin

+            repeat

+              I2 := Random(high(CatSongs.Song)+1) - low(CatSongs.Song)+1;

+            until CatSongs.Song[I2].Main = false;

+

+            //Search Cat

+            for I := I2 downto low(CatSongs.Song) do

+            begin

+              if CatSongs.Song[I].Main then

+                break;

+            end;

+            //In I ist jetzt die Kategorie in I2 der Song

+            //I is the CatNum, I2 is the No of the Song within this Cat

+

+            //Choose Cat

+            CatSongs.ShowCategoryList;

+

+            //Show Cat in Top Left Mod

+            ShowCatTL (I);

+

+            CatSongs.ClickCategoryButton(I);

+            SelectNext;

+

+            //Choose Song

+            SkipTo(I2-I);

+          end

+          //When Tabs are deactivated use easy Method

+          else

+            SkipTo(Random(CatSongs.VisibleSongs));

+        end;

+      1:  //One Category Select Category and Select Random Song

+        begin

+          CatSongs.ShowCategoryList;

+          CatSongs.ClickCategoryButton(PlaylistMan.CurPlayList);

+          ShowCatTL(PlaylistMan.CurPlayList);

+

+          SelectNext;

+          FixSelected2;

+

+          SkipTo(Random(CatSongs.VisibleSongs));

+        end;

+      2:  //Playlist: Select Playlist and Select Random Song

+        begin

+          PlaylistMan.SetPlayList(PlaylistMan.CurPlayList);

+

+          SkipTo(Random(CatSongs.VisibleSongs));

+          FixSelected2;

+        end;

+  end;

+

+  Music.PlayChange;

+  ChangeMusic;

+  SetScroll;

+  UpdateLCD;

+end;

+

+procedure TScreenSong.SetJoker;

+begin

+  //If Party Mode

+  if Mode = 1 then //Show Joker that are available

+  begin

+    if (PartySession.Teams.NumTeams >= 1) then

+    begin

+      Static[StaticTeam1Joker1].Visible := (PartySession.Teams.Teaminfo[0].Joker >= 1);

+      Static[StaticTeam1Joker2].Visible := (PartySession.Teams.Teaminfo[0].Joker >= 2);

+      Static[StaticTeam1Joker3].Visible := (PartySession.Teams.Teaminfo[0].Joker >= 3);

+      Static[StaticTeam1Joker4].Visible := (PartySession.Teams.Teaminfo[0].Joker >= 4);

+      Static[StaticTeam1Joker5].Visible := (PartySession.Teams.Teaminfo[0].Joker >= 5);

+    end

+    else

+    begin

+      Static[StaticTeam1Joker1].Visible := False;

+      Static[StaticTeam1Joker2].Visible := False;

+      Static[StaticTeam1Joker3].Visible := False;

+      Static[StaticTeam1Joker4].Visible := False;

+      Static[StaticTeam1Joker5].Visible := False;

+    end;

+

+    if (PartySession.Teams.NumTeams >= 2) then

+    begin

+      Static[StaticTeam2Joker1].Visible := (PartySession.Teams.Teaminfo[1].Joker >= 1);

+      Static[StaticTeam2Joker2].Visible := (PartySession.Teams.Teaminfo[1].Joker >= 2);

+      Static[StaticTeam2Joker3].Visible := (PartySession.Teams.Teaminfo[1].Joker >= 3);

+      Static[StaticTeam2Joker4].Visible := (PartySession.Teams.Teaminfo[1].Joker >= 4);

+      Static[StaticTeam2Joker5].Visible := (PartySession.Teams.Teaminfo[1].Joker >= 5);

+    end

+    else

+    begin

+      Static[StaticTeam2Joker1].Visible := False;

+      Static[StaticTeam2Joker2].Visible := False;

+      Static[StaticTeam2Joker3].Visible := False;

+      Static[StaticTeam2Joker4].Visible := False;

+      Static[StaticTeam2Joker5].Visible := False;

+    end;

+

+    if (PartySession.Teams.NumTeams >= 3) then

+    begin

+      Static[StaticTeam3Joker1].Visible := (PartySession.Teams.Teaminfo[2].Joker >= 1);

+      Static[StaticTeam3Joker2].Visible := (PartySession.Teams.Teaminfo[2].Joker >= 2);

+      Static[StaticTeam3Joker3].Visible := (PartySession.Teams.Teaminfo[2].Joker >= 3);

+      Static[StaticTeam3Joker4].Visible := (PartySession.Teams.Teaminfo[2].Joker >= 4);

+      Static[StaticTeam3Joker5].Visible := (PartySession.Teams.Teaminfo[2].Joker >= 5);

+    end

+    else

+    begin

+      Static[StaticTeam3Joker1].Visible := False;

+      Static[StaticTeam3Joker2].Visible := False;

+      Static[StaticTeam3Joker3].Visible := False;

+      Static[StaticTeam3Joker4].Visible := False;

+      Static[StaticTeam3Joker5].Visible := False;

+    end;

+  end

+  else

+  begin //Hide all

+    Static[StaticTeam1Joker1].Visible := False;

+    Static[StaticTeam1Joker2].Visible := False;

+    Static[StaticTeam1Joker3].Visible := False;

+    Static[StaticTeam1Joker4].Visible := False;

+    Static[StaticTeam1Joker5].Visible := False;

+

+    Static[StaticTeam2Joker1].Visible := False;

+    Static[StaticTeam2Joker2].Visible := False;

+    Static[StaticTeam2Joker3].Visible := False;

+    Static[StaticTeam2Joker4].Visible := False;

+    Static[StaticTeam2Joker5].Visible := False;

+

+    Static[StaticTeam3Joker1].Visible := False;

+    Static[StaticTeam3Joker2].Visible := False;

+    Static[StaticTeam3Joker3].Visible := False;

+    Static[StaticTeam3Joker4].Visible := False;

+    Static[StaticTeam3Joker5].Visible := False;

+  end;

+end;

+

+procedure TScreenSong.SetStatics;

+var

+  I:       Integer;

+  Visible: Boolean;

+begin

+  //Set Visibility of Party Statics and Text

+  Visible := (Mode = 1);

+

+  For I := 0 to high(StaticParty) do

+    Static[StaticParty[I]].Visible := Visible;

+

+  For I := 0 to high(TextParty) do

+    Text[TextParty[I]].Visible := Visible;

+

+  //Set Visibility of Non Party Statics and Text

+  Visible := not Visible;

+

+  For I := 0 to high(StaticNonParty) do

+    Static[StaticNonParty[I]].Visible := Visible;

+

+  For I := 0 to high(TextNonParty) do

+    Text[TextNonParty[I]].Visible := Visible;

+end;

+

+//Procedures for Menu

+

+procedure TScreenSong.StartSong;

+begin

+  CatSongs.Selected := Interaction;

+  Music.Stop;

+  //Party Mode

+  if (Mode = 1) then

+  begin

+    FadeTo(@ScreenSingModi);

+  end

+  else

+  begin

+    FadeTo(@ScreenSing);

+  end;

+end;

+

+procedure TScreenSong.SelectPlayers;

+begin

+  CatSongs.Selected := Interaction;

+  Music.Stop;

+

+  ScreenName.Goto_SingScreen := True;

+  FadeTo(@ScreenName);

+end;

+

+procedure TScreenSong.OpenEditor;

+begin

+  if (Length(Songs.Song) > 0) and (not CatSongs.Song[Interaction].Main) AND (Mode = 0) then begin

+    Music.Stop;

+    Music.PlayStart;

+    ScreenEditSub.Path := CatSongs.Song[Interaction].Path;

+    ScreenEditSub.FileName := CatSongs.Song[Interaction].FileName;

+    FadeTo(@ScreenEditSub);

+  end;

+end;

+

+//Team No of Team (0-5)

+procedure TScreenSong.DoJoker (Team: Byte);

+begin

+  if (Mode = 1) AND (PartySession.Teams.NumTeams >= Team + 1) AND (PartySession.Teams.Teaminfo[Team].Joker > 0) then

+  begin

+    //Joker spielen

+    Dec(PartySession.Teams.Teaminfo[Team].Joker);

+    SelectRandomSong;

+    SetJoker;

+  end;

+end;

+

+//Detailed Cover Unloading. Unloads the Detailed, uncached Cover of the cur. Song

+procedure TScreenSong.UnLoadDetailedCover;

+begin

+  CoverTime := 0;

+  

+  Button[Interaction].Texture := Texture.GetTexture(Button[Interaction].Texture.Name, 'Plain', true); // 0.5.0: show cached texture

+  Button[Interaction].Texture2.Alpha := 0;

+

+  if Button[Interaction].Texture.Name <> Skin.GetTextureFileName('SongCover') then

+    Texture.UnloadTexture(Button[Interaction].Texture.Name, false);

+end;

+

+procedure TScreenSong.Refresh;

+begin {

+CatSongs.Refresh;

+CatSongs.ShowCategoryList;

+Interaction := 0;

+SelectNext;

+FixSelected; }

+

+end;

+

+end.