From 7bde133acda967a85375216c36978ba072cc117a Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Tue, 2 Jun 2009 21:54:42 +0000
Subject: [PATCH] SynEdit: Added configuration for mouse behaviour / Fix Gutter
 ContextMenu

git-svn-id: trunk@20359 -
---
 components/synedit/syngutterbase.pp        | 2 ++
 components/synedit/synguttercodefolding.pp | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/components/synedit/syngutterbase.pp b/components/synedit/syngutterbase.pp
index 5c5ba99fef..29617ca822 100644
--- a/components/synedit/syngutterbase.pp
+++ b/components/synedit/syngutterbase.pp
@@ -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);
diff --git a/components/synedit/synguttercodefolding.pp b/components/synedit/synguttercodefolding.pp
index 8e6f5975f1..d031ccebec 100644
--- a/components/synedit/synguttercodefolding.pp
+++ b/components/synedit/synguttercodefolding.pp
@@ -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;