paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-20 12:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

IdeDebugger: Breakpoint window, change setting node-height for group-headers. Maybe Issue #41083

Browse Source
This commit is contained in:
Martin 2024-08-15 18:52:34 +02:00
parent c924cafb5f
commit 0806d74565
2 changed files with 19 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/packages/idedebugger/breakpointgroupframe.lfm
View File

@ -5,9 +5,9 @@ object BreakpointGroupFrame: TBreakpointGroupFrame
Width = 602
ClientHeight = 76
ClientWidth = 602
TabOrder = 0
OnDragDrop = FrameDragDrop
OnDragOver = FrameDragOver
TabOrder = 0
DesignLeft = 200
DesignTop = 100
object ToolBar1: TToolBar
@ -25,6 +25,7 @@ object BreakpointGroupFrame: TBreakpointGroupFrame
ParentColor = False
ParentFont = False
TabOrder = 0
Wrapable = False
OnDragDrop = FrameDragDrop
OnDragOver = FrameDragOver
OnEndDrag = ToolBar1EndDrag
@ -49,7 +50,7 @@ object BreakpointGroupFrame: TBreakpointGroupFrame
Style = tbsDivider
end
object StaticText1: TStaticText
Left = 65
Left = 60
Height = 16
Top = 2
Width = 57
@ -57,13 +58,13 @@ object BreakpointGroupFrame: TBreakpointGroupFrame
BorderSpacing.Left = 5
BorderSpacing.Right = 5
Caption = 'StaticText1'
TabOrder = 0
OnDragDrop = FrameDragDrop
OnDragOver = FrameDragOver
OnMouseDown = StaticText1MouseDown
TabOrder = 0
end
object StaticText2: TStaticText
Left = 122
Left = 117
Height = 16
Top = 2
Width = 57
@ -71,10 +72,10 @@ object BreakpointGroupFrame: TBreakpointGroupFrame
BorderSpacing.Left = 5
BorderSpacing.Right = 5
Caption = 'StaticText2'
TabOrder = 1
OnDragDrop = FrameDragDrop
OnDragOver = FrameDragOver
OnMouseDown = StaticText1MouseDown
TabOrder = 1
end
end
object Panel1: TPanel

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

@ -59,6 +59,7 @@ type
protected
procedure SetVisible(Value: Boolean); reintroduce;
procedure VisibleChanged; override;
procedure BoundsChanged; override;
procedure CreateWnd; override;
public
constructor Create(TheOwner: TBreakPointsDlgBase; ATree: TDbgTreeView; ANode: PVirtualNode;
@ -276,21 +277,27 @@ end;
procedure TBreakpointGroupFrame.VisibleChanged;
begin
inherited VisibleChanged;
if IsVisible then
FTree.NodeHeight[FNode] := min(40, Max(15, ToolBar1.Height));
if HandleAllocated and IsVisible then
FTree.NodeHeight[FNode] := Max(15, ToolBar1.Height);
end;
procedure TBreakpointGroupFrame.BoundsChanged;
begin
inherited BoundsChanged;
if HandleAllocated and IsVisible then
FTree.NodeHeight[FNode] := Max(15, ToolBar1.Height);
end;
procedure TBreakpointGroupFrame.CreateWnd;
begin
inherited CreateWnd;
FTree.NodeHeight[FNode] := min(40, Max(15, ToolBar1.Height));
FTree.NodeHeight[FNode] := Max(15, ToolBar1.Height);
end;
constructor TBreakpointGroupFrame.Create(TheOwner: TBreakPointsDlgBase;
ATree: TDbgTreeView; ANode: PVirtualNode; ABrkGroup: TIDEBreakPointGroup;
AGroupKind: TBreakpointGroupFrameKind);
begin
inherited Create(nil);
FOwner := TheOwner;
FTree := ATree;
FNode := ANode;
@ -302,6 +309,8 @@ begin
if AGroupKind = bgfGroup then
FGroupKind := bgfUngrouped;
inherited Create(nil);
ToolBar1.Images := IDEImages.Images_16;
ToolButtonEnableAll.Caption := lisEnableAll;