Problem mit FastColoredTextBox

  • VB.NET

Es gibt 22 Antworten in diesem Thema. Der letzte Beitrag () ist von nafets3646.

    Ich möchte, dass wenn jemand irgendwelchen Schrott hinschreibt, dass es so aussieht:

    Mir geht es also um die blaue Linie.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „nafets3646“ ()

    Soo, ich habe es jetzt geschafft, einen Style zu schreiben, welcher mir die gewellte Linie wie gewollt zeichnet, jetzt muss ich nur noch wissen, wie man den Style auf eine ganz bestimmte Position im Text anwenden kann.
    UnderlinedStyle

    VB.NET-Quellcode

    1. Friend Class UnderlinedStyle
    2. Inherits Style
    4. Public Property ForeBrush As Brush
    5. Public Property BackgroundBrush As Brush
    6. Public Property FontStyle As FontStyle
    8. Public Property ExcludeWhitespaceAtStart As Boolean = True
    10. Public Property ExcludeCommentsAndWhitespaceAtEnd As Boolean = True
    12. Public Property WaveColor As Color = Color.Blue
    14. Private WavePens As New List(Of IEnumerable(Of Tuple(Of Single(), Integer, Integer))) From { _
    15. {{Tuple.Create({1.0!, 5.0!}, 255, 0), Tuple.Create({1.0!, 3.0!, 1.0!, 1.0!}, 128, 1)}}, _
    16. {{Tuple.Create({2.0!, 1.0!}, 128, 1)}}, _
    17. {{Tuple.Create({1.0!, 5.0!}, 255, 3), Tuple.Create({1.0!, 1.0!, 1.0!, 3.0!}, 128, 2)}} _
    18. }
    19. Public Overrides Sub Draw(gr As Graphics, position As Point, range As Range)
    20. If BackgroundBrush IsNot Nothing Then
    21. gr.FillRectangle(BackgroundBrush, position.X, position.Y, (range.[End].iChar - range.Start.iChar) * range.tb.CharWidth, range.tb.CharHeight)
    22. End If
    24. Dim Y As Single = position.Y
    25. Dim X As Single = position.X
    26. Dim Width As Single = (range.End.iChar - range.Start.iChar + 4) * range.tb.CharWidth
    27. Dim OffsetLeft As Single = 0
    28. Dim OffsetRight As Single = 0
    30. If Me.ExcludeWhitespaceAtStart Then 'Whitespace am Anfang erkennen
    31. For Each c In range.Chars
    32. If Char.IsWhiteSpace(c.c) Then
    33. OffsetLeft += range.tb.CharWidth
    34. Else
    35. Exit For
    36. End If
    37. Next
    38. End If
    40. If Me.ExcludeCommentsAndWhitespaceAtEnd Then 'Kommentare und Whitespace am Ende erkennen
    41. Dim CommentDetected As Boolean = False
    42. For X1 As Integer = 0 To range.Chars.Count - 1
    43. If (Not CommentDetected) AndAlso range.Chars(X1).c = "'"c Then
    44. CommentDetected = True
    45. For X2 As Integer = X1 - 1 To 0 Step -1
    46. If Char.IsWhiteSpace(range.Chars(X2).c) Then
    47. OffsetRight += range.tb.CharWidth
    48. Else
    49. Exit For
    50. End If
    51. Next
    52. End If
    53. If CommentDetected Then OffsetRight += range.tb.CharWidth
    54. Next
    56. If Not CommentDetected Then
    57. For X1 As Integer = range.Chars.Count - 1 To 0 Step -1
    58. If Char.IsWhiteSpace(range.Chars(X1).c) Then
    59. OffsetRight += range.tb.CharWidth
    60. Else
    61. Exit For
    62. End If
    63. Next
    64. End If
    65. End If
    67. 'Linie zeichnen
    68. If Width - OffsetLeft - OffsetRight - range.tb.CharWidth * 3 > 0 AndAlso Not range.Text.StartsWith("'"c) Then
    69. For Y1 As Integer = 0 To 2
    70. For Each t In WavePens(Y1)
    71. gr.DrawLine(New Pen(Color.FromArgb(t.Item2, WaveColor)) With {.DashPattern = t.Item1}, New PointF(X + t.Item3 + OffsetLeft, Y + Y1 + range.tb.CharHeight), New PointF(Width - OffsetRight, Y + Y1 + range.tb.CharHeight))
    72. Next
    73. Next
    74. End If
    75. End Sub
    77. End Class

Facebook
Telefonspende