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

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;