JJ für MS 09.11

app/DD-Record-Organiser/XtraForm2.vb

@@ -46,6 +46,9 @@ Public Class XtraForm2
     End Enum
 
     Private Sub XtraForm2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_ECMAdmin.VWTEMPQUICKVIEW". Sie können sie bei Bedarf verschieben oder entfernen.
+        VWTEMPQUICKVIEWTableAdapter.Connection.ConnectionString = MyConnectionString
+        Me.VWTEMPQUICKVIEWTableAdapter.Fill(Me.DD_ECMAdmin.VWTEMPQUICKVIEW)
 
         CONSTRUCTORID = CURRENT_CONSTRUCTOR_ID
         DT_CONSTRUCT_VIEW = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM_CONSTRUCTOR WHERE GUID = " & CONSTRUCTORID)
@@ -579,8 +582,40 @@ Public Class XtraForm2
         Catch ex As Exception
             MsgBox("Error in Load_Entity_Data:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
         End Try
+        CreateTile()
     End Sub
+    Sub CreateTile()
 
+        Dim PictureIndex = 99
+        Dim DT = DirectCast(DT_SELECTION, DataTable)
+        Dim i As Integer = 0
+        For Each Column As DataColumn In DT.Columns
+            If Column.DataType.ToString.Contains("Byte") Then
+                PictureIndex = i
+            End If
+            i += 1
+        Next
+        GridControl1.DataSource = DT
+        'Das BackgroundImage setzen
+        TileView1.ColumnSet.BackgroundImageColumn = TileView1.Columns(PictureIndex) '"Image")
+        TileView1.OptionsTiles.ItemBackgroundImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
+        TileView1.OptionsTiles.ItemBackgroundImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
+
+        TileView1.OptionsTiles.Orientation = Orientation.Horizontal
+        'Anpassung der Eigenschaften
+        TileView1.AppearanceItem.Normal.ForeColor = Color.Maroon
+       
+
+       
+        TileView1.TileTemplate.Add(New TileViewItemElement With {.Column = TileView1.Columns(3), .TextAlignment = TileItemContentAlignment.TopRight})
+        TileView1.TileTemplate.Add(New TileViewItemElement With {.Column = TileView1.Columns(1), .TextAlignment = TileItemContentAlignment.Manual, .TextLocation = New Point(180, 39)})
+        Try
+            TryCast(TileView1.TileTemplate(0), TileViewItemElement).Column = TileView1.Columns(3) '"Name")
+        Catch ex As Exception
+
+        End Try
+        'TileView1.TileTemplate.Add(New TileViewItemElement With {.Column = TileView1.Columns("Date"), .TextAlignment = TileItemContentAlignment.Manual, .TextLocation = New Point(150, 100)})
+    End Sub
     Private Function GET_GROUP_RECORD(FORM_ID As Integer)
         Dim sqlRecord As String = "select guid from TBPMO_RECORD where Form_ID = " & FORM_ID
         Dim recid = ClassDatabase.Execute_Scalar(sqlRecord, True)
@@ -638,6 +673,15 @@ Public Class XtraForm2
             BindingSource_Entity.DataSource = Datatable_Grid
             GridControlSelection.DataSource = BindingSource_Entity
 
+
+            grvwTiles.ColumnSet.BackgroundImageColumn = grvwTiles.Columns("Column2")
+            Dim tileViewItemElement As New TileViewItemElement()
+            tileViewItemElement.Column = grvwTiles.Columns("Column1")
+            tileViewItemElement.ImageBorderColor = System.Drawing.Color.Empty
+            tileViewItemElement.Text = "element1"
+            grvwTiles.TileTemplate.Add(tileViewItemElement)
+
+
             ' Den Editor Initialisieren und Optionen setzen
             Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit()
             CheckBoxEditorForDisplay.ValueChecked = 1
@@ -875,4 +919,7 @@ Public Class XtraForm2
     End Sub
 
 
+    Private Sub AnsichtUmschaltenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnsichtUmschaltenToolStripMenuItem.Click
+        GridControlSelection.MainView = grvwTiles
+    End Sub
 End Class