From 9bbedc30d451861ccbd2348c00d7d8ae5a828c60 Mon Sep 17 00:00:00 2001
From: k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sun, 3 Jan 2016 22:49:06 +0000
Subject: end of first pass. many more smaller changes and preparations for
 later additions

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@3189 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/screens/UScreenSongJumpto.pas | 34 +++++++++++++++++++++++++++++++---
 1 file changed, 31 insertions(+), 3 deletions(-)

(limited to 'src/screens/UScreenSongJumpto.pas')

diff --git a/src/screens/UScreenSongJumpto.pas b/src/screens/UScreenSongJumpto.pas
index b3d48679..2efff347 100644
--- a/src/screens/UScreenSongJumpto.pas
+++ b/src/screens/UScreenSongJumpto.pas
@@ -91,6 +91,10 @@ begin
     begin
       if (Interaction = 0) then
       begin
+        Button[0].Text[0].ColR := Theme.SongJumpto.ButtonSearchText.ColR;
+        Button[0].Text[0].ColG := Theme.SongJumpto.ButtonSearchText.ColG;
+        Button[0].Text[0].ColB := Theme.SongJumpto.ButtonSearchText.ColB;
+
         Button[0].Text[0].Text := Button[0].Text[0].Text + UCS4ToUTF8String(CharCode);
         SetTextFound(CatSongs.SetFilter(Button[0].Text[0].Text, fSelectType));
       end;
@@ -114,7 +118,7 @@ begin
           AudioPlayback.PlaySound(SoundLib.Back);
           if (fVisSongs = 0) and (Length(Button[0].Text[0].Text) > 0) then
           begin
-            ScreenSong.UnLoadDetailedCover;
+            //ScreenSong.UnLoadDetailedCover;
             Button[0].Text[0].Text := '';
             CatSongs.SetFilter('', fltAll);
             SetTextFound(0);
@@ -154,6 +158,8 @@ begin
 end;
 
 constructor TScreenSongJumpto.Create;
+var
+  ButtonID: integer;
 begin
   inherited Create;
 
@@ -161,10 +167,13 @@ begin
 
   LoadFromTheme(Theme.SongJumpto);
 
-  AddButton(Theme.SongJumpto.ButtonSearchText);
+  ButtonID := AddButton(Theme.SongJumpto.ButtonSearchText);
+
   if (Length(Button[0].Text) = 0) then
     AddButtonText(14, 20, '');
 
+  Button[ButtonID].Text[0].Writable := true;
+
   fSelectType := fltAll;
   AddSelectSlide(Theme.SongJumpto.SelectSlideType, PInteger(@fSelectType)^, Theme.SongJumpto.IType);
 
@@ -228,10 +237,29 @@ begin
   fVisSongs := Count;
 
   //Fix SongSelection
-  ScreenSong.Interaction := high(CatSongs.Song);
+{ for later addition
+  if (TSongMenuMode(Ini.SongMenu) in [smRoulette, smCarousel, smSlide, smSlotMachine]) then
+  begin
+}
+    ScreenSong.Interaction := high(CatSongs.Song);
+{ for later addition
+  end;
+
+  if (TSongMenuMode(Ini.SongMenu) in [smChessboard, smList, smMosaic]) then
+  begin
+    ScreenSong.Interaction := 0;
+    ScreenSong.ChessboardMinLine := 0;
+    ScreenSong.ListMinLine := 0;
+  end;
+}
+
   ScreenSong.SelectNext;
   ScreenSong.FixSelected;
 
+{ for later addition
+  ScreenSong.SetScrollRefresh;
+}
+
   //Play Correct Music
   if (ScreenSong.Interaction <> fLastPlayed) or (CatSongs.VisibleSongs = 0) then
   begin
-- 
cgit v1.2.3