aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorbasisbit <basisbit@b956fd51-792f-4845-bead-9b4dfca2ff2c>2015-10-27 01:23:15 +0000
committerbasisbit <basisbit@b956fd51-792f-4845-bead-9b4dfca2ff2c>2015-10-27 01:23:15 +0000
commit6e0db81db7b80e805c116cc909a09400dbc030bf (patch)
tree023f2e3c86040a21aa97aa2fb26bb468875bfc88 /src
parent80e444d928bb99af4befb08cdbd983f5b992411a (diff)
downloadusdx-6e0db81db7b80e805c116cc909a09400dbc030bf.tar.gz
usdx-6e0db81db7b80e805c116cc909a09400dbc030bf.tar.xz
usdx-6e0db81db7b80e805c116cc909a09400dbc030bf.zip
* 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
Diffstat (limited to 'src')
-rw-r--r--src/screens/UScreenSong.pas6
1 files changed, 6 insertions, 0 deletions
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