paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 10:39:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: fix breakpoint items showing in the gutter menu

Browse Source 
git-svn-id: trunk@20852 -
This commit is contained in:
paul 2009-07-13 14:05:53 +00:00
parent 273bd55444
commit 67871b7f77
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ide/sourceeditor.pp
View File

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