ToolbarFormControl.UnMerge Event

Fires after title bars are unmerged.

Namespace: DevExpress.XtraBars.ToolbarForm

Assembly: DevExpress.XtraBars.v23.2.dll

NuGet Package: DevExpress.Win.Navigation

Declaration

C#

[DXCategory("Merge")]
public event ToolbarFormMergeEventHandler UnMerge

VB.NET

<DXCategory("Merge")>
Public Event UnMerge As ToolbarFormMergeEventHandler

Event Data

The UnMerge event's data class is ToolbarFormMergeEventArgs. The following properties provide information specific to this event:

Property	Description
MergedChild	Provides access to the child form’s title bar.
MergeOwner	Provides access to the parent form’s title bar.

Remarks

In an MDI application, when a child toolbar form is maximized, its bar items in the title bar are merged with the parent form’s bar items. Use the MdiMergeStyle property to specify whether bar items are merged when a child form is maximized, focused, or never merged.

The parent and child title bars fire the Merge and UnMerge events after the bar items are merged.

Example

If the parent form and a child form contain bar items with equal captions (for example, File), you can remove the duplicated command from the merged title bar as the code below demonstrates.

C#

private void ToolbarFormControl1_Merge(object sender, DevExpress.XtraBars.ToolbarForm.ToolbarFormMergeEventArgs e) {
    e.MergeOwner.TitleItemLinks
        .GroupBy(x => x.Caption)
        .Where(x => x.Count() > 1)
        .ForEach(x => x
        .ForEach(y => {
            if (e.MergedChild.TitleItemLinks.Where(z => z.Item == y.Item).Count() != 0)
                y.Visible = false;
        }));
}

VB.NET

Private Sub ToolbarFormControl1_Merge(ByVal sender As Object, ByVal e As DevExpress.XtraBars.ToolbarForm.ToolbarFormMergeEventArgs) _
    Handles toolbarFormControl1.Merge
    e.MergeOwner.TitleItemLinks.GroupBy(Function(x) x.Caption).Where(Function(x) x.Count() > 1).ForEach(Sub(x) x.ForEach(Sub(y)
        If e.MergedChild.TitleItemLinks.Where(Function(z) z.Item.Equals(y.Item)).Count() <> 0 Then
            y.Visible = False
        End If
    End Sub))
End Sub