Fenster maximieren

[gigabert]

Hallo,

nach einem kleinen Ausflug in die Calc-Welt muss ich nun an Base und Basic weiterarbeiten, und hab auch gleich schon wieder eine Frage zu Basic: Wie kann ich bei einem Formular in Base mittels Makro bewirken, dass das Formularfenster beim Öffnen maximiert wird, also größtmöglich angezeigt wird? Das ist der Effekt, der manuell erzeugt wird, wenn ich doppelt auf die Titelleiste klicke, oder über den kleinen Button ("Fenster maximieren") rechts oben in der Fensterecke neben dem Schliessen-Kreuz. Wie kriege ich das über ein Basic-Makro hin?

Gruss
Bert

[eBayer]

Hallo Bert,
vielleicht hilft's ja.
Gruß eBayer

REM "declare am Anfang eines Moduls einbauen!
Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd&, ByVal nCmdShow&) As Boolean

Sub MainRoutines
changeWindow
End Sub

Sub changeWindow
oFrame = ThisComponent.CurrentController.Frame
oWindow = oFrame.ContainerWindow()
handle = oWindow.getWindowHandle(dimarray(), 1) ' 1 = WIN32
ShowWindow( handle, 3 ) ' 3 = SW_MAXIMIZE, 1 und 2 mal probieren
End Sub

[eBayer]

Hallo Bert, unter Linux könntest Du mal folgenden Weg versuchen.
Gruß eBayer

Function setZoom(oDoc)
if oDoc.supportsService("com.sun.star.text.TextDocument") then
oDoc.CurrentController.ViewSettings.ZoomValue=120 ' Zoomfaktor in Prozent zum Ausgangsformular.
end if
End Function

[gigabert]

Hallo eBayer,

schön, mal wieder was von dir zu hören. Ich werde jetzt hoffentlich wieder öfters hier anzutreffen sein.

Die erste deiner Lösungen war wohl nur für Windows, vermute ich mal. Die zweite habe ich getestet, aber leider ohne Erfolg. Das Fenster wurde nicht maximiert.

Gruss
Bert

[eBayer]

schau doch mal hier vorbei:
http://www.google.de/search?q=minimize+ ... =firefox-a

und dann dort:
viewtopic.php?f=16&t=31801
Gruß eBayer