fixed assembla #92: all song covers look like selected ones

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

1 files changed, 7 insertions, 3 deletions

diff --git a/src/screens/UScreenSong.pas b/src/screens/UScreenSong.pas
index a9c47401..7cfb0b0a 100644
--- a/src/screens/UScreenSong.pas
+++ b/src/screens/UScreenSong.pas
@@ -908,9 +908,6 @@ begin
   Equalizer := Tms_Equalizer.Create(AudioPlayback, Theme.Song.Equalizer);
 
   PreviewOpened := -1;
-
-  if (Length(CatSongs.Song) > 0) then
-    Interaction := 0;
 end;
 
 procedure TScreenSong.GenerateThumbnails();
@@ -973,10 +970,17 @@ begin
       CoverTexture := Cover.GetPreviewTexture();
       Texture.AddTexture(CoverTexture, TEXTURE_TYPE_PLAIN, true);
       CoverButton.Texture := CoverTexture;
+
+      // set selected to false -> the right texture will be displayed
+      CoverButton.Selected := False;
     end;
 
     Cover.Free;
   end;
+
+  // reset selection
+  if (Length(CatSongs.Song) > 0) then
+    Interaction := 0;
 end;
 
 procedure TScreenSong.SetScroll;