Zooflow/SQLEditor: include clipboard ,small fixes

Controls.SQLEditor/Placeholders.vb

@@ -2,7 +2,7 @@
 Imports DevExpress.XtraBars.Ribbon
 
 Public Class Placeholders
-    Public Function GetInternalGroup() As GalleryItemGroup
+    Public Function GetInternalPlaceholders() As GalleryItemGroup
         Dim oModule = "INT"
         Dim oImage = My.Resources.electronics_desktopmac
 
@@ -18,6 +18,19 @@ Public Class Placeholders
         Return oGroup1
     End Function
 
+    Public Function GetClipboardPlaceholder() As GalleryItemGroup
+        Dim oModule = "CLIP"
+        Dim oImage = My.Resources.electronics_desktopmac
+
+        Dim oItems As New List(Of GalleryItem)() From {
+            GetGalleryItem(New Placeholder("BOARD", "Zwischenablage", oModule, "BOARD"), oImage)
+        }
+        Dim oGroup1 = New GalleryItemGroup() With {.Caption = "Zwischenablage"}
+
+        oGroup1.Items.AddRange(oItems.ToArray)
+        Return oGroup1
+    End Function
+
     Public Function GetManualPlaceholders() As GalleryItemGroup
         Return GetManualPlaceholders(New List(Of String))
     End Function
@@ -30,10 +43,7 @@ Public Class Placeholders
             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))
-
+        Else Return Nothing
         End If
 
         Dim oGroup1 = New GalleryItemGroup() With {.Caption = "Manuelle Attribute"}
@@ -54,9 +64,7 @@ Public Class Placeholders
                 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))
-
+        Else Return Nothing
         End If
 
         Dim oGroup1 = New GalleryItemGroup() With {.Caption = "Automatisches Attribut"}