|
@@ -684,7 +684,7 @@ begin
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
|
|
-
|
|
|
|
|
|
+
|
|
procedure TDebugController.SetTBreak(tbreakstring : string);
|
|
procedure TDebugController.SetTBreak(tbreakstring : string);
|
|
begin
|
|
begin
|
|
Command('tbreak '+tbreakstring);
|
|
Command('tbreak '+tbreakstring);
|
|
@@ -3201,6 +3201,12 @@ procedure TWatchesListBox.HandleEvent(var Event: TEvent);
|
|
var DontClear: boolean;
|
|
var DontClear: boolean;
|
|
begin
|
|
begin
|
|
case Event.What of
|
|
case Event.What of
|
|
|
|
+ evMouseDown : begin
|
|
|
|
+ if Event.Double then
|
|
|
|
+ Message(@Self,evCommand,cmEdit,nil)
|
|
|
|
+ else
|
|
|
|
+ ClearEvent(Event);
|
|
|
|
+ end;
|
|
evKeyDown :
|
|
evKeyDown :
|
|
begin
|
|
begin
|
|
DontClear:=false;
|
|
DontClear:=false;
|