diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-12-06 17:31:25 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-12-06 17:31:25 +0200 |
| commit | 4a56cf9a08701eb7c46a8f194a1e8023924dce81 (patch) | |
| tree | ba83aca48abd2eb15f25901da24306b616746fb0 /src | |
| parent | 9ce1843d77d92d93de347c051e64fb600dc39c73 (diff) | |
| download | fpGUI-4a56cf9a08701eb7c46a8f194a1e8023924dce81.tar.xz | |
Hide the hint window when the mouse button is pressed.
Diffstat (limited to 'src')
| -rw-r--r-- | src/corelib/fpg_widget.pas | 6 |
1 files changed, 5 insertions, 1 deletions
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); |