OpenOffice.info

[quote="F3K Total"]Schau in die FAQ's[/quote]
Yep, hatte es schon gefunden... ! :)

Schau in die FAQ's

Hallo R.

funktioniert prima. Danke dir nochmals!!

Gruß
K.


Nun brauche ich noch einen Tipp, wie ich ein Fenster minimieren kann.
Aber bevor ich eine diesbezügliche Frage poste, sehe ich mich erst noch etwas um.

Hi,
thisComponent ist das Formulardokument, desses Größe du auslesen möchtest.
Also quasi:
[quote]Sub Form_OnLoad
Dim oForm As Object
xray thisComponent ' <-keine StyleFamilies gefunden
oForm = [color=#FF0000][b]ThisComponent[/b][/color].DrawPage.Forms(0)
xray oForm ' <-keine StyleFamilies gefunden
' hier würde ich gern die Seitengröße abfragen
Call InitFields(oForm)
.......
End Sub[/quote]
Wenn du das Makro aus der IDE startest, geht es nicht, die IDE hat keine StyleFamilies.
Im geöffneten Formular Extras/Makros/...ausführen ... dann läufts.
Oder eben aus dem Formular heraus starten (Button/Ereignis ...)
Gruß R

  thisDatabaseDocument.FormDocuments.getByName("Test").open

Sub Form_OnLoad
	Dim oForm As Object
	xray thisComponent     ' <-keine StyleFamilies gefunden
	oForm =  ThisComponent.DrawPage.Forms(0)
	xray oForm                      ' <-keine StyleFamilies gefunden
	' hier würde ich gern die Seitengröße abfragen
	Call InitFields(oForm)
	.......
End Sub

Hi F3K Total alias R.,

vielen Dank für dein Codesegment.
Jetzt müste ich nur noch wissen, was [i]thisComponent[/i] in [u]diesem[/u] Fall ist.
[quote="F3K Total"][code]PageSize = thisComponent.StyleFamilies.PageStyles.Standard.Size[/code][/quote]
Ich verwende Folgendes[code] thisDatabaseDocument.FormDocuments.getByName("Test").open[/code]
und später dann
[code]Sub Form_OnLoad
Dim oForm As Object
xray thisComponent ' <-keine StyleFamilies gefunden
oForm = ThisComponent.DrawPage.Forms(0)
xray oForm ' <-keine StyleFamilies gefunden
' hier würde ich gern die Seitengröße abfragen
Call InitFields(oForm)
.......
End Sub[/code]

Kannst du bitte noch etwas detaillierter werden?

K.

sub get_pagesize
     PageSize = thisComponent.StyleFamilies.PageStyles.Standard.Size
     Seitenbreite = PageSize.Width/1000
     Seitenhoehe = PageSize.Height/1000
     msgbox "die Seite ist " + Seitenbreite + " cm breit und " + Seitenhoehe + " cm breit"
end sub 

Hi,
wenn du die Seitenvorlage Standard verwendest, geht es so:
[code]sub get_pagesize
PageSize = thisComponent.StyleFamilies.PageStyles.Standard.Size
Seitenbreite = PageSize.Width/1000
Seitenhoehe = PageSize.Height/1000
msgbox "die Seite ist " + Seitenbreite + " cm breit und " + Seitenhoehe + " cm breit"
end sub [/code]
Gruß R

Hi community,

Ich möchte meine [b]Formulare vollständig[/b] darstellen; nicht weniger, aber auch nicht mehr.
Dazu formatiere ich zur Entwurfszeit die Seite des entsprechenden Formulardokuments wie üblich mittels [b][i]Format - Seite [/i][/b].
Wenn dann das Makro gestartet ist, schalte ich programmatisch das Hauptmenü des Fensters und sämtliche Menüleisten, Rollbalken, Lineale etc ab.
Danach wird das Fenster an das entsprechende Seitenformat angepasst und an die gewünschte Stelle des Monitors geschoben; also z.B. auf dem Monitor zentriert. All das klappt hervorragend.

Allerdings habe ich das Seitenformat im Makro-Code fest verdrahtet, weil ich bislang keine Möglichkeit finden konnte, das Seitenformat während der Laufzeit [b]auszulesen[/b].

Kann mir jemand auf die Sprünge helfen?