TMouseButton mbExtra1 - using 5 button mice in Linux - patch is sketchy lazarus / 1-Linux ---------------------------------------------------------------------- mai · 2015-10-27 11:15 unlike in Windows,  in Linux - Lazarus (even v. 1.4.4) the 4.th and fifth mousebutton mbExtra1 and mbExtra2 do not work, although the patch to get them working was worked out a while ago (Feb. of 2015)  by developer Mr. Drewski ! http://www.hu.freepascal.org/fpcircbot/cgipastebin?msgid=19209 http://www.hu.freepascal.org/fpcircbot/cgipastebin?msgid=19208 At the time I applied it to the then current Laz and it worked flawlessly, I saw it myself. But now I manally patched in the above into Laz 1.4.4, recompiled LCL and it didn't work... Does anyone have an idea ? I guarantee that the patch worked before ! attached the 3 modded files, patched already. ---------------------------------------------------------------------- mai · 2017-10-17 00:35 do all 5 buttons work in Laz 1.9 now ? can't test myself right now... ---------------------------------------------------------------------- mai · 2017-10-17 01:15 just as I predicted ! 5 button patch still not applied in version 1.9 what a disgrace. instead they fix all ORBA CORBA SOAP REST IJF RIHFIOR RINF FIRF EDE and what not. Code: Pascal  [Select][+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i unit Unit1; {$mode objfpc}{$H+} interface   uses Classes,   Forms, Controls ,   StdCtrls;type  { TForm1 }   TForm1 = class(TForm)    Button1: TButton;    procedure Button1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);  private         public  end;var   Form1: TForm1; implementation    {$R *.lfm}        { TForm1 }procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin  if Button=mbExtra1 then Form1.Text:='extra1';   // not working, of course !  if Button=mbExtra2 then Form1.Text:='extra2';  if Button=mbLeft   then Form1.Text:=' left button';end;end. ---------------------------------------------------------------------- Michl · 2017-10-17 06:07 I don't fully understand your last comment, but I just checked the bug tracker for a open entry of "mbExtra1". I don't get eny result. So this problem isn't known (at least not reported). Only known problems can be fixed. Please report such a problem to bug tracker described here: http://wiki.freepascal.org/How_do_I_create_a_bug_report If you have a solution or better a patch for current Lazarus trunk, please add it to the bug report. If you provide foreign code, make sure, you have the right to provide it. ---------------------------------------------------------------------- mai · 2017-10-17 06:42 Quote from: Michl on October 17, 2017, 08:07:08 amI just checked the bug tracker for a open entry of "mbExtra1". I don't get eny result. So this problem isn't known (at least not reported). bug report : https://bugs.freepascal.org/view.php?id=32562 what I meant to say was that 5-button-mice support is more important than various specialities, that have been worked on for 2 years, during which the patch existed. ---------------------------------------------------------------------- bytebites · 2017-10-17 20:22 Quote from: mai on October 17, 2017, 08:42:20 amQuote from: Michl on October 17, 2017, 08:07:08 amI just checked the bug tracker for a open entry of "mbExtra1". I don't get eny result. So this problem isn't known (at least not reported). bug report : https://bugs.freepascal.org/view.php?id=32562 what I meant to say was that 5-button-mice support is more important than various specialities, that have been worked on for 2 years, during which the patch existed. Nobody has missed it,, since it is RIHFIOR RINF FIRF EDE property. ---------------------------------------------------------------------- mai · 2017-10-18 06:42 "nobody" huh ? then why not remove it from the windows platform if nobody wants it ??? ---------------------------------------------------------------------- marcov · 2017-10-18 07:31 Quote from: mai on October 18, 2017, 08:42:42 am"nobody" huh ? then why not remove it from the windows platform if nobody wants it ??? WAAYP, We Are Anxiously Awaiting Your Patches. ---------------------------------------------------------------------- mai · 2017-10-18 09:52 stupid answers is all u get in here on valid questions ---------------------------------------------------------------------- JanRoza · 2017-10-18 10:29 No, those are not stupid questions, but suggestions. It's far worse to see someone on this forum who only knows how to complain and whine all the time without any positive remark or any contribution. That you do not seem/want to understand those remarks only shows you have no idea how opensource and online communities work. Like I mentioned before all you do is whining, so why not leave such a bad product as Lazarus alone and install the all ideal Delphi  in Linux and work with that (if it will work at all). I must say I have never seen such a negative and unfriendly person on these forums before, it's a wonder people still take the trouble of answering you. ---------------------------------------------------------------------- JuhaManninen · 2017-10-18 10:33 The issue  https://bugs.freepascal.org/view.php?id=32562 is resolved. User "accorp" provided a patch that fixed it. No whining, no ranting, he just debugged the code and fixed it. Maybe he could work as a role model for "mai" in the future. I also don't understand the complains about valid patches being ignored. The issue was reported just yesterday. There were 2 patches, one from Marco and one from accorp. They were both applied quickly. @mai, it is time to make a decision. Either show some respect for people who have brought this project so far and used countless hours for it, or move to a better project. Your current attitude is a dead-end. ---------------------------------------------------------------------- mai · 2017-10-28 10:24 works nicely on kubuntu (bit older). on netrunner-rolling (manjaro based) the extra-buttons work in conjunction with another button only. must be a fault in netrunner though. ---------------------------------------------------------------------- mai · 2017-10-29 09:44 remove package imwheel , relogin --> test under configure desktop that will fix the problem if the 2 extrabuttons arenot working . ---------------------------------------------------------------------- jsyemail · 2018-01-31 08:14 Hi All: i found this problem also happen on Windows version 1.8.0  (no problem on 1.6.x)  is there any instruction or step by step  to solve this issue?  Thanks. code to reproduce: procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); begin   //  TMouseButton = (mbLeft, mbRight, mbMiddle, mbExtra1, mbExtra2);   if button = mbLeft then memo1.Lines.Add('mbLeft release');   if button = mbRight then memo1.Lines.Add('mbRight release');   if button = mbMiddle then memo1.Lines.Add('mbMiddle release');   if button = mbExtra1 then memo1.Lines.Add('Extra1 release');   if button = mbExtra2 then memo1.Lines.Add('mbExtra2 release'); end; note that 3 main key has proper report except extra1 and extra2