[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [de-users] Base: Formulare ohne Symbolleisten in einem Fenster: gelöst



Hallo Robert,

ich habe bei mir folgende Lösung gefunden: damit die Symbolleisten des angesprochenen Formulars und nicht die des übergeordneten Menüs (*.odb-Datei) ausgeblendet werden.
Man muss das Formular (Formularname hier bei mir in meiner Datenbank "pPerson") explizit ansprechen (dann braucht man auch keine wait-Kommandos mehr).
Also:
oForm = thisComponent.Parent.FormDocuments
oDoc = oForm.getByName("pPerson").open

Der gesamte Makro in meiner Datenbank

Grüße
Gerhard

SUB Symbolleisten_Ausblenden_pPerson
DIM oDrawpage AS OBJECT
DIM oForm AS  OBJECT
DIM oDoc AS OBJECT
oForm = thisComponent.Parent.FormDocuments
oDoc = oForm.getByName("pPerson").open
DIM oFrame AS OBJECT
DIM oWin AS OBJECT
DIM oLayoutMng AS OBJECT
DIM aElemente()
DIM i AS INTEGER
'oFrame = StarDesktop.getCurrentFrame() <- müsste wohl auch funktionieren, dieses Kommando ist im Handbuch aufgeführt.
oFrame = Thiscomponent.currentcontroller.frame '<- dieses habe ich verwendet
ThisComponent.CurrentController.Frame.Title = "Person"
ThisComponent.CurrentController.ViewSettings.ZoomValue  = Bildschirmgroesse_GL
oWin = oFrame.getContainerWindow()
oWin.IsMaximized = true
oLayoutMng = oFrame.LayoutManager
aElemente = oLayoutMng.getElements()
FOR i = LBound(aElemente) TO UBound(aElemente)
    IF aElemente(i).ResourceURL = "private:resource/toolbar/formsnavigationbar" THEN
    ELSE
    oLayoutMng.hideElement(aElemente(i).ResourceURL)
    END IF
NEXT
END SUB

Am 30.06.19 um 19:28 schrieb Robert Großkopf:
Hallo Gerhard,

ich habe das jetzt auch einmal getestet. Selbst bei einer
MySQL/MariaDB-Datenbank, zu der die Verbindung bereits besteht, wird
statt der Symbolleisten und des Menüs im Formular das Menü und die
Symbolleisten des übergeordneten Dokumentes (*.odb-Datei) ausgeblendet.
Teste ich noch einmal etwas mehr.

Gruß

Robert



--
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy

References:
[de-users] Base: Formulare ohne Symbolleisten in einem FensterGerhard Dittrich <gdittrich@arcor.de>
Re: [de-users] Base: Formulare ohne Symbolleisten in einem FensterRobert Großkopf <robert@familiegrosskopf.de>
Re: [de-users] Base: Formulare ohne Symbolleisten in einem FensterGerhard Dittrich <gdittrich@arcor.de>
Re: [de-users] Base: Formulare ohne Symbolleisten in einem Fenster"Hessler, Klaus-Michael" <mailinglisten@kmHessler.de>
[de-users] Base: Formulare ohne Symbolleisten in einem FensterGerhard Dittrich <gdittrich@arcor.de>
Re: [de-users] Base: Formulare ohne Symbolleisten in einem FensterRobert Großkopf <robert@familiegrosskopf.de>
Re: [de-users] Base: Formulare ohne Symbolleisten in einem FensterRobert Großkopf <robert@familiegrosskopf.de>
[de-users] Base: Formulare ohne Symbolleisten in einem FensterGerhard Dittrich <gdittrich@arcor.de>
Re: [de-users] Base: Formulare ohne Symbolleisten in einem FensterRobert Großkopf <robert@familiegrosskopf.de>
Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.