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

gtk3: implemented TPopupMenu.OnClose.

Browse Source 
git-svn-id: trunk@47301 -
This commit is contained in:
zeljko 2015-01-04 19:48:38 +00:00
parent 5082db081f
commit a257e58d2a
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/interfaces/gtk3/gtk3wsmenus.pp
View File

@ -360,7 +360,7 @@ begin
Result := HMENU(TGtk3MenuItem.Create(AMenuItem));
if AMenuItem.Visible then
gtk_widget_show(TGtk3MenuItem(Result).Widget);
TGtk3MenuItem(Result).show;
// create the menuitem widget (normal, check or radio)
(*
@ -692,19 +692,19 @@ end;
function gtkWSPopupDelayedClose(Data: Pointer): gboolean; cdecl;
var
PopupMenu: TPopupMenu absolute data;
PopupMenu: TMenu absolute Data;
begin
Result := False;
if PopupMenu is TPopupMenu then
PopupMenu.Close;
if Assigned(PopupMenu) and (PopupMenu is TPopupMenu) then
TPopupMenu(PopupMenu).Close;
end;
procedure gtkWSPopupMenuDeactivate(widget: PGtkWidget; data: gPointer); cdecl;
begin
if widget = MenuWidget then
MenuWidget := nil;
// if data <> nil then
// g_idle_add(@gtkWSPopupDelayedClose, TGtk3Widget(data)^.LCLObject);
if data <> nil then
g_idle_add(@gtkWSPopupDelayedClose, TGtk3Menu(data).MenuObject);
end;
class function TGtk3WSPopupMenu.CreateHandle(const AMenu: TMenu): HMENU;
@ -728,6 +728,9 @@ begin
DebugLn('****** TGtk3WSPopupMenu.CreateHandle ******');
{$ENDIF}
Result := HMENU(TGtk3Menu.Create(AMenu, nil));
g_signal_connect_data(TGtk3Menu(Result).Widget,'deactivate',
TGCallback(@gtkWSPopupMenuDeactivate), TGtk3Menu(Result), nil, 0);
end;
class procedure TGtk3WSPopupMenu.Popup(const APopupMenu: TPopupMenu; const X,