FormattedText BuildGeometry zusammen mit StreamGeometry wird nicht richtig dargestellt

  • VB.NET
  • .NET (FX) 4.5–4.8

    FormattedText BuildGeometry zusammen mit StreamGeometry wird nicht richtig dargestellt

    Hallo zusammen,

    bin gerade am Verzweifeln, ich möchte gerne eine Linie zeichnen und in der MItte ein Text darstellen, kann ja eigentlich nicht so schwer sein. So dachte ich :(

    Momentan bin ich soweit, das ich den Text und die Linie in einzelnen Paths habe, wenn ich aber beide zu einem Grid hinzufüge, wird nur die Linie angezeigt.

    Quellcode

    1. Dim tmpGrid as New Grid
    2. Dim tmpPath_Line1 As New System.Windows.Shapes.Path()
    3. Dim tmpgeometry_1 As New StreamGeometry()
    4. tmpPath_Line1.Stroke = Brushes.Black
    5. tmpPath_Line1.StrokeThickness = 1
    6. Using tmpGrafik_Line1 As StreamGeometryContext = tmpgeometry_1.Open()
    7. tmpGrafik_Line1.BeginFigure(New Point(5,5), True, False)
    8. tmpGrafik_Line1.LineTo(New Point(5,30), True, False)
    9. End Using
    10. tmpPath_Line1.Data = tmpgeometry_1
    11. tmpGrid.Children.Add(tmpPath_Line1)
    12. Dim tmpPath_Text1 As New System.Windows.Shapes.Path()
    13. tmpPath_Text1.Stroke = Bruses.Black
    14. tmpPath_Text1.StrokeThickness = 0.05
    15. Dim tmptext = New FormattedText("12", CultureInfo.GetCultureInfo("de-DE"), FlowDirection.LeftToRight, New Typeface("Arial"), 16, Brushes.Black)
    16. tmptext.SetFontSize(0.4 * (96.0 / 72.0), 0, 2)
    17. tmpPath_Text1.Width = 10
    18. tmpPath_Text1.Height = 10
    19. tmpPath_Text1.Data = tmptext.BuildGeometry(New Point(10, 10))
    20. tmpGrid.Children.Add(tmpPath_Text1)


    Wenn ich die Linie und den Text einzeln Anzeige, werden diese ohne Probleme angezeigt. Nur wenn ich beide zufüge, ist nur die Linie zu sehen.

    Hat jemand eine Idee ?

    BIG THX und schonmal schöne Weihnachtsfeiertage zusammen