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

IdeDebugger: Breakpoint dialog, fixed showing plain (no tree) list

Browse Source
This commit is contained in:
Martin 2023-07-25 14:44:16 +02:00
parent 90c13af409
commit 8a75cf4755
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -362,6 +362,8 @@ begin
HasDisabled := HasDisabled or not b.Enabled;
end;
ToolButtonDivider1.Visible := GroupKind in [bgfUngrouped, bgfGroup];
ToolButtonEnableAll.Visible := GroupKind in [bgfUngrouped, bgfGroup];
ToolButtonEnableAll.Enabled := (Count > 0) and HasDisabled;

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

@ -1231,7 +1231,8 @@ end;
procedure TBreakPointsDlg.tvBreakPointsStartDrag(Sender: TObject;
var DragObject: TDragObject);
begin
FAddGroupedHeader.Visible := True;
if tbGroupByBrkGroup.Down then
FAddGroupedHeader.Visible := True;
FDraggingGroupHeader := False;
end;
@ -1536,7 +1537,7 @@ begin
tvBreakPoints.DeleteNode(LastAbandoned);
LastAbandoned := nil;
end;
if GrpHeader.GroupKind = bgfGroup then
if GrpHeader.GroupKind in [bgfGroup, bgfUngrouped] then
GrpHeader.Visible := tbGroupByBrkGroup.Down;
if GrpHeader.GroupKind = bgfAbandoned then
LastAbandoned := VNode;