Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinToolbars
Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
Debug.WriteLine("Checking for non-default settings on all toolbars ----------------------------")
Debug.IndentLevel += 1
Dim toolbar As UltraToolbar
For Each toolbar In Me.UltraToolbarsManager1.Toolbars
Debug.WriteLine("Non-default settings for toolbar '" + toolbar.Key + "'")
Debug.IndentLevel += 1
If (toolbar.Settings.AllowCustomize <> Me.UltraToolbarsManager1.ToolbarSettings.AllowCustomize) Then
Debug.WriteLine("AllowCustomize: " + toolbar.SettingsResolved.AllowCustomizeResolved.ToString())
End If
If (toolbar.Settings.AllowDockBottom <> Me.UltraToolbarsManager1.ToolbarSettings.AllowDockBottom) Then
Debug.WriteLine("AllowDockBottom: " + toolbar.SettingsResolved.AllowDockBottomResolved.ToString())
End If
If (toolbar.Settings.AllowDockLeft <> Me.UltraToolbarsManager1.ToolbarSettings.AllowDockLeft) Then
Debug.WriteLine("AllowDockLeft: " + toolbar.SettingsResolved.AllowDockLeftResolved.ToString())
End If
If (toolbar.Settings.AllowDockRight <> Me.UltraToolbarsManager1.ToolbarSettings.AllowDockRight) Then
Debug.WriteLine("AllowDockRight: " + toolbar.SettingsResolved.AllowDockRightResolved.ToString())
End If
If (toolbar.Settings.AllowDockTop <> Me.UltraToolbarsManager1.ToolbarSettings.AllowDockTop) Then
Debug.WriteLine("AllowDockTop: " + toolbar.SettingsResolved.AllowDockTopResolved.ToString())
End If
If (toolbar.Settings.AllowFloating <> Me.UltraToolbarsManager1.ToolbarSettings.AllowFloating) Then
Debug.WriteLine("AllowFloating: " + toolbar.SettingsResolved.AllowFloatingResolved.ToString())
End If
If (toolbar.Settings.AllowHiding <> Me.UltraToolbarsManager1.ToolbarSettings.AllowHiding) Then
Debug.WriteLine("AllowHiding: " + toolbar.SettingsResolved.AllowHidingResolved.ToString())
End If
If (toolbar.Settings.BorderStyleDocked <> Me.UltraToolbarsManager1.ToolbarSettings.BorderStyleDocked) Then
Debug.WriteLine("BorderStyleDocked: " + toolbar.SettingsResolved.BorderStyleDockedResolved.ToString())
End If
If (toolbar.Settings.CaptionPlacement <> Me.UltraToolbarsManager1.ToolbarSettings.CaptionPlacement) Then
Debug.WriteLine("CaptionPlacement: " + toolbar.SettingsResolved.CaptionPlacementResolved.ToString())
End If
If (toolbar.Settings.FillEntireRow <> Me.UltraToolbarsManager1.ToolbarSettings.FillEntireRow) Then
Debug.WriteLine("FillEntireRow: " + toolbar.SettingsResolved.FillEntireRowResolved.ToString())
End If
If (toolbar.Settings.GrabHandleStyle <> Me.UltraToolbarsManager1.ToolbarSettings.GrabHandleStyle) Then
Debug.WriteLine("GrabHandleStyle: " + toolbar.SettingsResolved.GrabHandleStyleResolved.ToString())
End If
If (toolbar.Settings.PaddingBottom <> Me.UltraToolbarsManager1.ToolbarSettings.PaddingBottom) Then
Debug.WriteLine("PaddingBottom: " + toolbar.SettingsResolved.PaddingBottomResolved.ToString())
End If
If (toolbar.Settings.PaddingLeft <> Me.UltraToolbarsManager1.ToolbarSettings.PaddingLeft) Then
Debug.WriteLine("PaddingLeft: " + toolbar.SettingsResolved.PaddingLeftResolved.ToString())
End If
If (toolbar.Settings.PaddingRight <> Me.UltraToolbarsManager1.ToolbarSettings.PaddingRight) Then
Debug.WriteLine("PaddingRight: " + toolbar.SettingsResolved.PaddingRightResolved.ToString())
End If
If (toolbar.Settings.PaddingTop <> Me.UltraToolbarsManager1.ToolbarSettings.PaddingTop) Then
Debug.WriteLine("PaddingTop: " + toolbar.SettingsResolved.PaddingTopResolved.ToString())
End If
If (toolbar.Settings.ToolDisplayStyle <> Me.UltraToolbarsManager1.ToolbarSettings.ToolDisplayStyle) Then
Debug.WriteLine("ToolDisplayStyle: " + toolbar.SettingsResolved.ToolDisplayStyleResolved.ToString())
End If
If (toolbar.Settings.ToolSpacing <> Me.UltraToolbarsManager1.ToolbarSettings.ToolSpacing) Then
Debug.WriteLine("ToolSpacing: " + toolbar.SettingsResolved.ToolSpacingResolved.ToString())
End If
Debug.IndentLevel -= 1
Next
Debug.IndentLevel -= 1
End Sub