paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 11:24:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

IdeDebugger: Breakpoint dialog, fix crash due to BreakGroup used as breakpoint.

Browse Source
This commit is contained in:
Martin 2023-07-25 13:34:42 +02:00
parent a2fa2d33cd
commit f01fd2064b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/packages/idedebugger/breakpointsdlg.pp
View File

@ -463,7 +463,7 @@ begin
if Result = nil then begin
tvBreakPoints.BeginUpdate;
try
Result := tvBreakPoints.AddChild(nil, ABrkGroup);
Result := tvBreakPoints.AddChild(nil, nil);
GrpHeader := TBreakpointGroupFrame.Create(Self, tvBreakPoints, Result, ABrkGroup);
GrpHeader.Visible := tbGroupByBrkGroup.Down;
GrpHeader.OnDeleteGroup := @DoGroupDeleteBtnClicked;