diff options
author | whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-05-31 14:10:42 +0000 |
---|---|---|
committer | whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-05-31 14:10:42 +0000 |
commit | 257854c587f0876a912cfbeb4fe0a30970d25a9b (patch) | |
tree | 43a87074b46eb6211e8c103510f9b2261fe2d08b /src/screens/UScreenSong.pas | |
parent | 1d3a28457fb5ff32d55435e31a5697fd383366d4 (diff) | |
download | usdx-257854c587f0876a912cfbeb4fe0a30970d25a9b.tar.gz usdx-257854c587f0876a912cfbeb4fe0a30970d25a9b.tar.xz usdx-257854c587f0876a912cfbeb4fe0a30970d25a9b.zip |
merged (experimental) mouse support patch by d0ccrazy
some changes to patch
- implemented software cursor (texturable)
- option to turn of mouse support or switch between hardware and software cursor
- hide software cursor if there is no mouse activity for 5 seconds
- soft fade in and out for software cursor
- some test cursor-textures for deluxe theme (mog pls change these horible looking images)
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1789 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r-- | src/screens/UScreenSong.pas | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/src/screens/UScreenSong.pas b/src/screens/UScreenSong.pas index f937b1dc..5e794891 100644 --- a/src/screens/UScreenSong.pas +++ b/src/screens/UScreenSong.pas @@ -119,6 +119,7 @@ type procedure SetScroll5; procedure SetScroll6; function ParseInput(PressedKey: cardinal; CharCode: WideChar; PressedDown: boolean): boolean; override; + function ParseMouse(MouseButton: Integer; BtnDown: Boolean; X, Y: integer): boolean; override; function Draw: boolean; override; procedure GenerateThumbnails(); procedure onShow; override; @@ -737,6 +738,28 @@ begin end; // if (PressedDown) end; +function TScreenSong.ParseMouse(MouseButton: Integer; BtnDown: Boolean; X, Y: integer): boolean; +begin + Result := True; + + if RightMbESC and (MouseButton = SDL_BUTTON_RIGHT) and BtnDown then begin + //if RightMbESC is set, send ESC keypress + Result:=ParseInput(SDLK_ESCAPE, #0, True); + end; + + //song scrolling with mousewheel + if (MouseButton = SDL_BUTTON_WHEELDOWN) and BtnDown then begin + ParseInput(SDLK_RIGHT, #0, true); + end; + if (MouseButton = SDL_BUTTON_WHEELUP) and BtnDown then begin + ParseInput(SDLK_LEFT, #0, true); + end; + //LMB anywhere starts + if (MouseButton = SDL_BUTTON_LEFT) and BtnDown then begin + ParseInput(SDLK_RETURN, #0, true); + end; +end; + constructor TScreenSong.Create; var i: integer; |