typisierte BindingSource

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

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

      typisierte BindingSource

      Ich hatte vor ein paar Monaten schon erste Schritte bzgl. einer typisierten BindingSource (im weiteren tBS) gemacht. Da diese sich bisher ganz gut bewährt hat, hier das, was ich mir bis dato zusammengeschustert habe.
      Hauptdeklaration

      VB.NET-Quellcode

      1. '''<summary>eine typisierte BindingSource</summary>
      2. '''<typeparam name="T">der übergebende Datentyp, der bei New hinterlegt, bei Add benötigt und bei Current zurückgegeben wird</typeparam>
      3. '''<remarks>Um dieses Control auf einem Form zu verwenden, muss von dieser einfach geerbt werden, z.B.:
      4. '''<code>
      5. '''Public Class MyTypedBindingSource : Inherits TypedBindingSource(Of MyOwnClass) : End Class
      6. '''</code>
      7. ''' </remarks>
      8. Public MustInherit Class TypedBindingSource(Of T) : Inherits BindingSource
      10. '''<summary>erstellt eine typisierte BindingSource für den Typ T</summary>
      11. Protected Sub New(Components As ComponentModel.IContainer)
      12. DataSource = GetType(T)
      13. If Components IsNot Nothing Then Components.Add(Me)
      14. End Sub
      16. End Class


      API

      VB.NET-Quellcode

      1. Partial Class TypedBindingSource(Of T)
      3. '''<summary>fügt der Auflistung ein neues Element vom Typ T hinzu</summary>
      4. '''<param name="NewItem">das hinzuzufügende Item</param>
      5. Public Shadows Sub Add(NewItem As T)
      6. MyBase.Add(NewItem)
      7. End Sub
      9. '''<summary>entfernt das momentan ausgewählte Element der Auflistung; danach wird ein BindingReset für das GUI durchgeführt; wenn die Auflistung leer ist, passiert nichts</summary>
      10. Public Shadows Sub RemoveCurrent()
      11. If HasNoCurrent Then Return
      13. MyBase.RemoveCurrent()
      14. ResetBindings(False)
      15. End Sub
      17. '''<summary>ersetzt das ausgewählte Element durch ein anderes; danach wird ein Einzel-BindingReset für das GUI durchgeführt</summary>
      18. '''<param name="Replacement">das Element, welches an der ausgewählten Position den Platz einnehmen soll</param>
      19. Public Sub ReplaceCurrentWith(Replacement As T)
      20. If HasNoCurrent Then Return
      22. MyBase.Item(Position) = Replacement
      23. ResetCurrentItem()
      24. End Sub
      26. '''<summary>fügt der Auflistung die Elemente einer Liste hinzu; danach wird ein BindingReset für das GUI durchgeführt</summary>
      27. '''<param name="List">die Liste der Elemente, die hinzugefügt werden soll</param>
      28. Public Sub AddRange(List As IEnumerable(Of T))
      29. List.ForEach(Sub(x) Add(x))
      30. ResetBindings(False)
      31. End Sub
      33. '''<summary>ersetzt die Auflistung durch eine andere; danach wird ein BindingReset für das GUI durchgeführt</summary>
      34. '''<param name="List">die Liste der Elemente, die danach die TypedBindingSource-Auflistung darstellt</param>
      35. Public Sub ReplaceListBy(List As IEnumerable(Of T))
      36. Uncouple()
      37. DataSource = List
      38. Couple()
      39. End Sub
      41. '''<summary>ersetzt die Auflistungselemente durch andere; danach wird ein BindingReset für das GUI durchgeführt</summary>
      42. '''<param name="List">die Liste der Elemente, die sich danach in der Auflistung befinden</param>
      43. Public Sub ReplaceListContentBy(List As IEnumerable(Of T))
      44. Clear()
      45. AddRange(List)
      46. End Sub
      48. End Class


      InternalFunctions

      VB.NET-Quellcode

      1. Partial Class TypedBindingSource(Of T)
      3. Private Function IndexIsValid(Index As Integer) As Boolean
      4. Return Index.IsBetween(0, Count - 1) AndAlso MyBase.Item(Index) IsNot Nothing
      5. End Function
      7. End Class


      Operations

      VB.NET-Quellcode

      1. Partial Class TypedBindingSource(Of T)
      3. Private Sub Uncouple()
      4. RaiseListChangedEvents = False
      5. SuspendBinding()
      6. End Sub
      8. Private Sub Couple()
      9. ResumeBinding()
      10. RaiseListChangedEvents = True
      11. ResetBindings(False)
      12. End Sub
      14. End Class


      Properties

      VB.NET-Quellcode

      1. Partial Class TypedBindingSource(Of T)
      3. '''<summary>ruft das Element an der angegebenen Position ab oder legt dieses fest; nach der Festlegung wird ein BindingReset für das GUI durchgeführt</summary>
      4. ''' <param name="Index">die Position innerhalb der Liste</param>
      5. ''' <returns>das Element an der angegebenen Position</returns>
      6. Default Public Shadows Property Item(Index As Integer) As T
      7. Get
      8. If Not IndexIsValid(Index) Then Return Nothing
      10. Return DirectCast(MyBase.Item(Index), T)
      11. End Get
      12. Set
      13. If Not IndexIsValid(Index) Then Return
      15. MyBase.Item(Index) = Value
      16. ResetBindings(False)
      17. End Set
      18. End Property
      20. '''<summary>ruft das aktuell ausgewählte Item ab oder legt dieses fest</summary>
      21. Public Shadows Property Current As T
      22. Get
      23. Return DirectCast(MyBase.Current, T)
      24. End Get
      25. Set
      26. If IsBindingSuspended OrElse HasNoCurrent OrElse Value.NotExists Then Return
      28. For i = 0 To Count - 1
      29. If Item(i).Equals(Value) Then Position = i : Exit For
      30. Next
      31. End Set
      32. End Property
      34. '''<summary>gibt wieder, ob die TypedBindingSource befüllt ist</summary>
      35. Public ReadOnly Property HasCurrent() As Boolean
      36. Get
      37. Return Position > -1 AndAlso Not Current.NotExists
      38. End Get
      39. End Property
      41. '''<summary>gibt wieder, ob die TypedBindingSource leer ist</summary>
      42. Public ReadOnly Property HasNoCurrent() As Boolean
      43. Get
      44. Return Not HasCurrent
      45. End Get
      46. End Property
      48. '''<summary>gibt wieder, ob die aktuelle Position 0 ist</summary>
      49. Public ReadOnly Property IsAtListStart() As Boolean
      50. Get
      51. Return Position = 0
      52. End Get
      53. End Property
      55. '''<summary>gibt wieder, ob die aktuelle Position am Ende der Liste ist</summary>
      56. Public ReadOnly Property IsAtListEnd() As Boolean
      57. Get
      58. Return Position = List.Count - 1
      59. End Get
      60. End Property
      62. End Class



      Extensions, die mir auch in anderen Projekten das Leben leichter machen

      VB.NET-Quellcode

      1. <Extension> Public Sub ForEach(Of T)(IEnumerable As IEnumerable(Of T), Action As Action(Of T))
      2. For Each Element In IEnumerable
      3. Action(Element)
      4. Next
      5. End Sub
      7. <Extension> Public Function NotExists([Object] As Object) As Boolean
      8. Return [Object] Is Nothing
      9. End Function
      11. <Extension> Public Function IsBetween(Of T As IComparable)(Thing As T, LowerBoundary As T, UpperBoundary As T) As Boolean
      12. Return Thing.CompareTo(LowerBoundary) >= 0 AndAlso Thing.CompareTo(UpperBoundary) <= 0
      13. End Function



      Einsatzbeispiel:

      Tower-Klasse

      VB.NET-Quellcode

      1. Public Class Tower
      3. Property Damage As Integer
      4. Property RangeInPixels As Integer
      5. Property HitPoints As Integer
      7. End Class


      VB.NET-Quellcode

      1. Public Class BsFileInfos : Inherits TypedBindingSource(Of IO.FileInfo)
      2. Sub New(Components As ComponentModel.IContainer)
      3. MyBase.New(Components)
      4. End Sub
      5. End Class
      7. Public Class BsTowers : Inherits TypedBindingSource(Of Tower)
      8. Sub New(Components As ComponentModel.IContainer)
      9. MyBase.New(Components)
      10. End Sub
      11. End Class


      Mehr an Code ist es im jeweiligen Einsatzprojekt erstmal nicht. Daher kann man beim Einsatz mehrerer tBSs diese auch alle in eine eigene Datei untereinander schreiben, eine tBS pro Zeile.
      Das Projekt kompiliert man und schon tauchen die tBSs in der Toolbox auf und sind einsatzbereit:


      Nun kann man diese zzgl. einem DGV auch gleich auf's Form ziehen, das DGV an eine tBS koppeln und schon sieht man (im Falle der BsFileInfos-Instanz) eine leere FileInfo-Tabelle:


      Der nächste Schritt - wie bei einer normalen BS (die ich im weiteren uBS für untypisierte BindingSource abkürze) - ist die Datenzuordnung:

      VB.NET-Quellcode

      1. BsFileInfos1.DataSource = New IO.DirectoryInfo(Verzeichnispfad).GetFiles.ToList 'ToList, damit man auch mit RemoveCurrent arbeiten kann; ohne geht RemoveCurrent auch bei einer uBS nicht
      2. BsTowers1.Add(New Tower With {.Damage = 80, .HitPoints = 100, .RangeInPixels = 20})


      bei der zweiten Zeile sieht man schon den ersten Vorteil der tBS:

      Man muss ein Objekt vom Typ Tower einfügen. Alles andere wird abgelehnt.
      Bei einer uBS würde man erst zur Laufzeit eine System.InvalidOperationException bekommen.

      Nächster Vorteil: Current
      Will man den aktuell ausgewählten BS-Eintrag im verwenden, muss man bei einer uBS erstmal casten, bei einer tBS natürlich nicht, denn Current ist ja auch schon vom angegebenen Typ:

      VB.NET-Quellcode

      1. MessageBox.Show(DirectCast(FileInfoBindingSource.Current, IO.FileInfo).Name) 'vergessen zu erwähnen: dies ist eine uBS mit IO.FileInfo als hinterlegter Datentyp
      2. MessageBox.Show(BsFileInfos1.Current.Name)


      Die anderen Kleinigkeiten können direkt aus der Codedokumentation oder m.E. gar aus dem Code selbst entnommen werden.
      Das ganze kann man sicherlich auch für tDS-gekoppelte BindingSources weiterspinnen, um sich den Doppelcast von Object->DataRowView->typisierte DataRow zu ersparen. Aber das mach ich vielleicht später.

      ##########

      In der Property HasCurrent() war ein Fehler. Es darf narürlich nicht heißen: AndAlso Current.NotExists, sondern AndAlso Not Current.NotExists; alternativ verwende ich bei mir eine Extra-Extension namens Exists(), aber die kollidiert etwas mit der gleichnamigen Funktion aus dem IO-Namespace.

      ##########

      03.10.2022: Konstruktoren um components ergänzt, damit die tBS automatisch zu den Form-Components hinzugefügt und automatisch disposed wird.
      Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

      Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

      Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „VaporiZed“ ()

      Moin @VaporiZed,

      first of all: "zusammengeschustert" ist finde ich nicht wirklich treffend. Ich mag deinen Programmierstil. Er is klar strukturiert, sauber gekürzt und alles ist sprechend bezeichnet. Auch die Funktionen sind sinnvoll, auch wenn ich für mich persönlich zumindest eine weggelassen hätte. Mir ist egal ob ich

      VB.NET-Quellcode

      1. Element.HasNoCurrent

      oder

      VB.NET-Quellcode

      1. Not Element.HasCurrent


      abfrage, aber im Endeffekt völlig unerheblich und auch keine Kritik, weil Geschmacksache. Jo, Programmierstil hatte ich, Einsatzmöglichkeiten sind enorm und ich werde dein Beispiel definitiv mal in meine Klassensammlung aufnehmen und meinen Bedürfnissen entsprechend anpassen. Gute Idee, top Umsetzung. Danke dir dafür!

      Ein Computer wird das tun, was du programmierst - nicht das, was du willst.

      Die tDS-bezogene tBS sieht schon deutlich konservativer aus, da man Items (die vom Typ DataRowView sind) nicht dazupacken sollte (oder kann?). Das Anlegen neuer Rows macht man am besten über das tDS bzw. die DataTables direkt. Daher fallen die Methoden Add/AddRange weg und die Index-Property ist nun ReadOnly. Die Doppelcasts stecken in den jeweiligen Methoden drin, was das Leben etwas erleichtert.
      das Gesamtpaket ohne Extensions

      VB.NET-Quellcode

      1. Imports System.Runtime.CompilerServices
      2. '''<summary>eine typisierte BindingSource zur Verwendung mit typisierten DataSets</summary>
      3. '''<typeparam name="T">der übergebende Datentyp, der bei New hinterlegt und bei Current zurückgegeben wird; muss vom Typ DataRow oder einer davon abgeleiteten Variante sein</typeparam>
      4. '''<remarks>Um dieses Control auf einem Form zu verwenden, muss von dieser einfach geerbt werden, z.B.:
      5. '''<code>
      6. '''Public Class MyTypedBindingSource : Inherits TdsTypedBindingSource(Of MyDataRow) : End Class
      7. '''</code>
      8. ''' </remarks>
      9. Public MustInherit Class TdsTypedBindingSource(Of T As Data.DataRow) : Inherits BindingSource
      11. '''<summary>erstellt eine typisierte BindingSource für den Typ T</summary>
      12. Protected Sub New(Components As ComponentModel.IContainer)
      13. DataSource = GetType(T)
      14. If Components IsNot Nothing Then Components.Add(Me)
      15. End Sub
      17. '''<summary>entfernt das momentan ausgewählte Element der Auflistung; danach wird ein BindingReset für das GUI durchgeführt; wenn die Auflistung leer ist, passiert nichts</summary>
      18. Public Shadows Sub RemoveCurrent()
      19. If HasNoCurrent Then Return
      21. MyBase.RemoveCurrent()
      22. End Sub
      24. Private Function IndexIsValid(Index As Integer) As Boolean
      25. Return Index.IsBetween(0, Count - 1) AndAlso MyBase.Item(Index) IsNot Nothing
      26. End Function
      28. '''<summary>ruft die typisierte DataRow an der angegebenen Position ab</summary>
      29. '''<param name="Index">die Position innerhalb der Liste</param>
      30. '''<returns>die typisierte DataRow an der angegebenen Position</returns>
      31. Default Public Shadows ReadOnly Property Item(Index As Integer) As T
      32. Get
      33. If Not IndexIsValid(Index) Then Return Nothing
      35. Return DirectCast(DirectCast(MyBase.Item(Index), Data.DataRowView).Row, T)
      36. End Get
      37. End Property
      39. '''<summary>ruft die aktuell ausgewählte DataRow ab oder legt diese fest</summary>
      40. Public Shadows Property Current As T
      41. Get
      42. Return DirectCast(DirectCast(MyBase.Current, Data.DataRowView).Row, T)
      43. End Get
      44. Set
      45. If IsBindingSuspended OrElse HasNoCurrent OrElse Value.NotExists Then Return
      47. For i = 0 To Count - 1
      48. If Item(i).Equals(Value) Then Position = i : Exit For
      49. Next
      50. End Set
      51. End Property
      53. '''<summary>gibt wieder, ob die TdsTypedBindingSource befüllt ist</summary>
      54. Public ReadOnly Property HasCurrent() As Boolean
      55. Get
      56. Return Position > -1 AndAlso Current.Exists
      57. End Get
      58. End Property
      60. '''<summary>gibt wieder, ob die TdsTypedBindingSource leer ist</summary>
      61. Public ReadOnly Property HasNoCurrent() As Boolean
      62. Get
      63. Return Not HasCurrent
      64. End Get
      65. End Property
      67. '''<summary>gibt wieder, ob die aktuelle Position 0 ist</summary>
      68. Public ReadOnly Property IsAtListStart() As Boolean
      69. Get
      70. Return Position = 0
      71. End Get
      72. End Property
      74. '''<summary>gibt wieder, ob die aktuelle Position am Ende der Liste ist</summary>
      75. Public ReadOnly Property IsAtListEnd() As Boolean
      76. Get
      77. Return Position = List.Count - 1
      78. End Get
      79. End Property
      81. End Class


      Mit folgender Tabelle

      ist dann also sowas hier problemlos möglich:

      VB.NET-Quellcode

      1. Public Class BsCars : Inherits TdsTypedBindingSource(Of DataSet1.CarsRow)
      2. Sub New(Components As ComponentModel.IContainer)
      3. MyBase.New(Components)
      4. End Sub
      5. End Class
      6. '…
      7. BsCars.Current = DataSet1.Cars.Last
      8. BsCars.Current = BsCars(1)
      9. MessageBox.Show(BsCars(0).Name)
      10. BsCars.Position = 2 '<- das geht auch mit ner normalen uBS
      11. MessageBox.Show(BsCars.Current.PowerInPS.ToString)


      Da ist zweifellos noch viel Optimierungspotential da, aber da ich nicht (mehr) sonderlich viel mit tDS arbeite, überlasse ich das den anderen.

      Mit ein wenig Mehraufwand kann man sich auch noch die beiden tBS-Varianten For-Each- und LINQ-fähig machen. Aber das geht wohl an dieser Stelle etwas zu weit für mich, da ich dann häufig doch eher mit den zugrundeliegenden Tabellen/Listen arbeite.

      ##########

      03.10.2022: Konstruktoren um components ergänzt, damit die tBS automatisch zu den Form-Components hinzugefügt und automatisch disposed wird.
      Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

      Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

      Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „VaporiZed“ ()

      Meine neue, verbesserte TypedBindingSource nutzt zusätzlich eine interne Liste. Was das soll? Bei Arbeiten mit externen DLLs, die v.a. auf Interfaces setzen, kann es vorkommen, dass man mit COM-Objekten zu tun hat, die in der tBS abgespeichert werden sollen. Diese haben zwar fixe Typen, können aber mit der normalen tBS nicht "endgültig"/dauerhaft in der Zieltypart gespeichert werden, was zu Laufzeitfehlern führt, da scheinbar die Typen inkompatibel sind. Nutzt man aber eine interne Liste mit dem Zieltyp, geht alles wieder seinen Gang. Ein Beispiel lässt sich in meinem Programm GuiSpy finden.
      Spoiler anzeigen

      VB.NET-Quellcode

      1. '''<summary>eine typisierte BindingSource mit interner Liste</summary>
      2. '''<typeparam name="T">der übergebende Datentyp, der bei New hinterlegt, bei Add benötigt und bei Current zurückgegeben wird</typeparam>
      3. '''<remarks>Um dieses Control auf einem Form zu verwenden, muss von dieser einfach geerbt werden, z.B.:
      4. '''<code>
      5. '''Public Class MyTypedBindingSource : Inherits TypedBindingSource(Of MyOwnClass) : End Class
      6. '''</code>
      7. ''' </remarks>
      8. Public MustInherit Class TypedBindingSource(Of T) : Inherits BindingSource
      10. Private ReadOnly InternalList As New System.ComponentModel.BindingList(Of T)
      12. '''<summary>erstellt eine typisierte BindingSource für den Typ T</summary>
      13. Protected Sub New()
      14. DataSource = GetType(T)
      15. End Sub
      17. '''<summary>fügt der Auflistung ein neues Element vom Typ T hinzu</summary>
      18. '''<param name="NewItem">das hinzuzufügende Item</param>
      19. Public Overloads Sub Add(NewItem As T)
      20. InternalList.Add(NewItem)
      21. End Sub
      23. '''<summary>entfernt das momentan ausgewählte Element der Auflistung; wenn die Auflistung leer ist, passiert nichts</summary>
      24. Public Overloads Sub RemoveCurrent()
      25. If HasNoCurrent() Then Return
      27. MyBase.RemoveCurrent()
      28. End Sub
      30. '''<summary>ersetzt das ausgewählte Element durch ein anderes</summary>
      31. '''<param name="Replacement">das Element, welches an der ausgewählten Position den Platz einnehmen soll</param>
      32. Public Sub ReplaceCurrentWith(Replacement As T)
      33. If HasNoCurrent() Then Return
      35. MyBase.Item(Position) = Replacement
      36. ResetCurrentItem()
      37. End Sub
      39. '''<summary>fügt der Auflistung die Elemente einer Liste hinzu</summary>
      40. '''<param name="List">die Liste der Elemente, die hinzugefügt werden soll</param>
      41. Public Sub AddRange(List As IEnumerable(Of T))
      42. List.ForEach(Sub(x) Add(x))
      43. End Sub
      45. '''<summary>ersetzt die Auflistungselemente durch andere</summary>
      46. '''<param name="List">die Liste der Elemente, die sich danach in der Auflistung befinden</param>
      47. Public Sub ReplaceListContentBy(List As IEnumerable(Of T))
      48. Clear()
      49. AddRange(List)
      50. End Sub
      52. Private Function IndexIsValid(Index As Integer) As Boolean
      53. Return Index.IsBetween(0, Count - 1) AndAlso MyBase.Item(Index) IsNot Nothing
      54. End Function
      56. Private Sub TypedBindingSource_DataSourceChanged(sender As Object, e As EventArgs) Handles Me.DataSourceChanged
      57. If Diagnostics.Debugger.IsAttached AndAlso DataSource Is GetType(T) Then
      58. DataSource = InternalList
      59. End If
      60. End Sub
      62. '''<summary>ruft das Element an der angegebenen Position ab oder legt dieses fest</summary>
      63. ''' <param name="Index">die Position innerhalb der Liste</param>
      64. ''' <returns>das Element an der angegebenen Position</returns>
      65. Default Public Shadows Property Item(Index As Integer) As T
      66. Get
      67. If Not IndexIsValid(Index) Then Return Nothing
      68. Return DirectCast(MyBase.Item(Index), T)
      69. End Get
      70. Set
      71. If Not IndexIsValid(Index) Then Return
      72. MyBase.Item(Index) = Value
      73. ResetBindings(False)
      74. End Set
      75. End Property
      77. '''<summary>ruft das aktuell ausgewählte Item ab oder legt dieses fest</summary>
      78. Public Shadows Property Current As T
      79. Get
      80. Return DirectCast(MyBase.Current, T)
      81. End Get
      82. Set
      83. If IsBindingSuspended OrElse HasNoCurrent OrElse Value.NotExists Then Return
      84. For i = 0 To Count - 1
      85. If Item(i).Equals(Value) Then Position = i : Exit For
      86. Next
      87. End Set
      88. End Property
      90. '''<summary>gibt wieder, ob die TypedBindingSource befüllt ist</summary>
      91. Public ReadOnly Property HasCurrent() As Boolean
      92. Get
      93. Return Position > -1 AndAlso Current.Exists
      94. End Get
      95. End Property
      97. '''<summary>gibt wieder, ob die TypedBindingSource leer ist</summary>
      98. Public ReadOnly Property HasNoCurrent() As Boolean
      99. Get
      100. Return Not HasCurrent
      101. End Get
      102. End Property
      104. '''<summary>gibt wieder, ob die aktuelle Position 0 ist</summary>
      105. Public ReadOnly Property IsAtListStart() As Boolean
      106. Get
      107. Return Position = 0
      108. End Get
      109. End Property
      111. '''<summary>gibt wieder, ob die aktuelle Position am Ende der Liste ist</summary>
      112. Public ReadOnly Property IsAtListEnd() As Boolean
      113. Get
      114. Return Position = List.Count - 1
      115. End Get
      116. End Property
      118. End Class


      Einen Nachteil hat das Ganze aber, den ich in einem anderen Thread beschrieben habe. Leider habe ich noch keine saubere Lösung dafür.

      ##########

      Mit dem zuletzt genannten Problem konnte ich nun im erwähnten Thread einen besseren/zuverlässigeren Workaround finden.
      Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

      Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

      Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „VaporiZed“ ()

    Facebook
    Telefonspende