GDI Controltechniken

    • VB.NET

    Es gibt 15 Antworten in diesem Thema. Der letzte Beitrag () ist von LaMiy.

      GDI Controltechniken

      Ich habe dieses Thema mal in "GDI Controltechniken" geändert, da ich es doch irgendwie sinnvoller halte, mehr solche Techniker zu erklären.
      Die alten Codes befinden sich unten.

      1. Timer im Designer laufen lassen.
      Spoiler anzeigen

      Theorie:
      Wie möchten bei unserem Control gerne eine Visualisierung im Designer laufen lassen. Dazu können wir einen Timer benutzen, den wir im Designer starten.
      Mehr ist es eigentlich nicht. Hier ein simples Beispiel.

      VB.NET-Quellcode

      1. Option Strict On
      3. Public Class Progress
      4. Inherits Control
      6. Private WithEvents timer As New Timer With {.Interval = 10} 'Timer der im Designer läuft
      7. Private _VisualStyle As Style 'Style Private
      8. Public Property Value As Integer = 0 'Die Value
      10. Public Property VisualStyle As Style 'Die Style Property
      11. Get
      12. Return _VisualStyle
      13. End Get
      14. Set(ByVal value As Style)
      15. If value = Style.Normal Then
      17. Else
      18. Me.Value = 0 'Wenn Style = Visuell ist, dann starte den Timer
      19. timer.Start()
      20. End If
      21. End Set
      22. End Property
      24. Enum Style
      25. Normal
      26. Visuell
      27. End Enum
      29. Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
      30. MyBase.OnPaint(e)
      31. e.Graphics.FillRectangle(Brushes.Gainsboro, New Rectangle(0, 0, Me.Width - 1, Me.Height - 1))
      32. e.Graphics.FillRectangle(Brushes.LimeGreen, New Rectangle(0, 0, CInt((Me.Value * Me.Width) / 100), Me.Height))
      33. e.Graphics.DrawRectangle(Pens.Silver, New Rectangle(0, 0, CInt((Me.Value * Me.Width) / 100), Me.Height))
      34. e.Graphics.DrawRectangle(Pens.Silver, New Rectangle(0, 0, Me.Width - 1, Me.Height - 1))
      35. End Sub
      37. Private Sub timer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles timer.Tick
      38. If Me.Value <> 100 Then
      39. Me.Value += 1 'Value erhöhen
      40. Else
      41. timer.Stop()
      42. End If
      43. Me.Invalidate() 'Neu zeichnen
      44. End Sub
      46. Sub New()
      47. Me.DoubleBuffered = True
      48. End Sub
      49. End Class


      2. Mouse-Events
      Spoiler anzeigen

      Theorie: Wir wollen bei MouseEvents im Control selber festlegen, was mit dem Aussehen passieren soll. Dafür wollen wir die Events vom geerbten Control benutzen.

      VB.NET-Quellcode

      1. Public Class Panel
      2. Inherits Control
      4. Private _MouseState As MouseState 'Das Attribut
      6. Public Enum MouseState As Byte 'Die Enumeration
      7. None
      8. Hover
      9. Pressed
      10. End Enum
      12. #Region "Mouse-Events"
      13. Protected Overrides Sub OnMouseEnter(ByVal e As System.EventArgs)
      14. MyBase.OnMouseEnter(e)
      15. Me._MouseState = MouseState.Hover
      16. Me.Invalidate()
      17. End Sub
      18. Protected Overrides Sub OnMouseLeave(ByVal e As System.EventArgs)
      19. MyBase.OnMouseEnter(e)
      20. Me._MouseState = MouseState.None
      21. Me.Invalidate()
      22. End Sub
      23. Protected Overrides Sub OnMouseDown(ByVal mevent As System.Windows.Forms.MouseEventArgs)
      24. MyBase.OnMouseDown(mevent)
      25. Me._MouseState = MouseState.Pressed
      26. Me.Invalidate()
      27. End Sub
      28. Protected Overrides Sub OnMouseUp(ByVal mevent As System.Windows.Forms.MouseEventArgs)
      29. MyBase.OnMouseUp(mevent)
      30. Me._MouseState = MouseState.Hover
      31. Me.Invalidate()
      32. End Sub
      33. #End Region
      35. Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
      36. MyBase.OnPaint(e)
      37. If _MouseState = MouseState.None Then
      38. e.Graphics.FillRectangle(New System.Drawing.Drawing2D.LinearGradientBrush(Me.ClientRectangle, Color.White, Color.White, 10), Me.ClientRectangle)
      39. ElseIf _MouseState = MouseState.Hover Then
      40. e.Graphics.FillRectangle(New System.Drawing.Drawing2D.LinearGradientBrush(Me.ClientRectangle, Color.Gray, Color.Silver, 10), Me.ClientRectangle)
      41. ElseIf _MouseState = MouseState.Pressed Then
      42. e.Graphics.FillRectangle(New System.Drawing.Drawing2D.LinearGradientBrush(Me.ClientRectangle, Color.Blue, Color.DodgerBlue, 10), Me.ClientRectangle)
      43. End If
      44. End Sub
      45. End Class


      3. Farbveränderung (Übergang)
      Spoiler anzeigen

      Theorie: Wir wollen z.B im Click, oder Hover, die Farbe verändern. Wir könnten einfach sagen: "Me.BackColor = Color.X" Das ist aber nicht gerade schön anzusehen.
      Wir wollen also die Farbe gleichmäßig verändern. Dafür bietet uns die Color-Klasse die ARGB-Funktion, mit dessen Hilfe wir kleine Veränderungen realisieren können.

      VB.NET-Quellcode

      1. Option Strict On
      2. Public Class Control_
      3. Inherits Control
      5. Public Property c As Color
      7. Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
      8. MyBase.OnPaint(e)
      9. e.Graphics.FillRectangle(New SolidBrush(c), Me.ClientRectangle)
      10. e.Graphics.DrawRectangle(Pens.DodgerBlue, New Rectangle(0, 0, Me.Width - 1, Me.Height - 1))
      11. End Sub
      13. Sub New()
      14. Me.DoubleBuffered = True
      15. Me.BackColor = Color.White
      16. End Sub
      18. Public WithEvents timer As New Timer With {.Interval = 50}
      20. Private Sub timer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles timer.Tick
      21. If c.A < 255 Then
      22. c = Color.FromArgb((c.A + 5), c.R, c.G, c.B)
      23. Me.Invalidate()
      24. Else
      25. timer.Stop()
      26. End If
      27. End Sub
      28. End Class


      4. Transparenz
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Sub New()
      2. MyBase.SetStyle(ControlStyles.SupportsTransparentBackColor, True)
      3. End Sub
      5. Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
      6. MyBase.OnPaint(e)
      7. e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
      8. e.Graphics.FillPie(Brushes.DodgerBlue, New Rectangle(0, 0, Me.Width, Me.Height), 0, 360)
      9. End Sub
      11. Protected Overrides ReadOnly Property CreateParams() As CreateParams
      12. Get
      13. Dim cp As CreateParams = MyBase.CreateParams
      14. cp.ExStyle = cp.ExStyle Or &H20
      15. 'WS_EX_TRANSPARENT
      16. Return cp
      17. End Get
      18. End Property
      20. Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)
      21. MyBase.OnPaintBackground(pevent)
      22. End Sub
      Dateien

      • Farbeffekt.dll

        (17,41 kB, 199 mal heruntergeladen, zuletzt: )

      Dieser Beitrag wurde bereits 31 mal editiert, zuletzt von „LaMiy“ ()

      Dein Button ist von Button abgeleitet, Deine ListBox von Control.
      Hast Du das Listen der Daten neu erfunden oder ist mir da was entgangen?
      Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
      Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
      Ein guter .NET-Snippetkonverter (der ist verfügbar).
      Programmierfragen über PN / Konversation werden ignoriert!

      LaMiy schrieb:

      Ist das "falsch" ?
      Nein, nur eine Frage, weil doch die ListBox eine Reihe von Funktionalität liefert.
      Du hast als Member eine List(Of String), da kannst Du nicht mal dem @ErfinderDesRades: seine FileInfo von DirectoryInfo reintun.
      Also: Überleg mal, ob Du von ListBox erbst oder eine List(Of Object) reintust.
      Ansonsten Dir ein frohes Fest. :thumbsup:
      Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
      Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
      Ein guter .NET-Snippetkonverter (der ist verfügbar).
      Programmierfragen über PN / Konversation werden ignoriert!

      Ähm - Jedes Control (in winForms) ist mit GDI.
      Was du mit "GDI" meinst, bezeichnet man korrekterweise mit "OwnerDrawing".

      Classic Listbox hat übrigens zusätzlich zum PaintEvent einen weiteren OwnerDrawing-Mechanismus: das DawItem-Event - sehr praktisch.

      Diese Listbox hier ist auch ziemlich unausgegoren: Es gibt zB ein ValueChanged-Event, aber keine Value-Property.
      Oder die anzahl-Property kann von aussen gesetzt werden.

      Es ist auch nix vorgesehen zum Löschen von Item, ja nichtmal abrufen kann man sie.

      Button:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Fertiger Code:
      2. Option Strict On
      3. Imports System.Drawing
      4. Imports System.Drawing.Drawing2D
      5. Imports System.Windows.Forms
      6. Imports System.ComponentModel
      8. Public Class Button
      9. Inherits System.Windows.Forms.Button
      11. Public Enum MouseState As Byte
      12. None
      13. Hover
      14. Pressed
      15. End Enum
      17. Private _MouseState As MouseState
      18. <Category("Style")> _
      19. Public Property colorNoneOne As Color = Color.DimGray
      20. <Category("Style")> _
      21. Public Property colorNoneTwo As Color = Color.DarkGray
      22. <Category("Style")> _
      23. Public Property colorHoverOne As Color = Color.Coral
      24. <Category("Style")> _
      25. Public Property colorHoverTwo As Color = Color.Gainsboro
      26. <Category("Style")> _
      27. Public Property colorPressedOne As Color = Color.White
      28. <Category("Style")> _
      29. Public Property colorPressedTwo As Color = Color.Gray
      30. <Category("Style")> _
      31. Public Property style As System.Drawing.Drawing2D.LinearGradientMode
      32. <Category("Style")> _
      33. Public Property imageBackground As Icon
      36. Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
      37. MyBase.OnPaint(e)
      38. ' install(e)
      39. Dim rect As New Rectangle(0, 0, Me.Width - 1, Me.Height - 1)
      40. Dim recta As New Rectangle(0, 0, Me.Width, Me.Height)
      42. Dim btnSize As Drawing.SizeF = e.Graphics.MeasureString(Me.Text, Me.Font, Me.Width)
      43. If _MouseState = MouseState.None Then
      44. e.Graphics.FillRectangle(New System.Drawing.Drawing2D.LinearGradientBrush(rect, colorNoneOne, colorNoneTwo, style), rect)
      45. ElseIf _MouseState = MouseState.Hover Then
      46. e.Graphics.FillRectangle(New System.Drawing.Drawing2D.LinearGradientBrush(rect, colorHoverOne, colorHoverTwo, style), rect)
      47. ElseIf _MouseState = MouseState.Pressed Then
      48. e.Graphics.FillRectangle(New System.Drawing.Drawing2D.LinearGradientBrush(rect, colorPressedOne, colorPressedTwo, style), rect)
      49. End If
      51. e.Graphics.DrawRectangle(Pens.Black, rect)
      52. e.Graphics.DrawRectangle(Pens.Black, recta)
      53. e.Graphics.DrawString(Me.Text, Me.Font, New Drawing.SolidBrush(Me.ForeColor), New Drawing.Point(CInt(Me.Width / 2) - CInt(btnSize.Width / 2), CInt(Me.Height / 2) - CInt(btnSize.Height / 2)))
      54. If imageBackground Is Nothing Then
      55. Else
      56. e.Graphics.DrawImage(imageBackground.ToBitmap, 0, 0)
      57. End If
      59. End Sub
      60. Protected Sub install(ByVal e As System.Windows.Forms.PaintEventArgs)
      61. With e.Graphics
      62. .SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
      63. .TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
      64. .PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality
      65. .InterpolationMode = Drawing2D.InterpolationMode.HighQualityBilinear
      66. .CompositingQuality = Drawing2D.CompositingQuality.HighQuality
      67. End With
      68. Me.Invalidate()
      69. End Sub
      71. Protected Overrides Sub OnMouseEnter(ByVal e As System.EventArgs)
      72. MyBase.OnMouseEnter(e)
      73. Me._MouseState = MouseState.Hover
      74. Me.Invalidate()
      75. End Sub
      76. Protected Overrides Sub OnMouseLeave(ByVal e As System.EventArgs)
      77. MyBase.OnMouseEnter(e)
      78. Me._MouseState = MouseState.None
      79. Me.Invalidate()
      80. End Sub
      81. Protected Overrides Sub OnMouseDown(ByVal mevent As System.Windows.Forms.MouseEventArgs)
      82. MyBase.OnMouseDown(mevent)
      83. Me._MouseState = MouseState.Pressed
      84. Me.Invalidate()
      85. End Sub
      86. Protected Overrides Sub OnMouseUp(ByVal mevent As System.Windows.Forms.MouseEventArgs)
      87. MyBase.OnMouseUp(mevent)
      88. Me._MouseState = MouseState.Hover
      89. Me.Invalidate()
      90. End Sub
      92. End Class

      ListBox:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Class ListBoxMy
      3. Inherits System.Windows.Forms.Control
      5. Private Property item As New List(Of String) 'Soll die Liste der Items sein
      6. Public Property selectionColor As Color = Color.DodgerBlue 'Die selectionColor
      7. Public Property anzahl As Integer = 0 'Anzahl aller Elemente
      8. Private int As Integer = -1 'der Index
      10. Public Property Index() As Integer 'für bessere Behandlung:
      11. Get
      12. Return int
      13. End Get
      14. Set(ByVal value As Integer)
      15. If int <> value Then
      16. Me.Invalidate()
      17. End If
      18. int = value
      19. End Set
      20. End Property
      22. Public Event valueChanged() 'Ein Event was wir brauchen
      24. Dim yPosition As Integer = 0 'Die yZeichenposition
      25. Dim ft As New Font("Arial", 10) 'Font
      26. Dim rectl As New List(Of Rectangle) 'Liste von Rechtecken zu Überprüfung welches angeklickt wurde
      28. Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
      29. MyBase.OnPaint(e)
      30. Dim br As New SolidBrush(selectionColor) 'neue Farbe
      32. e.Graphics.FillRectangle(Brushes.White, 0, 0, Me.Width, Me.Height) 'Hintergrund
      33. If index <> -1 Then
      34. e.Graphics.FillRectangle(br, 0, ft.Height * (Index), Me.Width, ft.Height) 'Wenn der Index nicht nichts ist
      35. RaiseEvent valueChanged() 'dann eine Rechteck zeichnen und das Event auslösen
      36. End If
      37. e.Graphics.DrawRectangle(Pens.Black, 0, 0, Me.Width - 1, Me.Height - 1) 'Rahmen
      39. For i As Integer = 0 To item.Count - 1 'Für jedes Item
      40. e.Graphics.DrawString(item(i), ft, Brushes.Black, 0, yPosition) 'String zeichnen
      41. yPosition += ft.Height 'Position erhöhen
      42. Next
      43. yPosition = 0 'wieder 0 setzten
      44. End Sub
      46. Public Sub addItem(ByVal itema As String)
      47. rectl.Add(New Rectangle(0, (ft.Height * anzahl), Me.Width, ft.Height))
      48. item.Add(itema)
      49. anzahl += 1
      50. Me.Invalidate()
      51. End Sub
      53. Public Sub New()
      54. Me.DoubleBuffered = True
      55. End Sub
      57. Protected Overrides Sub OnMouseDown(ByVal a As System.Windows.Forms.MouseEventArgs)
      58. MyBase.OnMouseDown(a)
      59. For i As Integer = 0 To rectl.Count - 1
      60. Select Case a.Location.Y
      61. Case Is > rectl(i).Location.Y
      62. If a.Location.Y < rectl(i).Location.Y + rectl(i).Height Then Index = i
      63. Me.Invalidate()
      64. End Select
      65. Next
      66. End Sub
      67. End Class

      Waiter:
      Im Waiter sind nun neue Methoden und Funktionen eingebaut, .dll gibt es oben als Anhang.
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Class Waiter
      3. Inherits System.Windows.Forms.Control
      4. Private WithEvents tmr As New Timer With {.Interval = 50} 'Timer zur Anzeige des Fortschritts
      5. Private state As Boolean = False '_x > 360
      6. Property xColor As Color = Color.White 'Hintergrund
      7. Property clearColor As Color = Color.White 'Farbe des zweiten Kreises
      8. Dim sz As SizeF
      10. Public Event xChanged(ByVal sender As Object, ByVal e As EventArgs)
      11. Public Event yChanged(ByVal sender As Object, ByVal e As EventArgs)
      12. Public _x As Integer = 0
      13. Public _y As Integer = 0
      15. Public Property xValue() As Integer
      16. Get
      17. Return _x
      18. End Get
      19. Set(ByVal value As Integer)
      20. If _x <> value Then
      21. RaiseEvent xChanged(Me, EventArgs.Empty)
      22. End If
      23. _x = value
      24. End Set
      25. End Property
      27. Public Property yValue() As Integer
      28. Get
      29. Return _y
      30. End Get
      31. Set(ByVal value As Integer)
      32. If _y <> value Then
      33. RaiseEvent yChanged(Me, EventArgs.Empty)
      34. End If
      35. _y = value
      36. End Set
      37. End Property
      39. Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
      40. MyBase.OnPaint(e)
      42. Dim br As New SolidBrush(xColor) 'Hintergrund
      43. Dim _br As New SolidBrush(clearColor) 'Farbe des zweiten Kreises
      44. sz = e.Graphics.MeasureString(Me.Text, Me.Font) 'Textverarbeitung
      46. With e.Graphics
      47. .SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
      48. .TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
      49. .PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality
      50. .InterpolationMode = Drawing2D.InterpolationMode.HighQualityBilinear
      51. .CompositingQuality = Drawing2D.CompositingQuality.HighQuality
      52. End With
      53. Me.DoubleBuffered = True
      55. e.Graphics.FillPie(Brushes.Silver, 0, 0, Me.Width, Me.Height, 0, _x) ' 1. Kreis
      56. e.Graphics.FillPie(br, 3, 3, Me.Width - 6, Me.Height - 6, 0, 360) 'Zweiter Kreis (überdeckt den 1.)
      57. If state = True Then e.Graphics.FillPie(_br, 0, 0, Me.Width, Me.Height, 0, _y) '3er Kreis, der alles überdeckt
      58. e.Graphics.DrawString(Me.Text, Me.Font, Brushes.Black, _
      59. (Me.Width - sz.Width) / 2, (Me.Height - sz.Height) / 2) 'Text in die Mitte schreiben
      60. End Sub
      62. Private Sub tmr_Tick() Handles tmr.Tick
      63. Select Case state
      64. Case False
      65. If _x < 360 Then
      66. _x += 10
      67. Me.Invalidate()
      68. Else
      69. _y = 0
      70. state = True
      71. End If
      72. Case True
      73. If _y < 360 Then
      74. _y += 10
      75. Me.Invalidate()
      76. Else
      77. _x = 0
      78. state = False
      79. tmr_Tick()
      80. End If
      81. End Select
      82. End Sub
      84. Public Sub startWork(ByVal rotation As Integer)
      85. If rotation <> Nothing Then
      86. tmr.Interval = rotation
      87. tmr.Start()
      88. End If
      89. End Sub
      91. Public Sub stopWork()
      92. tmr.Stop()
      93. _x = 0
      94. _y = 0
      95. Me.Invalidate()
      96. End Sub
      98. Public Function getRotationX() As Integer
      99. Return _x 'Gibt die Gradzahl zurück
      100. End Function
      102. Public Function getRotationY() As Integer
      103. Return _y 's.o.
      104. End Function
      106. Private Sub Waiter_BackColorChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.BackColorChanged
      107. xColor = Me.BackColor 'Hintergrundfarbe zuweisen
      108. clearColor = Me.BackColor
      109. End Sub
      111. Private Sub Waiter_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
      112. Me.Height = Me.Width 'nur Seitenverhältnis 1:1 zulassen
      113. End Sub
      115. Public Sub setX(ByVal x As Integer)
      116. _x = x
      117. Me.Invalidate()
      118. End Sub
      119. Public Sub setY(ByVal y As Integer)
      120. _y = y
      121. Me.Invalidate()
      122. End Sub
      124. Private Sub Waiter_xChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.xChanged
      125. Me.Invalidate()
      126. End Sub
      128. Private Sub Waiter_yChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.yChanged
      129. Me.Invalidate()
      130. End Sub
      131. End Class

      Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „LaMiy“ ()

      Ein kleiner Hinweis zu Deinem Waiter: :thumbup:
      Wenn ich den Timer (tmr - kein guter Name) im Designer auf Enabled = True schalte, ist er bei Programmstart auf Enabled = False.
      Vielleicht sollte bei jedem Umschalten des Timer-Enabled-Zustandes der Startwinkel (Leer-Kreis) vorgegeben werden.
      Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
      Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
      Ein guter .NET-Snippetkonverter (der ist verfügbar).
      Programmierfragen über PN / Konversation werden ignoriert!

      Es ist ziemlich performancefressend, einen Timer so schnell zu takten.
      Und im Designer sollte imo ein Timer immer stille stehen, jedenfalls mein Designer ist auch so schon träge genug.

      Selbes Problem mit dem Waiter: Wenn während der waited wirklich Massen-Verarbeitungen stattzufinden haben, dann erfolgen diese vmtl. wesentlich langsamer, weil der Waiter mit seinen ständingen Neu-Zeichnungen enorm Cpu-Power abzieht.

      @ErfinderDesRades
      Er läuft ja auch nicht durch, sondern wie bei der Original ProgressBar nur kurz.
      Apropos Original: Wie macht Microsoft das denn mit ihrer ProgressBar ?
      Enorm CPU ? Ich habe nicht sonderlich viel Ahnung von der Hardware, aber ich kann mir nicht vorstellen, dass das für einen PC im Jahr 2013 nicht auch nur ein winziges Problem darstellt.

      Die Listbox tut was sie soll, jedoch funktioniert die Verwaltung von Spalten die über den Controlrand gehen nicht (wenn mehr Einträge vorhanden sind als angezeigt werden können). Um dies zu optimieren müsste man doch noch eine Vertikale Scrollbar reinbauen oder?

      8-) faxe1008 8-)

    Facebook
    Telefonspende