OpenOffice.info

Code: Alles auswählen

Sub xyz
        mach_dieses_und_jenes()
        tu_hier_von_auch_was()
        arbeite = schoen + fleissig * sinnvoll

       Symbolleisten_setVisible(false)

        Und_jetzt_ist_fertig()
END SUB

'========================================

SUB Symbolleisten_setVisible(bShow)
	DIM oLayout AS OBJECT
	DIM i AS INTEGER
	DIM s AS STRING

	oLayout = StarDesktop.getCurrentFrame().oFrame.LayoutManager

	oLayout.visible = true
	aListe = layout.getElements()

	FOR i = 0 to uBound(aListe)
		s = aListe(i).ResourceUrl
		
		if bShow = FALSE Then
			oLayout.hideElement(s)			
		else
			oLayout.showElement(s)			
		end if
	NEXT	
END SUB

'========================================

Code: Alles auswählen

Sub OnOpenAnyForm()

  Dim n As Integer, bDraftMode As Boolean, sMenuBarRoot As String, sToolBarsRoot As String
  Dim sResource As String, strURL As String, sToolbarName() As String
  Dim oCurrCtrl As Object, oLayoutMan As Object

  ' Array mit allen interessierenden Symolleisten-Namen (ausser Menubar) zusammenstellen:
  sToolbarName = Array("formdesign","formcontrols","moreformcontrols")

  ' Stammverzeichnis der Hauptmenueleiste:
  sMenuBarRoot = "private:resource/menubar/"

  ' Stammverzeichnis aller anderen Symbolleisten:
  sToolBarsRoot = "private:resource/toolbar/"

  ' Handle zum Controller-Objekt des aktuell geoeffneten Formulars:
  oCurrCtrl = ThisComponent.CurrentController

  ' Pruefen, ob das Formular im Entwurfsmodus vorliegt:
  bDraftMode = oCurrCtrl.isFormDesignMode()

  ' Der Layout-Manager des aktuell geoeffneten Formulars:
  oLayoutMan = oCurrCtrl.Frame.LayoutManager
 'oLayoutMan = StarDesktop.getCurrentFrame().LayoutManager


  If bDraftMode = True Then
    ' ---- FORMULAR IM ENTWURFS-MODUS ----

    ' Empfehlung: Warnton zur Kontrolle - nach sehr vielen Code-Aenderungen erkennt OO manchmal
    ' den Entwurfs-Modus des Formulars nicht mehr - da hilft dann nur noch ein Neustart!):
    Beep

    ' Muss nicht sein (ehrlich gesagt - ich weiss auch nicht, wozu das gut sein soll):    
	'oLayoutMan.visible = True
  	
  	' Die Menueleiste muss separat eingeschaltet werden:
  	sResource = sMenuBarRoot & "menubar"
      ' Moeglicherweise muss erst die Symbolleiste noch erzeugt werden:
    If IsNull(oLayoutMan.getElement(sResource)) Then oLayoutMan.createElement(sResource)

    ' ... und zeigen:
    oLayoutMan.showElement(sResource)
 
	' Alle oben vordefinierten Symolleisten durchklappern:   
    For n = 0 To Ubound(sToolbarName())
       sResource = sToolBarsRoot & sToolbarName(n)
       ' Moeglicherweise muss erst die Symbolleiste noch erzeugt werden:
       If IsNull(oLayoutMan.getElement(sResource)) Then oLayoutMan.createElement(sResource)
       ' ... und zeigen:
       oLayoutMan.showElement(sResource)
    Next n

  Else
    ' ---- FORMULAR IM ARBEITS-MODUS ----

    ' Hauptmenueleiste muss separat ausgeschaltet werden (falls gewuenscht):
   	oLayoutMan.hideElement(sMenuBarRoot & "menubar")

    ' Diese Schleife schaltet  a l l e  Symbolleisten aus:
    For n = 0 To UBound(oLayoutMan.Elements) 
       strURL=oLayoutMan.Elements(n).ResourceURL 
       oLayoutMan.hideElement(strURL)
    Next n

    ' Die folgende Schleife schaltet nur die oben definierten Symbolleisten aus
    ' wobei zu bedenken ist, dass Symbolleisten aus einer vorangegangenen Sitzung
    ' sichtbar bleiben koennten, die man vielleicht jetzt garnicht mehr moechte:
    ' For n=1 To Ubound(sToolbarName())
    '    sResource = sToolBarsRoot & sToolbarName(n)
    '    oLayoutMan.hideElement(sResource)
    ' Next n

  EndIf

  '  --- Nachtrag ---
  '  Hier mal noch die Pfade/Namen der wichtigsten Symbolleisten:
  
  '  private:resource/menubar/menubar 'Haupt-Menue
  '  private:resource/statusbar/statusbar 'Statusleiste

  '  private:resource/toolbar/standardbar ' Standard-Symbolleiste
  '  private:resource/toolbar/viewerbar ' Standard-Symbolleiste (lesen)

  '  private:resource/toolbar/textobjectbar ' Format
  '  private:resource/toolbar/numobjectbar 'Absatz-Nummerierung und Aufzaehlung
  '  private:resource/toolbar/frameobjectbar 'Rahmen
  '  private:resource/toolbar/tableobjectbar 'Tabelle
  '  private:resource/toolbar/insertbar  'Einfuegen
  '  private:resource/toolbar/toolbar 'Werkzeugleiste (Standard)

  '  private:resource/toolbar/formdesign 'Formular-Entwurf
  '  private:resource/toolbar/formcontrols 'Formular-Steuerelemente
  '  private:resource/toolbar/formsnavigationbar  'Datensatz-Navigation (Formular)

  '  private:resource/toolbar/graphicobjectbar 'Bildbearbeitungs-Werkzeug
  '  private:resource/toolbar/drawingobjectbar 'Zeichnungsobjekt-Eigenschaften
  '  private:resource/toolbar/drawtextobjectbar 'Textobjekt

  '  private:resource/toolbar/drawbar  ' Zeichnen
  '  private:resource/toolbar/alignmentbar ' Objekt-Ausrichtung
  '  private:resource/toolbar/mediaobjectbar ' Medien-Wiedergabe

  '  private:resource/toolbar/oleobjectbar  'OLE-Objektt
  '  private:resource/toolbar/fontworkobjectbar 'Fontwork
  '  private:resource/toolbar/extrusionobjectbar '3D-Einstellungen

End Sub

Code: Alles auswählen

Function GetActFrmPos(oFrmCtrl) As New com.sun.star.awt.Rectangle

	' Funktion "GetActFrmPos", Autor: EJOMI
	'     Ermittelt die Position und Groesse eines Formulars

	' Uebergabeparameter:
	'     Objekt-Handle des fraglichen Formular-Controllers
	' Rueckgabe:
	'     X/Y-Pos und Breite/Hoehe als Rectangle-Strukt.
	'     Die Werte muessen im aufrufenden Programm von einer
	'     als Rectangle deklarierten Variablen eingelesen werden
	'     und sind dort als .Y, .X, .Width und .Height nutzbar.

	On Error GoTo ScrErr
	
	Dim oFrame As Object, oWin As Object, aRectVal As New com.sun.star.awt.Rectangle
	
	oWin = oFrmCtrl.Frame.getContainerWindow()

	With aRectVal	
		.X = oWin.PosSize.X
		.Y = oWin.PosSize.Y
		.Width = oWin.PosSize.Width
		.Height = oWin.PosSize.Height
	End With
	
	GetActFrmPos = aRectVal
Exit Function
ScrErr:
	MsgBox "Formular-Pos. konnte nicht ermittelt werden!", MB_ICONSTOP, "Func. 'GetActFrmPos'"
End Function

Code: Alles auswählen

  Dim bFloatingTBs As Boolean, iYOffset As Integer, iXOffset As Integer, iToolbarPos() As Integer
  Dim aTBarPos As New com.sun.star.awt.Point, aFormPos As New com.sun.star.awt.Rectangle

  ' Schalter um Symbolleisten schweben zu lassen (oder nicht):
  bFloatingTBs = True

  ' Horizal- und Vertikal-Offset von links bzw. von oben fuer alle Symbolleisten:
  iXOffset = 500
  iYOffset = 2

  ' Array mit allen horizontalen Positionen der unten definierten Symolleisten zusammenstellen:
  iToolbarPos = Array(0,460,830)

  ' Array mit allen interessierenden Symolleisten-Namen (ausser Menubar) zusammenstellen:
  sToolbarName = Array("formdesign","formcontrols","moreformcontrols")

  ' Fensterposition des Formulars mit der Funktion "GetActFrmPos" ermitteln:
  If bFloatingTBs Then aFormPos = GetActFrmPos(oCurrCtrl)


  ' In die Schleife, mit der die Symbolleisten angezeigt werden, folgendes einfuegen:

       If bFloatingTBs Then 
          ' Moeglicherweise zuvor angedockte Symbolleiste jetzt frei schweben lassen:
          oLayoutMan.floatWindow(sResource)
          ' ... und relativ zum aktuellen Formular positionieren:
          With aTBarPos
            .X = (aFormPos.X * -1) + iXOffset + iToolbarPos(n)
            .Y = (aFormPos.Y * -1) + iYOffset
          End With
          oLayoutMan.setElementPos(sResource,aTBarPos)
      EndIf

  ' Lineale im Formular-Entwurf sind auch so 'ne dolle Sache - ich will's nicht:
       With oFrmObj.ViewSettings
           .ShowHoriRuler = False
           .ShowVertRuler = False
       End With