GDI+ Zeichnung wird extrem unscharf/unsauber

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

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von mrMo.

    GDI+ Zeichnung wird extrem unscharf/unsauber

    Hallo.

    Ich habe eine Klassenbibliothek, in der ich mir gerade selbst ein paar Controls am erstellen bin. Soweit so gut.
    In einer Windows-Forms Anwendung erbe ich die Controls aus der Klassenbibliothek (u.A. auch die Form).

    Jetzt sieht im Designer alles wirklich super aus - wenn ich das Programm starte
    jedoch nicht. Alles wirkt unscharf, schlecht gezeichnet. Selbst die "originalen" mit dem .Net Framework
    mitgelieferten Controls sehen auf der Form beim gestarteten Programm unscharf aus.


    Ich habe mir bereits einige Threads angesehen zu diesem Thema, denke jedoch, dass
    irgendwie mein Code noch optimierung benötigt.

    Kann mir da jemand was zu sagen?

    Mein Code:


    VB.NET-Quellcode

    1. Public Class SiriContainer : Inherits ContainerControl
    2. Private moveHeight As Integer = 38
    3. Private formCanMove As Boolean = False
    4. Private mouseX, mouseY As Integer
    5. Private overExit, overMin As Boolean
    7. Public Overrides Property Text() As String
    8. Get
    9. Return MyBase.Text
    10. End Get
    11. Set(value As String)
    12. MyBase.Text = value
    13. Invalidate()
    14. End Set
    15. End Property
    17. Sub New()
    18. SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or
    19. ControlStyles.UserPaint Or ControlStyles.ResizeRedraw Or ControlStyles.SupportsTransparentBackColor Or ControlStyles.FixedHeight, True)
    20. MyBase.Update()
    21. Dock = DockStyle.Fill
    22. Font = New Font("Arial", 9, FontStyle.Bold)
    23. BackColor = Color.FromArgb(15, 15, 15)
    24. End Sub
    26. Protected Overrides Sub CreateHandle()
    27. MyBase.CreateHandle()
    28. FindForm.FormBorderStyle = FormBorderStyle.None
    29. If FindForm.TransparencyKey = Nothing Then FindForm.TransparencyKey = Color.Fuchsia
    30. End Sub
    32. Protected Overrides Sub OnPaint(e As System.Windows.Forms.PaintEventArgs)
    33. MyBase.OnPaint(e)
    35. Dim G As Graphics = e.Graphics
    36. G.SmoothingMode = SmoothingMode.HighSpeed
    37. G.TextRenderingHint = System.Drawing.Text.TextRenderingHint.ClearTypeGridFit
    38. G.Clear(FindForm.TransparencyKey)
    40. Dim slope As Integer = 8
    42. Dim mainRect As New Rectangle(0, 0, Width - 1, Height - 1)
    43. Dim mainPath As GraphicsPath = DrawIt.RoundRect(mainRect, slope)
    44. G.FillPath(New SolidBrush(BackColor), mainPath)
    45. G.DrawPath(New Pen(Color.FromArgb(30, 35, 45)), mainPath)
    46. G.FillPath(New SolidBrush(Color.FromArgb(30, 30, 40)), DrawIt.RoundRect(New Rectangle(0, 0, Width - 1, moveHeight - slope), slope))
    47. G.FillRectangle(New SolidBrush(Color.FromArgb(30, 30, 40)), New Rectangle(0, moveHeight - (slope * 2), Width - 1, slope * 2))
    48. G.DrawLine(New Pen(Color.FromArgb(60, 60, 60)), New Point(1, moveHeight), New Point(Width - 2, moveHeight))
    49. G.SmoothingMode = SmoothingMode.HighQuality
    51. Dim textX As Integer = 6
    52. Dim textY As Integer = CInt((moveHeight / 2) - (G.MeasureString(Text, Font).Height / 2) + 1)
    53. Dim textSize As SizeF = G.MeasureString(Text, Font)
    54. Dim textRect As New Rectangle(textX, textY, CInt(textSize.Width), CInt(textSize.Height))
    55. Dim textBrush As New LinearGradientBrush(textRect, Color.FromArgb(185, 190, 195), Color.FromArgb(125, 125, 125), 90.0F)
    56. G.DrawString(Text, Font, textBrush, New Point(textX, textY))
    58. If overExit Then
    59. G.DrawString("r", New Font("Marlett", 12, FontStyle.Bold), New SolidBrush(Color.FromArgb(253, 96, 96)), New Point(Width - 27, 11))
    60. Else
    61. G.DrawString("r", New Font("Marlett", 12, FontStyle.Bold), New SolidBrush(Color.FromArgb(205, 210, 215)), New Point(Width - 27, 11))
    62. End If
    63. If overMin Then
    64. G.DrawString("0", New Font("Marlett", 12, FontStyle.Bold), New SolidBrush(Color.FromArgb(25, 100, 140)), New Point(Width - 47, 10))
    65. Else
    66. G.DrawString("0", New Font("Marlett", 12, FontStyle.Bold), New SolidBrush(Color.FromArgb(205, 210, 215)), New Point(Width - 47, 10))
    67. End If
    68. End Sub
    70. Protected Overrides Sub OnMouseMove(e As System.Windows.Forms.MouseEventArgs)
    71. MyBase.OnMouseMove(e)
    73. If formCanMove Then
    74. FindForm.Location = New Point(MousePosition.X - mouseX, MousePosition.Y - mouseY)
    75. End If
    77. overExit = (e.Y > 11 AndAlso e.Y < 24) AndAlso (e.X > Width - 23 AndAlso e.X < Width - 10)
    78. overMin = (e.Y > 11 AndAlso e.Y < 24) AndAlso (e.X > Width - 44 AndAlso e.X < Width - 31)
    79. Invalidate()
    81. End Sub
    83. Protected Overrides Sub OnMouseDown(e As System.Windows.Forms.MouseEventArgs)
    84. MyBase.OnMouseDown(e)
    86. mouseX = e.X
    87. mouseY = e.Y
    89. If e.Y <= moveHeight AndAlso overExit = False AndAlso overMin = False Then formCanMove = True
    91. If overExit Then
    92. FindForm.Close()
    93. ElseIf overMin Then
    94. FindForm.WindowState = FormWindowState.Minimized
    95. overExit = False
    96. overMin = False
    97. Else
    98. Focus()
    99. End If
    101. Invalidate()
    103. End Sub
    105. Protected Overrides Sub OnMouseUp(e As System.Windows.Forms.MouseEventArgs)
    106. MyBase.OnMouseUp(e)
    107. formCanMove = False
    108. End Sub
    110. End Class

    Evtl. gleiches Problem wie hier gelöst: Komplette Form ist unscharf
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

Facebook
Telefonspende