diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/gui/gui_edit.pas | 6 | ||||
| -rw-r--r-- | src/gui/gui_tree.pas | 6 |
2 files changed, 6 insertions, 6 deletions
diff --git a/src/gui/gui_edit.pas b/src/gui/gui_edit.pas index 19281258..b9c608af 100644 --- a/src/gui/gui_edit.pas +++ b/src/gui/gui_edit.pas @@ -84,7 +84,7 @@ 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; procedure HandleMouseEnter; override; @@ -872,9 +872,9 @@ begin RePaint; end; -procedure TfpgBaseEdit.HandleRMouseDown(x, y: integer; shiftstate: TShiftState); +procedure TfpgBaseEdit.HandleRMouseUp(x, y: integer; shiftstate: TShiftState); begin - inherited HandleRMouseDown(x, y, shiftstate); + inherited HandleRMouseUp(x, y, shiftstate); if Assigned(PopupMenu) then PopupMenu.ShowAt(self, x, y) else diff --git a/src/gui/gui_tree.pas b/src/gui/gui_tree.pas index ecc5004a..25d8c839 100644 --- a/src/gui/gui_tree.pas +++ b/src/gui/gui_tree.pas @@ -191,7 +191,7 @@ type procedure HandleResize(awidth, aheight: TfpgCoord); override; procedure HandleLMouseUp(x, y: integer; shiftstate: TShiftState); 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 HandleDoubleClick(x, y: integer; button: word; shiftstate: TShiftState); override; procedure HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override; procedure HandleMouseScroll(x, y: integer; shiftstate: TShiftState; delta: smallint); override; @@ -1213,9 +1213,9 @@ begin RePaint; end; -procedure TfpgTreeView.HandleRMouseDown(x, y: integer; shiftstate: TShiftState); +procedure TfpgTreeView.HandleRMouseUp(x, y: integer; shiftstate: TShiftState); begin - inherited HandleRMouseDown(x, y, shiftstate); + inherited HandleRMouseUp(x, y, shiftstate); if Assigned(PopupMenu) then PopupMenu.ShowAt(self, x, y); end; |