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

IdeDebugger: Breakpoint dialog, fix crash due to unexpected handle creation in VTV

Browse Source
This commit is contained in:
Martin 2023-07-26 11:58:09 +02:00
parent 110c35c9a3
commit a3f455d604
2 changed files with 7 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -59,6 +59,7 @@ type
protected
procedure SetVisible(Value: Boolean); reintroduce;
procedure VisibleChanged; override;
procedure CreateWnd; override;
public
constructor Create(TheOwner: TBreakPointsDlgBase; ATree: TDbgTreeView; ANode: PVirtualNode;
ABrkGroup: TIDEBreakPointGroup;
@ -277,6 +278,12 @@ begin
FTree.NodeHeight[FNode] := min(40, Max(15, ToolBar1.Height));
end;
procedure TBreakpointGroupFrame.CreateWnd;
begin
inherited CreateWnd;
FTree.NodeHeight[FNode] := min(40, Max(15, ToolBar1.Height));
end;
constructor TBreakpointGroupFrame.Create(TheOwner: TBreakPointsDlgBase;
ATree: TDbgTreeView; ANode: PVirtualNode; ABrkGroup: TIDEBreakPointGroup;
AGroupKind: TBreakpointGroupFrameKind);

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

@ -188,7 +188,6 @@ type
procedure JumpToCurrentBreakPoint;
procedure ShowProperties;
protected
procedure CreateWnd; override;
procedure AcceptGroupHeaderDrop(ADroppedGroupFrame: TBreakpointGroupFrame; ATargetNode: PVirtualNode); override;
procedure DoBreakPointsChanged; override;
procedure DoBeginUpdate; override;
@ -1627,22 +1626,6 @@ begin
end;
end;
procedure TBreakPointsDlg.CreateWnd;
var
i: Integer;
begin
inherited CreateWnd;
BeginUpdate;
try
ClearTree;
for i := 0 to DebugBoss.BreakPointGroups.Count - 1 do
GetNodeForBrkGroup(DebugBoss.BreakPointGroups[i]);
UpdateAll;
finally
EndUpdate;
end;
end;
procedure TBreakPointsDlg.DoBreakPointsChanged;
var
i: Integer;