From 72fd359020d8a29ca92096b1ecc1ac7421b723dc Mon Sep 17 00:00:00 2001 From: graemeg Date: Mon, 14 Jul 2008 22:10:37 +0000 Subject: * Minor changes to popup menus for Edit and Treeview. --- src/gui/gui_edit.pas | 6 +++--- src/gui/gui_tree.pas | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) (limited to 'src') 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; -- cgit v1.2.3-70-g09d2