diff options
| author | basisbit <basisbit@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2015-10-27 01:23:15 +0000 |
|---|---|---|
| committer | basisbit <basisbit@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2015-10-27 01:23:15 +0000 |
| commit | 6e0db81db7b80e805c116cc909a09400dbc030bf (patch) | |
| tree | 023f2e3c86040a21aa97aa2fb26bb468875bfc88 | |
| parent | 80e444d928bb99af4befb08cdbd983f5b992411a (diff) | |
| download | usdx-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
| -rw-r--r-- | src/screens/UScreenSong.pas | 6 |
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 |