diff options
| -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 |