From de5ca33983cec78b3d6756cd4673c12e236524cb Mon Sep 17 00:00:00 2001 From: marco Date: Tue, 21 Dec 2010 08:15:31 +0000 Subject: [PATCH] * fix one of two issues in mantis 6326, double click on watch entry invokes edit watch git-svn-id: trunk@16604 - --- ide/fpdebug.pas | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/ide/fpdebug.pas b/ide/fpdebug.pas index a0bfb71324..844b994d06 100644 --- a/ide/fpdebug.pas +++ b/ide/fpdebug.pas @@ -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;