From 95169d06036e38e00d20b85fa6ca8c9ce2b88cb5 Mon Sep 17 00:00:00 2001 From: graemeg Date: Tue, 21 Aug 2007 15:07:21 +0000 Subject: X11: The start of implementing a Double Click event. --- src/corelib/gfx_widget.pas | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/corelib/gfx_widget.pas') diff --git a/src/corelib/gfx_widget.pas b/src/corelib/gfx_widget.pas index c2b60c06..51e98178 100644 --- a/src/corelib/gfx_widget.pas +++ b/src/corelib/gfx_widget.pas @@ -340,7 +340,8 @@ procedure TfpgWidget.MsgDoubleClick(var msg: TfpgMessageRec); begin // If we don't generate a mouse down, we get a rapid click // delay under Windows. -// HandleLMouseDown(msg.Params.mouse.x, msg.Params.mouse.y, msg.Params.mouse.shiftstate); + HandleLMouseDown(msg.Params.mouse.x, msg.Params.mouse.y, msg.Params.mouse.shiftstate); + HandleDoubleClick(msg.Params.mouse.x, msg.Params.mouse.y, msg.Params.mouse.Buttons, msg.Params.mouse.shiftstate); if Assigned(FOnDoubleClick) then -- cgit v1.2.3-70-g09d2