Procedure: Een tekstdecoratie maken

Een TextDecoration object is een visuele ornamentatie die u aan tekst kunt toevoegen. Er zijn vier soorten tekstdecoraties: onderstreping, basislijndecoratie, doorhalen en bovenstreping. In het volgende voorbeeld ziet u de locaties van de tekstdecoraties ten opzichte van de tekst.

Als u een tekstdecoratie wilt toevoegen aan tekst, maakt u een TextDecoration object en wijzigt u de eigenschappen ervan. Gebruik de eigenschap Location om op te geven waar de tekstversiering wordt weergegeven, zoals onderstrepen. Gebruik de eigenschap Pen om het uiterlijk van de tekstdecoratie op te geven, zoals een effen opvulling of kleurovergang. Als u geen waarde opgeeft voor de eigenschap Pen, worden de decoraties standaard ingesteld op dezelfde kleur als de tekst. Nadat u een TextDecoration-object hebt gedefinieerd, voegt u het toe aan de TextDecorations verzameling van het gewenste tekstobject.

Het volgende voorbeeld toont een tekstdecoratie die is gestijld met een lineaire verloopborstel en een streepjespen.

Het Hyperlink-object is een inhoudselement op inlineniveau waarmee u hyperlinks binnen de stroominhoud kunt hosten. Standaard gebruikt Hyperlink een TextDecoration-object om een onderstreping weer te geven. TextDecoration objecten kunnen prestatieintensief zijn om te instantiëren, met name als u veel Hyperlink objecten hebt. Als u uitgebreide gebruik maakt van Hyperlink elementen, kunt u overwegen alleen een onderstreping weer te geven wanneer een gebeurtenis wordt geactiveerd, zoals de MouseEnter gebeurtenis.

In het volgende voorbeeld is de onderstreping voor de koppeling 'Mijn MSN' dynamisch. Deze wordt alleen weergegeven wanneer de MouseEnter gebeurtenis wordt geactiveerd.

Zie Opgeven of een hyperlink is onderstreeptvoor meer informatie.

Voorbeeld

In het volgende codevoorbeeld gebruikt een onderstrepingstekstversiering de standaardlettertypewaarde.

// Use the default font values for the strikethrough text decoration.
private void SetDefaultStrikethrough()
{
    // Set the underline decoration directly to the text block.
    TextBlock1.TextDecorations = TextDecorations.Strikethrough;
}

' Use the default font values for the strikethrough text decoration.
Private Sub SetDefaultStrikethrough()
    ' Set the underline decoration directly to the text block.
    TextBlock1.TextDecorations = TextDecorations.Strikethrough
End Sub

<!-- Use the default font values for the strikethrough text decoration. -->
<TextBlock
  TextDecorations="Strikethrough"
  FontSize="36" >
  The quick red fox
</TextBlock>

In het volgende codevoorbeeld wordt een tekstdecoratie met onderstreping gemaakt met een effen gekleurde kwast voor de pen.

// Use a Red pen for the underline text decoration.
private void SetRedUnderline()
{
    // Create an underline text decoration. Default is underline.
    TextDecoration myUnderline = new TextDecoration();

    // Create a solid color brush pen for the text decoration.
    myUnderline.Pen = new Pen(Brushes.Red, 1);
    myUnderline.PenThicknessUnit = TextDecorationUnit.FontRecommended;

    // Set the underline decoration to a TextDecorationCollection and add it to the text block.
    TextDecorationCollection myCollection = new TextDecorationCollection();
    myCollection.Add(myUnderline);
    TextBlock2.TextDecorations = myCollection;
}

' Use a Red pen for the underline text decoration.
Private Sub SetRedUnderline()
    ' Create an underline text decoration. Default is underline.
    Dim myUnderline As New TextDecoration()

    ' Create a solid color brush pen for the text decoration.
    myUnderline.Pen = New Pen(Brushes.Red, 1)
    myUnderline.PenThicknessUnit = TextDecorationUnit.FontRecommended

    ' Set the underline decoration to a TextDecorationCollection and add it to the text block.
    Dim myCollection As New TextDecorationCollection()
    myCollection.Add(myUnderline)
    TextBlock2.TextDecorations = myCollection
End Sub

<!-- Use a Red pen for the underline text decoration -->
<TextBlock
  FontSize="36" >
  jumps over
  <TextBlock.TextDecorations>
    <TextDecorationCollection>
      <TextDecoration 
        PenThicknessUnit="FontRecommended">
        <TextDecoration.Pen>
          <Pen Brush="Red" Thickness="1" />
        </TextDecoration.Pen>
      </TextDecoration>
    </TextDecorationCollection>
  </TextBlock.TextDecorations>
</TextBlock>

In het volgende codevoorbeeld wordt een tekstonderstreping gemaakt met een lineair kleurverlooppenseel voor de gestippelde pen.

// Use a linear gradient pen for the underline text decoration.
private void SetLinearGradientUnderline()
{
    // Create an underline text decoration. Default is underline.
    TextDecoration myUnderline = new TextDecoration();

    // Create a linear gradient pen for the text decoration.
    Pen myPen = new Pen();
    myPen.Brush = new LinearGradientBrush(Colors.Yellow, Colors.Red, new Point(0, 0.5), new Point(1, 0.5));
    myPen.Brush.Opacity = 0.5;
    myPen.Thickness = 1.5;
    myPen.DashStyle = DashStyles.Dash;
    myUnderline.Pen = myPen;
    myUnderline.PenThicknessUnit = TextDecorationUnit.FontRecommended;

    // Set the underline decoration to a TextDecorationCollection and add it to the text block.
    TextDecorationCollection myCollection = new TextDecorationCollection();
    myCollection.Add(myUnderline);
    TextBlock3.TextDecorations = myCollection;
}

' Use a linear gradient pen for the underline text decoration.
Private Sub SetLinearGradientUnderline()
    ' Create an underline text decoration. Default is underline.
    Dim myUnderline As New TextDecoration()

    ' Create a linear gradient pen for the text decoration.
    Dim myPen As New Pen()
    myPen.Brush = New LinearGradientBrush(Colors.Yellow, Colors.Red, New Point(0, 0.5), New Point(1, 0.5))
    myPen.Brush.Opacity = 0.5
    myPen.Thickness = 1.5
    myPen.DashStyle = DashStyles.Dash
    myUnderline.Pen = myPen
    myUnderline.PenThicknessUnit = TextDecorationUnit.FontRecommended

    ' Set the underline decoration to a TextDecorationCollection and add it to the text block.
    Dim myCollection As New TextDecorationCollection()
    myCollection.Add(myUnderline)
    TextBlock3.TextDecorations = myCollection
End Sub

<!-- Use a linear gradient pen for the underline text decoration. -->
<TextBlock FontSize="36">the lazy brown dog.
  <TextBlock.TextDecorations>
    <TextDecorationCollection>
      <TextDecoration  
        PenThicknessUnit="FontRecommended">
        <TextDecoration.Pen>
          <Pen Thickness="1.5">
            <Pen.Brush>
              <LinearGradientBrush Opacity="0.5"
                StartPoint="0,0.5"  EndPoint="1,0.5">
                <LinearGradientBrush.GradientStops>
                  <GradientStop Color="Yellow" Offset="0" />
                  <GradientStop Color="Red" Offset="1" />
                </LinearGradientBrush.GradientStops>
              </LinearGradientBrush>
            </Pen.Brush>
            <Pen.DashStyle>
              <DashStyle Dashes="2"/>
            </Pen.DashStyle>
          </Pen>
        </TextDecoration.Pen>
      </TextDecoration>
    </TextDecorationCollection>
  </TextBlock.TextDecorations>
</TextBlock>

Zie ook

• TextDecoration
• Hyperlink
• opgeven of een hyperlink is onderstreept