diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-07-14 22:10:37 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-07-14 22:10:37 +0000 |
| commit | 72fd359020d8a29ca92096b1ecc1ac7421b723dc (patch) | |
| tree | 0953df9bfc47de8b00bb14b3a8b5145ac381c556 /src | |
| parent | 9432daf804c88f04f20f89773fd0efdcbe89e360 (diff) | |
| download | fpGUI-72fd359020d8a29ca92096b1ecc1ac7421b723dc.tar.xz | |
* Minor changes to popup menus for Edit and Treeview.
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; |