Hi all.

I am trying to emulate a togglebutton/checkbox in a custom toolbar. Right now I have settled for having two toolbar buttons with different icons. Only one of them is visible and when it's pressed it toggles the visibility of both buttons using the code below (which sets visibility of a single button with a given label).

It works OK but only as long as the user doesn't fiddle with button visibility :-). Is there a way of changing a toolbar button's icon directly from Basic code ? I could not figure out how to do it.

Kind regards
-- Jan Holst Jensen

Sub SetToolbarButtonVisible(ToolbarURL as String, ButtonLabel as String, Visibility as Boolean)
 Dim LayoutMgr as Variant
 Dim Toolbar as Variant
 Dim ToolbarSettings as Variant

 LayoutMgr = ThisComponent.GetCurrentController().GetFrame().LayoutManager
 Toolbar = LayoutMgr.GetElement(ToolbarURL)
 Toolbar.Persistent = False
 ToolbarSettings = Toolbar.GetSettings(True)

 Dim I, J as Integer
 Dim ButtonCount as Integer
 Dim ButtonFound as Boolean

 ButtonCount = ToolbarSettings.GetCount()
 For I = 0 To ButtonCount - 1
   ButtonFound = False

   Dim ToolbarButtonProps()
   ToolbarButtonProps() = ToolbarSettings.GetByIndex(I)
   For J = 0 To UBound(ToolbarButtonProps())
If ToolbarButtonProps(J).Name = "Label" and ToolbarButtonProps(J).Value = ButtonLabel Then
       ButtonFound = True
     End If
If ButtonFound Then
     For J = 0 To UBound(ToolbarButtonProps())
       If ToolbarButtonProps(J).Name = "IsVisible" Then
         ToolbarButtonProps(J).Value = Visibility
       End If
     ' Write properties back - ToolbarButtonProps() is a local copy(!).
     ToolbarSettings.ReplaceByIndex(I, ToolbarButtonProps)
   End If

 Toolbar.SetSettings( ToolbarSettings )
End Sub

Reply via email to