Returns the extended style target text or sets it.

Type Info:

 
ExtendedStyleTarget As String
Example: 
Dim Dlg As Win32StyleDialog
Dim TU As TransUnit
Dim TempTU As TransUnit
Dim StyleTU As TransUnit
Dim ExStyleTU As TransUnit
Dim Grp As Group
Dim ParentNode As Long

Set TU = Application.ActiveTransUnit
Set Dlg = Application.Tools.RestypeEditors.Win32StyleDialog

If ((TU.Restype = "x-exstyle") Or (TU.Restype = "x-style")) Then
    ParentNode = TU.ParentNode
    If (TU.ProjectFile.IsGroup(ParentNode)) Then
        Set Grp = TU.ProjectFile.GetGroup(ParentNode)
        
        For Each TempTU In Grp.TransUnits
            If (TempTU.Restype = "x-style") Then
                Call Dlg.SetStyleSource(TempTU.Source)
                Dlg.StyleTarget = TempTU.target
                Set StyleTU = TempTU
            End If
            If (TempTU.Restype = "x-exstyle") Then
                Call Dlg.SetExtendedStyleSource(TempTU.Source)
                Dlg.ExtendedStyleTarget = TempTU.target
                Set ExStyleTU = TempTU
            End If
        Next TempTU
        
        Call Dlg.SetRestype(Grp.Restype)
        If (Dlg.Show) Then
            If Not (StyleTU Is Nothing) Then
                StyleTU.target = Dlg.StyleTarget
            End If
            If Not (ExStyleTU Is Nothing) Then
                ExStyleTU.target = Dlg.ExtendedStyleTarget
            End If
        End If
    End If
End If
See also:

Class Win32StyleDialog
Last Updated: 12/08/04