paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-02 05:39:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Added configuration for mouse behaviour / Fix Gutter ContextMenu on left button

Browse Source 
git-svn-id: trunk@20372 -
This commit is contained in:
martin 2009-06-03 13:49:40 +00:00
parent 40045494d3
commit a635ac62cf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/syngutterbase.pp
View File

@ -307,7 +307,7 @@ end;
procedure TSynGutterPartBase.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if TSynEdit(SynEdit).PopupMenu <> nil then
if (Button = mbRight) and (TSynEdit(SynEdit).PopupMenu <> nil) then
TSynEdit(SynEdit).PopupMenu.PopUp;
end;