paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 13:39:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixed big 1641

Browse Source 
git-svn-id: trunk@8559 -
This commit is contained in:
andrew 2006-01-18 21:44:51 +00:00
parent 9a5aadffbd
commit 6de45e4ce8
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/interfaces/gtk/gtkwsmenus.pp
View File

@ -83,6 +83,8 @@ type
implementation
uses Controls;
{ TGtkWSMenuItem }
procedure TGtkWSMenuItem.AttachMenu(const AMenuItem: TMenuItem);
@ -267,17 +269,23 @@ end;
procedure TGtkWSPopupMenu.Popup(const APopupMenu: TPopupMenu; const X, Y: integer);
var
APoint: TPoint;
AProc: Pointer;
begin
ReleaseMouseCapture;
APoint.X := X;
APoint.Y := Y;
if (X = Mouse.CursorPos.X) and (Y = Mouse.CursorPos.Y) then
AProc := nil
else
AProc := @GtkWS_Popup;
gtk_menu_popup(PgtkMenu(APopupMenu.Handle),
nil,
nil,
TGtkMenuPositionFunc(@GtkWS_Popup),
@APoint,
0,
0);
nil,
nil,
TGtkMenuPositionFunc(AProc),
@APoint,
0,
0);
{Displays a menu and makes it available for selection. Applications
can use this function to display context-sensitive menus, and will
typically supply NULL for the parent_menu_shell, parent_menu_item,