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

IdeDebugger: Fix deleting multiple selected watches / crashed if some sub-watches were selected

Browse Source 
(cherry picked from commit 34b7126915)
This commit is contained in:
Martin 2023-07-23 01:41:19 +02:00
parent 57d8cd20ca
commit 1b530896b0
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/packages/idedebugger/watchesdlg.pp
View File

@ -1029,8 +1029,24 @@ begin
try
include(FStateFlags, wdsDeleting);
VNode := tvWatches.GetFirstSelected;
w := TIdeWatch(tvWatches.NodeItem[VNode]);
while (VNode <> nil) and
((w = nil) or (w <> w.TopParentWatch))
do begin
VNode := tvWatches.GetNextSelected(VNode);
w := TIdeWatch(tvWatches.NodeItem[VNode]);
end;
while VNode <> nil do begin
NNode := tvWatches.GetNextSelected(VNode);
w := TIdeWatch(tvWatches.NodeItem[NNode]);
while (NNode <> nil) and
((w = nil) or (w <> w.TopParentWatch))
do begin
NNode := tvWatches.GetNextSelected(NNode);
w := TIdeWatch(tvWatches.NodeItem[NNode]);
end;
w := TIdeWatch(tvWatches.NodeItem[VNode]);
if (w <> nil) and (w = w.TopParentWatch) then begin
if tvWatches.NodeItem[VNode] = FWatchInUpDateItem then