summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/corelib/gfx_widget.pas1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/corelib/gfx_widget.pas b/src/corelib/gfx_widget.pas
index c16265ec..1e945c19 100644
--- a/src/corelib/gfx_widget.pas
+++ b/src/corelib/gfx_widget.pas
@@ -849,6 +849,7 @@ begin
msgp.user.Param2 := x+10;
msgp.user.Param3 := y+2;
+ { Only send message if really needed. }
if Assigned(Parent) then
begin
if fpgApplication.ShowHint and (FShowHint or (FParentShowHint and Parent.ShowHint)) and (FHint <> '') then