summaryrefslogtreecommitdiff
path: root/src/corelib/gfx_widget.pas
diff options
context:
space:
mode:
Diffstat (limited to 'src/corelib/gfx_widget.pas')
-rw-r--r--src/corelib/gfx_widget.pas6
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