mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-21 10:51:05 +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;
|
||||||
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;
|
||||||
|
Loading…
Reference in New Issue
Block a user