We uses the Basic codelines below to make Modeless Dialogs, sinds 4.0 we
end up with a non-visible window
is this a Windows only problem or a more general regression due to
changes in the API ?,
it was working until 3.6.4 Windows
Greetz
Fernand
Sub Main
oDoc = ThisComponent
oParentFrame = oDoc.CurrentController.Frame
oPeer = oParentFrame.ContainerWindow
oToolkit = oPeer.Toolkit
oWindow = CreateNewWindow(oToolkit,oPeer,150,150,200,200)
oFrame = CreateUnoService("com.sun.star.frame.Frame")
oFrame.initialize(oWindow)
oFrame.setCreator(oParentFrame)
oFrame.setName("NewFrame")
oFrame.Title = "New Frame"
oParentFrame.getFrames().append(oFrame)
oWindow.setVisible(True)
End Sub
Function CreateNewWindow( _
oToolkit,oParent,nX,nY,nWidth,nHeight) As Object
aRect = CreateUnoStruct("com.sun.star.awt.Rectangle")
With aRect
.X = nX
.Y = nY
.Width = nWidth
.Height = nHeight
End With
aWinDesc = CreateUnoStruct("com.sun.star.awt.WindowDescriptor")
With aWinDesc
.Type = com.sun.star.awt.WindowClass.TOP
.WindowServiceName = "dialog"
.ParentIndex = -1
.Bounds = aRect
.Parent = oParent
.WindowAttributes = _
com.sun.star.awt.WindowAttribute.MOVEABLE + _
com.sun.star.awt.WindowAttribute.CLOSEABLE
End With
CreateNewWindow = oToolkit.createWindow(aWinDesc)
End Function
--
For unsubscribe instructions e-mail to: users+h...@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
