Skip to content
GitLab
    • GitLab: the DevOps platform
    • Explore GitLab
    • Install GitLab
    • How GitLab compares
    • Get started
    • GitLab docs
    • GitLab Learn
  • Pricing
  • Talk to an expert
  • /
  • Help
    • Help
    • Support
    • Community forum
    • Submit feedback
    • Contribute to GitLab
    • Switch to GitLab Next
    Projects Groups Topics Snippets
  • Register
  • Sign in
  • Lazarus Lazarus
  • Project information
    • Project information
    • Activity
    • Labels
    • Members
  • Repository
    • Repository
    • Files
    • Commits
    • Branches
    • Tags
    • Contributor statistics
    • Graph
    • Compare revisions
    • Locked files
  • Issues 2,099
    • Issues 2,099
    • List
    • Boards
    • Service Desk
    • Milestones
    • Iterations
  • Merge requests 14
    • Merge requests 14
  • CI/CD
    • CI/CD
    • Pipelines
    • Jobs
    • Schedules
    • Test cases
  • Deployments
    • Deployments
    • Releases
  • Packages and registries
    • Packages and registries
    • Container Registry
  • Analytics
    • Analytics
    • Value stream
    • CI/CD
    • Code review
    • Insights
    • Issue
    • Repository
  • External wiki
    • External wiki
  • Activity
  • Graph
  • Create a new issue
  • Jobs
  • Commits
  • Issue Boards
Collapse sidebar
  • FPC
  • LazarusLazarus
  • LazarusLazarus
  • Issues
  • #32562
Closed
Open
Issue created Oct 17, 2017 by FPC Admin account@fpc_adminOwner

5 button mice not supported in Linux - patch available

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!

Mantis conversion info:

  • Mantis ID: 32562
  • OS: GNU/Linux
  • OS Build: KDE neon nightly
  • Build: 1.9 latest
  • Platform: PC
  • Version: 1.8RC5
  • Fixed in revision: r56112 (#b51815cf), r56122 (#8b3759c8)
  • Monitored by: » firef (firef)
Assignee
Assign to
Time tracking