소스 검색

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

git-svn-id: trunk@16604 -
marco 14 년 전
부모
커밋
de5ca33983
1개의 변경된 파일7개의 추가작업 그리고 1개의 파일을 삭제
  1. 7 1
      ide/fpdebug.pas

+ 7 - 1
ide/fpdebug.pas

@@ -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;