mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-12 06:49:24 +02:00
* 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:
parent
8c0c614d5a
commit
de5ca33983
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user