BufferedGraphics - Schnell zeichnen ohne Flimmern

    • VB.NET

      BufferedGraphics - Schnell zeichnen ohne Flimmern

      Hi
      Die Frage, wie man ohne Flimmern zeichnet, wurde inzwischen schon vielfach gestellt. Jetzt habe ich mich entschlossen, einen Code zu veröffentlichen, der das Problem behebt. Die nachfolgende Klasse soll nur veranschaulichen, wie die Buffered-Graphics-Klasse funktioniert und ist nicht optimal gecodet, zeigt aber auf, wie der Fehler zu Behandeln ist.

      VB.NET-Quellcode

      1. Public NotInheritable Class Rendering
      2. Private bgcContext As BufferedGraphicsContext 'Erzeugt den buffer
      3. Private clrBackColor As Color = Color.Black 'Hintergrundfarbe
      5. Public Property BackColor() As Color
      6. Get
      7. Return clrBackColor
      8. End Get
      9. Set(ByVal value As Color)
      10. clrBackColor = value
      11. End Set
      12. End Property
      14. Public Sub Render(ByVal surface As Graphics)
      15. 'erzeugt das BufferedGraphics-Objekt für ein Graphics-Objekt
      16. Dim bg As BufferedGraphics = bgcContext.Allocate(surface, Rectangle.Round(surface.ClipBounds))
      17. Draw(bg)
      18. bg.Render()
      19. bg.Dispose()
      20. End Sub
      22. Public Sub Render(ByVal surface As Graphics, ByVal clipRectangle As Rectangle)
      23. 'erzeugt das BufferedGraphics-Objekt für ein Graphics-Objekt
      24. Dim bg As BufferedGraphics = bgcContext.Allocate(surface, Rectangle.Round(clipRectangle))
      25. Draw(bg)
      26. bg.Render()
      27. bg.Dispose()
      28. End Sub
      30. Public Sub Render(ByVal deviceContext As IDeviceContext, ByVal clipRectangle As Rectangle)
      31. 'erzeugt das BufferedGraphics-Objekt für ein DeviceContext-Objekt
      32. Dim bg As BufferedGraphics = bgcContext.Allocate(deviceContext.GetHdc, clipRectangle)
      34. Draw(bg)
      35. bg.Render()
      36. bg.Dispose()
      37. deviceContext.ReleaseHdc()
      38. End Sub
      40. Private Sub Draw(ByVal bufferedSurface As BufferedGraphics)
      41. With bufferedSurface.Graphics
      42. 'zeichnen
      43. .Clear(clrBackColor)
      44. .FillEllipse(Brushes.Blue, 100, 100, 10, 10)
      45. End With
      46. End Sub
      48. Public Sub New()
      49. bgcContext = BufferedGraphicsManager.Current
      50. End Sub
      52. Public Sub New(ByVal context As BufferedGraphicsContext)
      53. bgcContext = context
      54. End Sub
      55. End Class


      Zum Zeichnen einfach eine Instanz der Klasse erstellen und die Render-Methode aufrufen.

      Eine Veranschaulichung befindet sich im Anhang.
      Die BallsNormal.exe-Datei zeigt das Problem von GDI+, die BallsBuffered.exe-Datei ist mithilfe der BufferedGraphics-Klasse optimiert worden.

      Gruß
      ~blaze~
      Dateien

      Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „~blaze~“ () aus folgendem Grund: Rechtschreibung ausgebessert; Negative Formulierung ausgebessert; Release()-Aufruf bei der Render(IDeviceContext, Rectangle)-Prozedur

    Facebook