From 6e0db81db7b80e805c116cc909a09400dbc030bf Mon Sep 17 00:00:00 2001
From: basisbit <basisbit@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Tue, 27 Oct 2015 01:23:15 +0000
Subject: * fix scrolling and clicking on songs by mouse in song-selection-view
 if there are more then 4 items in the list

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@3152 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/screens/UScreenSong.pas | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/screens/UScreenSong.pas b/src/screens/UScreenSong.pas
index 6872b77e..f67c46b0 100644
--- a/src/screens/UScreenSong.pas
+++ b/src/screens/UScreenSong.pas
@@ -813,6 +813,12 @@ begin
             if (CatSongs.Song[Btn].Visible) then
               Inc(I);
           end;
+		  
+		  // transfer mousecords to the 800x600 raster we use to draw
+          X := Round((X / (ScreenW / Screens)) * RenderW);
+          if (X > RenderW) then
+            X := X - RenderW;
+          Y := Round((Y / ScreenH) * RenderH
 
           // test the 5 front buttons for click
           for I := 0 to 4 do
-- 
cgit v1.2.3