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

debugger: delete all selected watches, not only first selected

Browse Source 
git-svn-id: trunk@15324 -
This commit is contained in:
paul 2008-06-06 01:08:49 +00:00
parent 3fb74407a3
commit 709cbabbdb
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
debugger/watchesdlg.pp
View File

@ -237,8 +237,14 @@ begin
end; end;
procedure TWatchesDlg.popDeleteClick(Sender: TObject); procedure TWatchesDlg.popDeleteClick(Sender: TObject);
var
Item: TIDEWatch;
begin begin
GetSelected.Free; repeat
Item := GetSelected;
Item.Free;
until Item = nil;
//GetSelected.Free;
end; end;
procedure TWatchesDlg.popDisableAllClick(Sender: TObject); procedure TWatchesDlg.popDisableAllClick(Sender: TObject);

2
lcl/include/customlistview.inc
View File

@ -691,7 +691,7 @@ begin
for i:=0 to Items.Count-1 do begin for i:=0 to Items.Count-1 do begin
if Items[i].Selected then begin if Items[i].Selected then begin
FSelected:=Items[i]; FSelected:=Items[i];
DebugLn('TCustomListView.GetSelection ',dbgs(FSelected)); //DebugLn('TCustomListView.GetSelection ',dbgs(FSelected));
break; break;
end; end;
end; end;