paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 08:29:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Added configuration for mouse behaviour / Fix Gutter ContextMenu

Browse Source 
git-svn-id: trunk@20359 -
This commit is contained in:
martin 2009-06-02 21:54:42 +00:00
parent 6e2bbfb0a1
commit 7bde133acd
2 changed files with 3 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,6 +307,8 @@ end;
procedure TSynGutterPartBase.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if TSynEdit(SynEdit).PopupMenu <> nil then
TSynEdit(SynEdit).PopupMenu.PopUp;
end;
procedure TSynGutterPartBase.DoOnGutterClick(X, Y : integer);

2
components/synedit/synguttercodefolding.pp
View File

@ -204,7 +204,7 @@ var
m: TMenuItem;
s, s2: String;
begin
inherited MouseUp(Button, Shift, X, Y);
// inherited MouseUp(Button, Shift, X, Y);
line := FClickLine;
if line > SynEdit.Lines.Count then exit;