JJ_16_11

app/DD-Record-Organiser/frmMain.vb

@@ -130,9 +130,37 @@ Public Class frmMain
                 AddHandler item.ItemClick, AddressOf ToolbarButtonItemClick
 
                 groupQuickAccess.ItemLinks.Add(item)
+
             Next
 
         End If
+
+        ' TODO: NUR FÜR WINDREAM CON!!!
+        If dt.Rows.Count <> 0 Then
+
+            For Each row As DataRow In dt.Rows
+                If Not IsDBNull(row.Item("MENU_IMG")) Then
+                    Dim bimg() As Byte = row.Item("MENU_IMG")
+                    Dim bitmap As Bitmap = ByteArrayToBitmap(bimg)
+                    image2 = bitmap
+                End If
+
+                Dim title As String = row.Item("FORM_TITLE")
+                Dim index As Integer = row.Item("SEQUENCE_MENU")
+                Dim tag As Integer = row.Item("GUID")
+                Dim item As New BarButtonItem(ribbonMain.Manager, title)
+                item.RibbonStyle = RibbonItemStyles.Large
+                item.Caption = title
+                item.Tag = tag
+                item.Glyph = image2
+
+                AddHandler item.ItemClick, AddressOf ToolbarButtonItemClickDemo
+                groupQuickAccessDemo.ItemLinks.Add(item)
+
+            Next
+
+        End If
+        ' TODO: NUR FÜR WINDREAM CON!!!
     End Sub
 
   
@@ -144,6 +172,16 @@ Public Class frmMain
         Cursor = Cursors.Default
     End Sub
 
+    ' TODO: NUR FÜR WINDREAM CON!!!
+    Private Sub ToolbarButtonItemClickDemo(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs)
+        Dim formId As Integer = Integer.Parse(e.Item.Tag)
+
+        Cursor = Cursors.WaitCursor
+        OpenFormConstructorDemo(formId)
+        Cursor = Cursors.Default
+    End Sub
+    ' TODO: NUR FÜR WINDREAM CON!!!
+
     Private Sub ToolbarButtonItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs)
         Dim formId As Integer = Integer.Parse(e.Item.Tag)
 
@@ -222,11 +260,6 @@ Public Class frmMain
 
     Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
         Try
-            If Environment.UserDomainName.ToLower.Contains("digitald") Then
-                Button1.Visible = True
-            Else
-                Button1.Visible = False
-            End If
             ' Form Titel setzen
             ClassWindowLocation.LoadFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmMain")
             Me.Text = Application.ProductName
@@ -434,14 +467,4 @@ Public Class frmMain
     Private Sub BarButtonItem17_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem17.ItemClick
         OpenTemplatemanagement()
     End Sub
-
-    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
-        Dim form As New frmConstructor_Main()
-        form.Show()
-    End Sub
-
-    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
-        Dim frm As New frmForm_Constructor_Main()
-        frm.Show()
-    End Sub
 End Class