* * *

Author Topic: TMouseButton mbExtra1 - using 5 button mice in Linux - patch is sketchy  (Read 3193 times)

mai

  • Full Member
  • ***
  • Posts: 133
  • truther
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.
« Last Edit: October 28, 2015, 07:09:57 am by mai »

mai

  • Full Member
  • ***
  • Posts: 133
  • truther
Re: TMouseButton mbExtra1 - using 5 button mice in Linux - patch is sketchy
« Reply #1 on: October 17, 2017, 02:35:02 am »
do all 5 buttons work in Laz 1.9 now ? can't test myself right now...

mai

  • Full Member
  • ***
  • Posts: 133
  • truther
Re: TMouseButton mbExtra1 - using 5 button mice in Linux - patch is sketchy
« Reply #2 on: October 17, 2017, 03:15:45 am »
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]
  1. unit Unit1; {$mode objfpc}{$H+}
  2.  
  3. interface   uses Classes,   Forms, Controls ,   StdCtrls;
  4. type  { TForm1 }   TForm1 = class(TForm)
  5.     Button1: TButton;
  6.     procedure Button1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  7.   private         public
  8.   end;
  9. var   Form1: TForm1;
  10.  
  11. implementation    {$R *.lfm}        { TForm1 }
  12. procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  13. begin
  14.   if Button=mbExtra1 then Form1.Text:='extra1';   // not working, of course !
  15.   if Button=mbExtra2 then Form1.Text:='extra2';
  16.   if Button=mbLeft   then Form1.Text:=' left button';
  17. end;
  18. end.

Michl

  • Full Member
  • ***
  • Posts: 189
Re: TMouseButton mbExtra1 - using 5 button mice in Linux - patch is sketchy
« Reply #3 on: October 17, 2017, 08:07:08 am »
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.
Code: [Select]
type
  TLiveSelection = (lsMoney, lsChilds, lsTime);
  TLive = Array[0..1] of TLiveSelection;

mai

  • Full Member
  • ***
  • Posts: 133
  • truther
Re: TMouseButton mbExtra1 - using 5 button mice in Linux - patch is sketchy
« Reply #4 on: October 17, 2017, 08:42:20 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).

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

  • Full Member
  • ***
  • Posts: 142
Re: TMouseButton mbExtra1 - using 5 button mice in Linux - patch is sketchy
« Reply #5 on: October 17, 2017, 10:22:10 pm »
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).

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

  • Full Member
  • ***
  • Posts: 133
  • truther
Re: TMouseButton mbExtra1 - using 5 button mice in Linux - patch is sketchy
« Reply #6 on: October 18, 2017, 08:42:42 am »
"nobody" huh ?

then why not remove it from the windows platform if nobody wants it ???

marcov

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 6158
Re: TMouseButton mbExtra1 - using 5 button mice in Linux - patch is sketchy
« Reply #7 on: October 18, 2017, 09:31:59 am »
"nobody" huh ?

then why not remove it from the windows platform if nobody wants it ???

WAAYP, We Are Anxiously Awaiting Your Patches.

mai

  • Full Member
  • ***
  • Posts: 133
  • truther
Re: TMouseButton mbExtra1 - using 5 button mice in Linux - patch is sketchy
« Reply #8 on: October 18, 2017, 11:52:01 am »
stupid answers is all u get in here on valid questions

JanRoza

  • Sr. Member
  • ****
  • Posts: 493
    • http://www.silentwings.nl
Re: TMouseButton mbExtra1 - using 5 button mice in Linux - patch is sketchy
« Reply #9 on: October 18, 2017, 12:29:19 pm »
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  :P 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.  >:( >:D
OS: Windows 10 (64 bit)
Laz: Lazarus 1.8.2 FPC 3.0.4 i386-win32-win32/win64

JuhaManninen

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 3363
  • I like bugs.
Re: TMouseButton mbExtra1 - using 5 button mice in Linux - patch is sketchy
« Reply #10 on: October 18, 2017, 12:33:16 pm »
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.
« Last Edit: October 18, 2017, 12:40:08 pm by JuhaManninen »

mai

  • Full Member
  • ***
  • Posts: 133
  • truther
Re: TMouseButton mbExtra1 - using 5 button mice in Linux - patch is sketchy
« Reply #11 on: October 28, 2017, 12:24:03 pm »
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

  • Full Member
  • ***
  • Posts: 133
  • truther
Re: TMouseButton mbExtra1 - using 5 button mice in Linux - patch is sketchy
« Reply #12 on: October 29, 2017, 10:44:37 am »
remove package imwheel , relogin --> test under configure desktop


that will fix the problem if the 2 extrabuttons arenot working .

jsyemail

  • Newbie
  • Posts: 1
Re: TMouseButton mbExtra1 - using 5 button mice in Linux - patch is sketchy
« Reply #13 on: January 31, 2018, 09:14:37 am »
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
« Last Edit: February 26, 2018, 03:55:33 am by jsyemail »

 

Recent

Get Lazarus at SourceForge.net. Fast, secure and Free Open Source software downloads Open Hub project report for Lazarus