From 67871b7f77655f970ded2fba3f6db6228d3a415c Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Mon, 13 Jul 2009 14:05:53 +0000
Subject: [PATCH] ide: fix breakpoint items showing in the gutter menu

git-svn-id: trunk@20852 -
---
 ide/sourceeditor.pp | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/ide/sourceeditor.pp b/ide/sourceeditor.pp
index 7271a82174..8355641630 100644
--- a/ide/sourceeditor.pp
+++ b/ide/sourceeditor.pp
@@ -4368,7 +4368,7 @@ var
   MarkCount: integer;
   i: Integer;
   CurMark: TSourceMark;
-  EditorPopupPoint: TPoint;
+  EditorPopupPoint, EditorCaret: TPoint;
   SelAvail: Boolean;
   SelAvailAndWritable: Boolean;
   CurFilename: String;
@@ -4455,13 +4455,17 @@ begin
       SrcEditMenuShowAbstractMethods.Enabled:=not ASrcEdit.ReadOnly;
       SrcEditMenuShowEmptyMethods.Enabled:=not ASrcEdit.ReadOnly;
       SrcEditMenuFindOverloads.Enabled:=AtIdentifier;
-    end else begin
+    end else
+    begin
+      EditorCaret := EditorComp.PhysicalToLogicalPos(EditorComp.PixelsToRowColumn(EditorPopupPoint));
       // user clicked on gutter
-      SourceEditorMarks.GetMarksForLine(EditorComp,EditorComp.CaretY,
-                                        Marks,MarkCount);
-      if Marks<>nil then begin
-        for i:=0 to MarkCount-1 do begin
-          CurMark:=Marks[i];
+      SourceEditorMarks.GetMarksForLine(EditorComp, EditorCaret.y,
+                                        Marks, MarkCount);
+      if Marks <> nil then
+      begin
+        for i := 0 to MarkCount - 1 do
+        begin
+          CurMark := Marks[i];
           CurMark.CreatePopupMenuItems(@AddUserDefinedPopupMenuItem);
         end;
         FreeMem(Marks);