diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-04-21 14:17:27 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-04-21 14:17:27 +0000 |
| commit | a71e8ebcb42fcc874e97515e9fbe1681923056c1 (patch) | |
| tree | 23648366f38668199aa9ea35a5ed469b6b20e496 /src | |
| parent | b7c71ad5b36302fd86bcf739983b012477e5459d (diff) | |
| download | fpGUI-a71e8ebcb42fcc874e97515e9fbe1681923056c1.tar.xz | |
* Fixed unwanted button down behaviour on mouse hover if buttons Click raised an error.
Diffstat (limited to 'src')
| -rw-r--r-- | src/gui/gui_button.pas | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/gui/gui_button.pas b/src/gui/gui_button.pas index 9eb1fea0..698f8479 100644 --- a/src/gui/gui_button.pas +++ b/src/gui/gui_button.pas @@ -455,6 +455,9 @@ procedure TfpgButton.Click; var pform: TfpgForm; begin + FDown := False; + FClicked := False; + pform := WidgetParentForm(self); if pform <> nil then pform.ModalResult := ModalResult; |