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

IdeDebugger: fix crash in breakpoint-list-window (drag/drop between groups)

Browse Source
This commit is contained in:
Martin 2024-07-12 13:13:51 +02:00
parent 7cf389203d
commit c29c71d9bc
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/packages/idedebugger/breakpointgroupframe.pas
View File

@ -185,6 +185,7 @@ begin
if (Source = FTree) and (FTree.SelectedCount > 0) then begin if (Source = FTree) and (FTree.SelectedCount > 0) then begin
for VNode in FTree.SelectedNodes(True) do begin for VNode in FTree.SelectedNodes(True) do begin
if Brk = nil then Continue; // Header row selected
Brk := TIDEBreakPoint(FTree.NodeItem[VNode]); Brk := TIDEBreakPoint(FTree.NodeItem[VNode]);
Brk.Group := NewGroup; Brk.Group := NewGroup;
end; end;
@ -214,6 +215,7 @@ begin
if not Accept then begin if not Accept then begin
for VNode in FTree.SelectedNodes(True) do begin for VNode in FTree.SelectedNodes(True) do begin
Brk := TIDEBreakPoint(FTree.NodeItem[VNode]); Brk := TIDEBreakPoint(FTree.NodeItem[VNode]);
if Brk = nil then Continue; // Header row selected
if Brk.Group <> FBrkGroup then begin if Brk.Group <> FBrkGroup then begin
Accept := True; Accept := True;
Break; Break;