diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-06-21 12:22:45 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-06-21 12:22:45 +0200 |
| commit | c4b63aeae75069d9445a902ebffb413c2d3b9e4d (patch) | |
| tree | 2cd8a73a20f7f60702a648d78c3ed6b7354f5407 | |
| parent | d0a1091663405961078b56b0489b3cfc4b7fba45 (diff) | |
| download | fpGUI-c4b63aeae75069d9445a902ebffb413c2d3b9e4d.tar.xz | |
prevent duplicate FocusChanged events firing.
Calling FollowFocus already calls CheckFocusChanged.
| -rw-r--r-- | src/gui/fpg_basegrid.pas | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/gui/fpg_basegrid.pas b/src/gui/fpg_basegrid.pas index 509fb3ff..c97122e4 100644 --- a/src/gui/fpg_basegrid.pas +++ b/src/gui/fpg_basegrid.pas @@ -462,7 +462,7 @@ begin FFocusCol := ColumnCount-1; FollowFocus; - CheckFocusChange; + Update; end; procedure TfpgBaseGrid.SetFocusRow(const AValue: Integer); @@ -477,9 +477,8 @@ begin if FFocusRow > RowCount-1 then FFocusRow := RowCount-1; -// FollowFocus; + FollowFocus; Update; - CheckFocusChange; end; procedure TfpgBaseGrid.CheckFocusChange; |