Zooflow: Include new SQLEditor into Zooflow

Controls.SQLEditor/Placeholders.vb

@@ -18,6 +18,53 @@ Public Class Placeholders
         Return oGroup1
     End Function
 
+    Public Function GetManualPlaceholders() As GalleryItemGroup
+        Return GetManualPlaceholders(New List(Of String))
+    End Function
+
+    Public Function GetManualPlaceholders(pPlaceholders As List(Of String)) As GalleryItemGroup
+        Dim oImage = My.Resources.handtool
+        Dim oItems As New List(Of GalleryItem)()
+
+        If pPlaceholders.Count > 0 Then
+            For Each oManualPlaceholder In pPlaceholders
+                oItems.Add(GetGalleryItem(New Placeholder(oManualPlaceholder, "Manuelles Attribut", "ATTR_M", oManualPlaceholder), oImage))
+            Next
+
+        Else
+            oItems.Add(GetGalleryItem(New Placeholder("Attribut", "Manuelles Attribut", "ATTR_M", "ATTRIBUTE"), oImage))
+
+        End If
+
+        Dim oGroup1 = New GalleryItemGroup() With {.Caption = "Manuelle Attribute"}
+        oGroup1.Items.AddRange(oItems.ToArray)
+        Return oGroup1
+    End Function
+
+    Public Function GetAutomaticPlaceholders() As GalleryItemGroup
+        Return GetAutomaticPlaceholders(New List(Of String))
+    End Function
+
+    Public Function GetAutomaticPlaceholders(pPlaceholders As List(Of String)) As GalleryItemGroup
+        Dim oImage = My.Resources.autoarrange
+        Dim oItems As New List(Of GalleryItem)()
+
+        If pPlaceholders.Count > 0 Then
+            For Each oManualPlaceholder In pPlaceholders
+                oItems.Add(GetGalleryItem(New Placeholder(oManualPlaceholder, "Automatisches Attribut", "ATTR_A", oManualPlaceholder), oImage))
+            Next
+
+        Else
+            oItems.Add(GetGalleryItem(New Placeholder("Attribut", "Automatisches Attribut", "ATTR_A", "ATTRIBUTE"), oImage))
+
+        End If
+
+        Dim oGroup1 = New GalleryItemGroup() With {.Caption = "Automatisches Attribut"}
+
+        oGroup1.Items.AddRange(oItems.ToArray)
+        Return oGroup1
+    End Function
+
     Public Function GetUserGroup() As GalleryItemGroup
         Dim oModule = "USER"
         Dim oImage = My.Resources.actions_user