From 7e5581b378b48ff731f2d3ea078ff8978f25e8aa Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Wed, 7 Mar 2007 13:19:47 +0000 Subject: * Popupu menus now close on item selection. --- gui/menus.inc | 8 +++----- gui/widget.inc | 4 ++-- 2 files changed, 5 insertions(+), 7 deletions(-) (limited to 'gui') diff --git a/gui/menus.inc b/gui/menus.inc index cad0f3c9..202b7e27 100644 --- a/gui/menus.inc +++ b/gui/menus.inc @@ -137,11 +137,6 @@ begin else if Event.InheritsFrom(TMouseLeaveEventObj) then begin Exclude(WidgetState, wsMouseInside); -// if Assigned(FSubMenu) and (FSubMenu.Visible) then -// begin -// writeln('1111111111111'); -// FSubMenu.Close; -// end; Redraw; result := True; end @@ -157,6 +152,9 @@ begin end else inherited Click; + + if FindForm is TPopupMenu then + TPopupMenu(FindForm).Close; end; constructor TMenuItem.Create(const pText: string; pOwner: TComponent); diff --git a/gui/widget.inc b/gui/widget.inc index df671640..b00b3f8e 100644 --- a/gui/widget.inc +++ b/gui/widget.inc @@ -1353,8 +1353,8 @@ begin begin if wsMouseInside in WidgetState then SendEvent(TMouseLeaveEventObj.Create(Self)) - end else if (FindForm.MouseCaptureWidget = Self) and - not (wsMouseInside in WidgetState) then + end + else if (FindForm.MouseCaptureWidget = Self) and not (wsMouseInside in WidgetState) then SendEvent(TMouseEnterEventObj.Create(Self, Event.Shift, Event.Position)); if (wsMouseInside in WidgetState) and (Event.NewCursor = crDefault) and -- cgit v1.2.3-70-g09d2