Hello everybody We are moving from OpenOffice to LibreOffice
We have some macros that uses popup menus that work perfectly in OpenOffice but they don't work in LibreOffice. We developed our code starting from examples (thanks Hania and Ermione) that we found over the internet and that are attached. Any suggestions to make the macro run fine? Thanks to everybody REM ***** BASIC ***** Dim oDialog As Object Dim oPopupMenu As Object Sub Main sLibName = "Standard" sDialogName = "Dialog1" DialogLibraries.LoadLibrary(sLibName) ' create new dialog oDialog = CreateUnoDialog( _ DialogLibraries.getByName(sLibName).getByName(sDialogName)) oDialog.execute() End Sub Sub PopupButton ' get the size of the button oButton = oDialog.getControl("CommandButton1") aPosSize = oButton.PosSize ' set the position of the popup menu Dim aRect As New com.sun.star.awt.Rectangle With aRect .X = aPosSize.X .Y = aPosSize.Y + aPosSize.Height .Width = 0'100 .Height = 0'100 End With ' menu listener oMenuListener = CreateUnoListener( _ "PopupMenuListener_", "com.sun.star.awt.XMenuListener") ' new popupmenu oPopupMenu = CreateUnoService("com.sun.star.awt.PopupMenu") ' set listener and insert menu items With oPopupMenu .addMenuListener(oMenuListener) .insertItem(1,"Menu 1",0,0) 'id, label, type, position .insertItem(2,"Menu 2",0,2) .insertSeparator(1) .setCommand(1,"item1") .setCommand(2,"item2") End With ' show popup menu oPopupMenu.execute(oDialog.Peer,aRect, _ com.sun.star.awt.PopupMenuDirection.EXECUTE_DEFAULT) oPopupMenu.removeMenuListener(oMenuListener) End Sub Sub PopupMenuListener_select ( oEv ) sCmd = oEv.Source.getCommand(oEv.MenuId) msgbox sCmd End Sub Sub PopupMenuListener_highlight ( oEv ) End Sub Sub PopupMenuListener_activate ( oEv ) End Sub Sub PopupMenuListener_deactivate ( oEv ) End Sub Sub PopupMenuListener_disposing( oEv ) End Sub ________________________________ Ferrario Luigi s.r.l. Ing. Paolo Ferrario Viale Edison 629 20099 Sesto S. Giovanni Tel: +39.02.22.47.48.49 Fax: +39.02.24.40.418 e-mail: paolo.ferra...@ferrarioimpianti.it <mailto:paolo.ferra...@ferrarioimpianti.it> ---------------------------------------------------------------- The information transmitted is intended only for the person or entity to which it is addressed and may contain confidential and/or privileged material. Any review, retransmission, dissemination or other use of, or taking of any action in reliance upon, this information by persons or entities other than the intended recipient is prohibited. If you received this in error, please contact the sender and delete the material from any computer. -- To unsubscribe e-mail to: users+unsubscr...@global.libreoffice.org Problems? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/ Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette List archive: http://listarchives.libreoffice.org/global/users/ All messages sent to this list will be publicly archived and cannot be deleted