* fix one of two issues in mantis 6326, double click on watch entry invokes edit watch

git-svn-id: trunk@16604 -
This commit is contained in:
marco 2010-12-21 08:15:31 +00:00
parent 8c0c614d5a
commit de5ca33983

View File

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