OpenOffice.info

sub eventinspector( event )
     xray event
     ' oder
     'mri( event )
end sub

Hallo
Untersuche mal mit Xray oder Mri dein Formularereignis "beim laden" - das heisst binde das Ereignis an so etwas wie:

[code=php]sub eventinspector( event )
     xray event
     ' oder
     'mri( event )
end sub
[/code]
daraus ergeben sich manchmal ungeahnte Möglichkeiten, für die eigenen Routinen.
siehe:
[url]http://www.libreoffice-forum.de/viewtopic.php?f=12&t=13876&start=0#p30235[/url]

Karolus

oFormDocs = ThisDatabaseDocument.FormDocuments.getByName(iForm).open
	If glbExpertenmodus = FALSE THEN
			oForm = oFormDocs.Drawpage.Forms.getByName(iForm)
			oFeld=oForm.getByName("Head")
			glbFormularname = oFeld.getCurrentValue()
	END IF

Sub Formulartitel 
	If glbExpertenmodus = FALSE THEN
		ThisComponent.CurrentController.Frame.Title =  "Systembezeichnug  -  "  & Formularname
	END IF
End SUB

Funktioniert super,
habe mir nur den Formularnamen im zentralen Makro "Formular_oeffnen" als Global gemerkt und lese die Formularnamen beim Formularereignis "beim Laden" aus einem in allen Formularen gleich benannten Texfeld mit Standardinhalt=Formulartitel aus.
Formularaufruf:
[code]
oFormDocs = ThisDatabaseDocument.FormDocuments.getByName(iForm).open
If glbExpertenmodus = FALSE THEN
oForm = oFormDocs.Drawpage.Forms.getByName(iForm)
oFeld=oForm.getByName("Head")
glbFormularname = oFeld.getCurrentValue()
END IF
[/code]

Beim Laden jedes Formulars:
[code]
Sub Formulartitel
If glbExpertenmodus = FALSE THEN
ThisComponent.CurrentController.Frame.Title = "Systembezeichnug - " & Formularname
END IF
End SUB
[/code]

Gruss,
WSO

Hi Rasakul,
das ist ein guter workaround.
Danke für den Tip.
Gruss,
WSO

    oElem = ThisComponent.DrawPage.Forms.getByName(Formname).getByName(Element)
    ThisComponent.CurrentController.Frame.Title = oElem.Tag
 

Hallo!

Du könntest den Formulartitel in einem Tag ("Zusatzinformation") z.B. in der Überschrift hinterlegen und so dann benutzen:

[code=php]
    oElem = ThisComponent.DrawPage.Forms.getByName(Formname).getByName(Element)
    ThisComponent.CurrentController.Frame.Title = oElem.Tag
 [/code]

LG
Rasakul

PS: wenn du in jedem Formular z.B. eine Überschrift hast und diese mit z.B. "Head" betitelst, kannst du das ganze dann zentral in nur einem Makro lösen

ThisComponent.CurrentController.Frame.Title = stFormulartitel

Hallo Zusammen,
in meiner Datenbank erfordert die hohe Anzahl der Formulare eine Orientierungshilfe für den Anwender.
Hierzu wird jedem Formular ein Titel "verpasst".
Den Formulartitel als Bezeichnungsfeld in die Forms einzutragen habe ich verworfen (verschwendet zu viel Platz auf den Formularen).
Da ich keine Möglichkeit gefunden habe, den Formulartitel über die IDE einzugeben, sind diese in einer Tabelle unter dem Formularnamen abgelegt und werden bei Formularaufruf eingetragen.
[code]
ThisComponent.CurrentController.Frame.Title = stFormulartitel
[/code]
Ich möchte aber gerne die daraus resultierenden Datenbankzugriffe bei jedem Formularaufruf vermeiden.

Kennt jemand einen Weg, den Formulartitel in den Formulareigenschaften zu speichern ?

Alternativ müsste ich die Zuordnung über ein als Global definiertes Array vornehmen, was auch nicht optimal ist.
Gruss,
WSO