Forum > Linux
TMouseButton mbExtra1 - using 5 button mice in Linux - patch is sketchy
mai:
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:
do all 5 buttons work in Laz 1.9 now ? can't test myself right now...
mai:
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 [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---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:
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:
--- Quote from: Michl on October 17, 2017, 08:07:08 am ---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).
--- End quote ---
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.
Navigation
[0] Message Index
[#] Next page