5 button mice not supported in Linux - patch available
Original Reporter info from Mantis: firef
-
Reporter name:
Original Reporter info from Mantis: firef
- Reporter name:
Description:
extrabutton1 and 2 do not work in GNU/Linux.
a patch is availbale here : http://forum.lazarus.freepascal.org/index.php/topic,30178.msg262911/topicseen.html
Steps to reproduce:
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; // see also: http://forum.lazarus.freepascal.org/index.php/topic,30178.msg262911/topicseen.html#new
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.
Additional information:
http://forum.lazarus.freepascal.org/index.php/topic,30178.msg262911/topicseen.html
a very basic feature for Lazarus, very nice to have!