mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-18 17:59:22 +02:00
implemented enable and deleting breakpoint in breakpoint dlg
git-svn-id: trunk@3080 -
This commit is contained in:
parent
c233d1a573
commit
92a94e876a
@ -1069,6 +1069,7 @@ end;
|
|||||||
|
|
||||||
procedure TGDBMIBreakPoint.DoActionChange;
|
procedure TGDBMIBreakPoint.DoActionChange;
|
||||||
begin
|
begin
|
||||||
|
Changed(False);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TGDBMIBreakPoint.DoEnableChange;
|
procedure TGDBMIBreakPoint.DoEnableChange;
|
||||||
@ -1081,10 +1082,12 @@ begin
|
|||||||
|
|
||||||
TGDBMIDebugger(Debugger).ExecuteCommand('-break-%s %d',
|
TGDBMIDebugger(Debugger).ExecuteCommand('-break-%s %d',
|
||||||
[CMD[Enabled], FBreakID], False);
|
[CMD[Enabled], FBreakID], False);
|
||||||
|
Changed(false);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TGDBMIBreakPoint.DoExpressionChange;
|
procedure TGDBMIBreakPoint.DoExpressionChange;
|
||||||
begin
|
begin
|
||||||
|
Changed(False);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TGDBMIBreakPoint.Hit;
|
procedure TGDBMIBreakPoint.Hit;
|
||||||
@ -1668,6 +1671,9 @@ end;
|
|||||||
end.
|
end.
|
||||||
{ =============================================================================
|
{ =============================================================================
|
||||||
$Log$
|
$Log$
|
||||||
|
Revision 1.13 2003/05/27 20:58:12 mattias
|
||||||
|
implemented enable and deleting breakpoint in breakpoint dlg
|
||||||
|
|
||||||
Revision 1.12 2003/05/27 17:53:44 mattias
|
Revision 1.12 2003/05/27 17:53:44 mattias
|
||||||
fixed getting target PID for fpc1.1 programs
|
fixed getting target PID for fpc1.1 programs
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user