mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-28 15:39:47 +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
@ -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