https://bugs.documentfoundation.org/show_bug.cgi?id=93998
Bug ID: 93998 Summary: Error en imagen de fondo de Dialog Product: LibreOffice Online Version: unspecified Hardware: All OS: All Status: UNCONFIRMED Severity: normal Priority: medium Component: Calc Assignee: libreoffice-bugs@lists.freedesktop.org Reporter: gustavodia...@yahoo.com.ar Created attachment 118505 --> https://bugs.documentfoundation.org/attachment.cgi?id=118505&action=edit Error en imagen de fondo de Dialog Este Codigo lo uso para colocar una imagen de fondo en un dialogo. Para no depender de una carpeta con imagenes. Hasta la version 4.4 tanto sea en windows como en linux el codigo funciona, pero con desde la version 5 no. Quiero saber si es un error o a partir de esta version hay otra forma de realizar lo mismo. REM ***** BASIC ***** Private Dlg As object sub main Dim oPaginaDibujo As Object DialogLibraries.LoadLibrary("Standard") Dlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1) oPaginaDibujo = ThisComponent.getCurrentController.getActiveSheet.getDrawPage() i = 0 do oForma = oPaginaDibujo.getByIndex(i) If oForma.Name = "Fondo" Then exit do End if i = i + 1 loop While i < oPaginaDibujo.getCount() oDlgModele = Dlg.Model with oDlgModele .PositionX = 100 .PositionY = 100 .ImageURL = oForma.GraphicURL .Width = 190 .Height = 145 .Title = "Graficos" End with oDlgControle = createUnoService( "com.sun.star.awt.UnoControlDialog" ) oDlgControle.setModel( oDlgModele ) dlg.Execute() end sub sub Salir_ dlg.endExecute() end sub A continuaciĆ³n adjunto el archivo de ejemplo con las imagenes de las distintas versiones. Desde ya muchas gracias, y los felicito por la calidad y el nivel de la suite sigan asi que aunque sea un detalle estoy mas que conforme. -- You are receiving this mail because: You are the assignee for the bug.
_______________________________________________ Libreoffice-bugs mailing list Libreoffice-bugs@lists.freedesktop.org http://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs