[gelöst] Formular maximiert starten

[Gundo]

Hallo,

Ein Formular direkt mit Fullscreen zu starten geht ja mit folgendem Makro:

Code: Alles auswählen

SUB Fullscreen
   DIM oDispatcher As Object, Props(0) As New com.sun.star.beans.PropertyValue
   oDispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
   Props(0).Name = "FullScreen" : Props(0).Value = true
   oDispatcher.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:FullScreen", "", 0, Props())
End SUB

Kann man das Formular auch maximiert starten, also mit Symbolleisten ?

Gruß Gundo

[Gundo]

Im OpenOffice Forum gefunden:

Hi, nicht ganz, aber fast:

Code: Alles auswählen

sub S_MaximizeFrame
    oframe=Thiscomponent.currentcontroller.frame
    owindow = oframe.getContainerWindow()
    	If Not IsNull(oWindow) Then
		oWindow.IsMaximized = True
		'oWindow.IsMinimized = True
    	End If
end sub 

Gruß R

Danke.

Gruß Gundo