FIX: Don't call OnClick event when menu has submenu (GTK2)

This commit is contained in:
Alexander Koblov 2015-10-03 17:45:34 +00:00
commit 4cebd1e4c1

View file

@ -393,7 +393,6 @@ begin
MI:= TMenuItem.Create(MenuItem);
MI.Tag:= 1;
MI.Caption:= Module.FieldList[J];
MI.OnClick:= OnMenuItemClick;
MenuItem.Items[1].Items[MenuItem.Items[1].Count - 1].Add(MI);
with TWdxField(Module.FieldList.Objects[J]) do
if FType <> ft_multiplechoice then
@ -408,6 +407,7 @@ begin
MI.Add(MI2);
end;
end;
if MI.Count = 0 then MI.OnClick:= OnMenuItemClick;
end;
end;
end;