diff options
Diffstat (limited to 'src/corelib/gfx_widget.pas')
-rw-r--r-- | src/corelib/gfx_widget.pas | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/corelib/gfx_widget.pas b/src/corelib/gfx_widget.pas index 221c2686..0323eb40 100644 --- a/src/corelib/gfx_widget.pas +++ b/src/corelib/gfx_widget.pas @@ -274,6 +274,9 @@ procedure TfpgWidget.MsgMouseDown(var msg: TfpgMessageRec); var mb: TMouseButton; begin + if not FEnabled then + exit; // Do we want this here? + case msg.Params.mouse.Buttons of MOUSE_LEFT: begin @@ -299,6 +302,9 @@ procedure TfpgWidget.MsgMouseUp(var msg: TfpgMessageRec); var mb: TMouseButton; begin + if not FEnabled then + exit; // Do we want this here? + case msg.Params.mouse.Buttons of MOUSE_LEFT: begin |