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

IDE: fixed deleting multiple breakponts (bug #10236)

Browse Source 
git-svn-id: trunk@15386 -
This commit is contained in:
vincents 2008-06-11 10:33:29 +00:00
parent e330d55ac5
commit 95463a005e
1 changed files with 15 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
debugger/breakpointsdlg.pp
View File

@ -105,10 +105,10 @@ type
procedure UpdateAll;
procedure DeleteSelectedBreakpoints;
procedure JumpToCurrentBreakPoint;
procedure ShowProperties;
protected
procedure DoEndUpdate; override;
procedure JumpToCurrentBreakPoint; virtual;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@ -255,17 +255,6 @@ begin
inherited;
end;
procedure TBreakPointsDlg.JumpToCurrentBreakPoint;
var
CurItem: TListItem;
CurBreakPoint: TIDEBreakPoint;
begin
CurItem:=lvBreakPoints.Selected;
if CurItem=nil then exit;
CurBreakPoint:=TIDEBreakPoint(CurItem.Data);
DoJumpToCodePos(CurBreakPoint.Source,CurBreakPoint.Line,0);
end;
procedure TBreakPointsDlg.lvBreakPointsColumnClick(Sender: TObject;
Column: TListColumn);
begin
@ -329,6 +318,8 @@ begin
case key of
VK_RETURN:
ShowProperties;
VK_D:
DeleteSelectedBreakpoints;
else
Handled := false;
end;
@ -617,7 +608,7 @@ begin
begin
Item := lvBreakPoints.Items[n];
if Item.Selected
then List.Add(Item);
then List.Add(Item.Data);
end;
lvBreakPoints.BeginUpdate;
@ -630,6 +621,17 @@ begin
List.Free;
end;
procedure TBreakPointsDlg.JumpToCurrentBreakPoint;
var
CurItem: TListItem;
CurBreakPoint: TIDEBreakPoint;
begin
CurItem:=lvBreakPoints.Selected;
if CurItem=nil then exit;
CurBreakPoint:=TIDEBreakPoint(CurItem.Data);
DoJumpToCodePos(CurBreakPoint.Source,CurBreakPoint.Line,0);
end;
procedure TBreakPointsDlg.ShowProperties;
begin
ShowMessage(lisNotImplementedYet2);