From 4a56cf9a08701eb7c46a8f194a1e8023924dce81 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Tue, 6 Dec 2011 17:31:25 +0200
Subject: Hide the hint window when the mouse button is pressed.

---
 src/corelib/fpg_widget.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/corelib/fpg_widget.pas b/src/corelib/fpg_widget.pas
index a1536726..3e4c5bc9 100644
--- a/src/corelib/fpg_widget.pas
+++ b/src/corelib/fpg_widget.pas
@@ -1076,6 +1076,9 @@ var
   pw: TfpgWidget;
   w: TfpgWidget;
 begin
+  if FShowHint then
+    fpgApplication.HideHint;
+
   // setting the focus through all parents
   pw := Parent;
   w  := self;
@@ -1090,7 +1093,8 @@ end;
 
 procedure TfpgWidget.HandleRMouseDown(x, y: integer; shiftstate: TShiftState);
 begin
-  // do nothing yet
+  if FShowHint then
+    fpgApplication.HideHint;
 end;
 
 procedure TfpgWidget.HandleLMouseUp(x, y: integer; shiftstate: TShiftState);
-- 
cgit v1.2.3-70-g09d2