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: [email protected]
Reporter: [email protected]
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
[email protected]
http://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs
