diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-11-09 16:25:44 +0000 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-11-09 16:30:52 +0000 |
commit | 67fc39dcec69bad14ee422c404a21f4854a552f5 (patch) | |
tree | 805ba46395f16c72c0ccd24d529f97c0ecdbaa84 /src/gui/fpg_edit.pas | |
parent | 7647df9e7d2778d05a5af538ec1fd2e2c12b5b3c (diff) | |
download | fpGUI-67fc39dcec69bad14ee422c404a21f4854a552f5.tar.xz |
Moved Menu-key press handling up the class hierarchy to TfpgWidget.
No need for so much code duplication. This also means that widgets like TfpgStringGrid now
have keyMenu keypress behaviour. Basically any widget that supports a PopupMenu.
Diffstat (limited to 'src/gui/fpg_edit.pas')
-rw-r--r-- | src/gui/fpg_edit.pas | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/src/gui/fpg_edit.pas b/src/gui/fpg_edit.pas index 89f5cdce..dce1fda8 100644 --- a/src/gui/fpg_edit.pas +++ b/src/gui/fpg_edit.pas @@ -103,7 +103,6 @@ type procedure HandleKeyChar(var AText: TfpgChar; var shiftstate: TShiftState; var consumed: Boolean); override; procedure HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: Boolean); override; procedure HandleLMouseDown(x, y: integer; shiftstate: TShiftState); override; - procedure HandleRMouseDown(x, y: integer; shiftstate: TShiftState); override; procedure HandleRMouseUp(x, y: integer; shiftstate: TShiftState); override; procedure HandleMouseMove(x, y: integer; btnstate: word; shiftstate: TShiftState); override; procedure HandleDoubleClick(x, y: integer; button: word; shiftstate: TShiftState); override; @@ -932,16 +931,6 @@ begin RePaint; end; -procedure TfpgBaseEdit.HandleRMouseDown(x, y: integer; - shiftstate: TShiftState); -begin - // keyMenu was pressed - if shiftstate = [ssExtra1] then - HandleRMouseUp(x, y, []) - else - inherited HandleRMouseDown(x, y, shiftstate); -end; - procedure TfpgBaseEdit.HandleRMouseUp(x, y: integer; shiftstate: TShiftState); begin inherited HandleRMouseUp(x, y, shiftstate); |