JJ 09_11 TILES!!

app/DD-Record-Organiser/XtraForm2.Designer.vb

@@ -45,6 +45,10 @@ Partial Class XtraForm2
         Me.TileViewColumn3 = New DevExpress.XtraGrid.Columns.TileViewColumn()
         Me.grvwGrid = New DevExpress.XtraGrid.Views.Grid.GridView()
         Me.LayoutViewCard1 = New DevExpress.XtraGrid.Views.Layout.LayoutViewCard()
+        Me.colAktenzeichen = New DevExpress.XtraGrid.Columns.TileViewColumn()
+        Me.TileViewColumn5 = New DevExpress.XtraGrid.Columns.TileViewColumn()
+        Me.colTagderEintragungimRegister = New DevExpress.XtraGrid.Columns.TileViewColumn()
+        Me.colAktenzustand = New DevExpress.XtraGrid.Columns.TileViewColumn()
         Me.navPane = New DevExpress.XtraBars.Navigation.TileNavPane()
         Me.btn_home = New DevExpress.XtraBars.Navigation.NavButton()
         Me.btn_Refresh = New DevExpress.XtraBars.Navigation.NavButton()
@@ -59,19 +63,15 @@ Partial Class XtraForm2
         Me.TileView1 = New DevExpress.XtraGrid.Views.Tile.TileView()
         Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
         Me.GridControl2 = New DevExpress.XtraGrid.GridControl()
+        Me.VWTEMPQUICKVIEWBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+        Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin()
         Me.TileView2 = New DevExpress.XtraGrid.Views.Tile.TileView()
+        Me.TileViewColumn4 = New DevExpress.XtraGrid.Columns.TileViewColumn()
         Me.SplitContainer_Main = New DevExpress.XtraEditors.SplitContainerControl()
         Me.SplitContainer_Top = New DevExpress.XtraEditors.SplitContainerControl()
         Me.SplitContainer_Bottom = New DevExpress.XtraEditors.SplitContainerControl()
-        Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin()
-        Me.VWTEMPQUICKVIEWBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.VWTEMPQUICKVIEWTableAdapter = New DD_Record_Organiser.DD_ECMAdminTableAdapters.VWTEMPQUICKVIEWTableAdapter()
         Me.TableAdapterManager = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager()
-        Me.TileViewColumn4 = New DevExpress.XtraGrid.Columns.TileViewColumn()
-        Me.colAktenzeichen = New DevExpress.XtraGrid.Columns.TileViewColumn()
-        Me.TileViewColumn5 = New DevExpress.XtraGrid.Columns.TileViewColumn()
-        Me.colTagderEintragungimRegister = New DevExpress.XtraGrid.Columns.TileViewColumn()
-        Me.colAktenzustand = New DevExpress.XtraGrid.Columns.TileViewColumn()
         CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.GridControlSelection, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenu_GridControlSelection.SuspendLayout()
@@ -87,6 +87,8 @@ Partial Class XtraForm2
         CType(Me.TileView1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.XtraTabPage2.SuspendLayout()
         CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.VWTEMPQUICKVIEWBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TileView2, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.SplitContainer_Main, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainer_Main.SuspendLayout()
@@ -94,8 +96,6 @@ Partial Class XtraForm2
         Me.SplitContainer_Top.SuspendLayout()
         CType(Me.SplitContainer_Bottom, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainer_Bottom.SuspendLayout()
-        CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.VWTEMPQUICKVIEWBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'grvwCarousel
@@ -173,10 +173,13 @@ Partial Class XtraForm2
         Me.grvwTiles.GridControl = Me.GridControlSelection
         Me.grvwTiles.Name = "grvwTiles"
         TileViewItemElement1.Column = Me.TileViewColumn1
+        TileViewItemElement1.ImageBorderColor = System.Drawing.Color.Empty
         TileViewItemElement1.Text = "element1"
         TileViewItemElement2.Column = Me.TileViewColumn2
+        TileViewItemElement2.ImageBorderColor = System.Drawing.Color.Empty
         TileViewItemElement2.Text = "element2"
         TileViewItemElement3.Column = Me.TileViewColumn3
+        TileViewItemElement3.ImageBorderColor = System.Drawing.Color.Empty
         TileViewItemElement3.Text = "element3"
         Me.grvwTiles.TileTemplate.Add(TileViewItemElement1)
         Me.grvwTiles.TileTemplate.Add(TileViewItemElement2)
@@ -220,6 +223,34 @@ Partial Class XtraForm2
         Me.LayoutViewCard1.ExpandButtonLocation = DevExpress.Utils.GroupElementLocation.AfterText
         Me.LayoutViewCard1.Name = "LayoutViewCard1"
         '
+        'colAktenzeichen
+        '
+        Me.colAktenzeichen.FieldName = "Aktenzeichen"
+        Me.colAktenzeichen.Name = "colAktenzeichen"
+        Me.colAktenzeichen.Visible = True
+        Me.colAktenzeichen.VisibleIndex = 1
+        '
+        'TileViewColumn5
+        '
+        Me.TileViewColumn5.FieldName = "Wiedergabe der Marke (Bild)"
+        Me.TileViewColumn5.Name = "TileViewColumn5"
+        Me.TileViewColumn5.Visible = True
+        Me.TileViewColumn5.VisibleIndex = 2
+        '
+        'colTagderEintragungimRegister
+        '
+        Me.colTagderEintragungimRegister.FieldName = "Tag der Eintragung im Register"
+        Me.colTagderEintragungimRegister.Name = "colTagderEintragungimRegister"
+        Me.colTagderEintragungimRegister.Visible = True
+        Me.colTagderEintragungimRegister.VisibleIndex = 3
+        '
+        'colAktenzustand
+        '
+        Me.colAktenzustand.FieldName = "Aktenzustand"
+        Me.colAktenzustand.Name = "colAktenzustand"
+        Me.colAktenzustand.Visible = True
+        Me.colAktenzustand.VisibleIndex = 4
+        '
         'navPane
         '
         Me.navPane.ButtonPadding = New System.Windows.Forms.Padding(12)
@@ -323,8 +354,7 @@ Partial Class XtraForm2
         Me.TileView1.Name = "TileView1"
         Me.TileView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
         Me.TileView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
-        Me.TileView1.OptionsFind.AlwaysVisible = True
+        Me.TileView1.OptionsTiles.RowCount = 3
-        Me.TileView1.OptionsTiles.RowCount = 2
         '
         'XtraTabPage2
         '
@@ -344,6 +374,16 @@ Partial Class XtraForm2
         Me.GridControl2.TabIndex = 0
         Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.TileView2})
         '
+        'VWTEMPQUICKVIEWBindingSource
+        '
+        Me.VWTEMPQUICKVIEWBindingSource.DataMember = "VWTEMPQUICKVIEW"
+        Me.VWTEMPQUICKVIEWBindingSource.DataSource = Me.DD_ECMAdmin
+        '
+        'DD_ECMAdmin
+        '
+        Me.DD_ECMAdmin.DataSetName = "DD_ECMAdmin"
+        Me.DD_ECMAdmin.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+        '
         'TileView2
         '
         Me.TileView2.AppearanceItem.Normal.Font = New System.Drawing.Font("Segoe UI Semibold", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -363,19 +403,23 @@ Partial Class XtraForm2
         TileViewItemElement4.Appearance.Normal.Options.UseFont = True
         TileViewItemElement4.Appearance.Normal.Options.UseForeColor = True
         TileViewItemElement4.Column = Me.colAktenzeichen
+        TileViewItemElement4.ImageBorderColor = System.Drawing.Color.Empty
         TileViewItemElement4.Text = "colAktenzeichen"
         TileViewItemElement4.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
         TileViewItemElement4.TextLocation = New System.Drawing.Point(120, 0)
         TileViewItemElement5.Column = Me.TileViewColumn5
         TileViewItemElement5.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
         TileViewItemElement5.ImageBorder = DevExpress.XtraEditors.TileItemElementImageBorderMode.None
+        TileViewItemElement5.ImageBorderColor = System.Drawing.Color.Empty
         TileViewItemElement5.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
         TileViewItemElement5.Text = "TileViewColumn5"
         TileViewItemElement6.Column = Me.colTagderEintragungimRegister
+        TileViewItemElement6.ImageBorderColor = System.Drawing.Color.Empty
         TileViewItemElement6.Text = "colTagderEintragungimRegister"
         TileViewItemElement6.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
         TileViewItemElement6.TextLocation = New System.Drawing.Point(120, 20)
         TileViewItemElement7.Column = Me.colAktenzustand
+        TileViewItemElement7.ImageBorderColor = System.Drawing.Color.Empty
         TileViewItemElement7.Text = "colAktenzustand"
         Me.TileView2.TileTemplate.Add(TileViewItemElement4)
         Me.TileView2.TileTemplate.Add(TileViewItemElement5)
@@ -383,6 +427,13 @@ Partial Class XtraForm2
         Me.TileView2.TileTemplate.Add(TileViewItemElement7)
         Me.TileView2.ViewCaption = "dfsdfsdf"
         '
+        'TileViewColumn4
+        '
+        Me.TileViewColumn4.FieldName = "Record-ID"
+        Me.TileViewColumn4.Name = "TileViewColumn4"
+        Me.TileViewColumn4.Visible = True
+        Me.TileViewColumn4.VisibleIndex = 0
+        '
         'SplitContainer_Main
         '
         Me.SplitContainer_Main.Dock = System.Windows.Forms.DockStyle.Fill
@@ -426,16 +477,6 @@ Partial Class XtraForm2
         Me.SplitContainer_Bottom.TabIndex = 0
         Me.SplitContainer_Bottom.Text = "SplitContainerControl1"
         '
-        'DD_ECMAdmin
-        '
-        Me.DD_ECMAdmin.DataSetName = "DD_ECMAdmin"
-        Me.DD_ECMAdmin.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
-        '
-        'VWTEMPQUICKVIEWBindingSource
-        '
-        Me.VWTEMPQUICKVIEWBindingSource.DataMember = "VWTEMPQUICKVIEW"
-        Me.VWTEMPQUICKVIEWBindingSource.DataSource = Me.DD_ECMAdmin
-        '
         'VWTEMPQUICKVIEWTableAdapter
         '
         Me.VWTEMPQUICKVIEWTableAdapter.ClearBeforeFill = True
@@ -449,41 +490,6 @@ Partial Class XtraForm2
         Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing
         Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
-        'TileViewColumn4
-        '
-        Me.TileViewColumn4.FieldName = "Record-ID"
-        Me.TileViewColumn4.Name = "TileViewColumn4"
-        Me.TileViewColumn4.Visible = True
-        Me.TileViewColumn4.VisibleIndex = 0
-        '
-        'colAktenzeichen
-        '
-        Me.colAktenzeichen.FieldName = "Aktenzeichen"
-        Me.colAktenzeichen.Name = "colAktenzeichen"
-        Me.colAktenzeichen.Visible = True
-        Me.colAktenzeichen.VisibleIndex = 1
-        '
-        'TileViewColumn5
-        '
-        Me.TileViewColumn5.FieldName = "Wiedergabe der Marke (Bild)"
-        Me.TileViewColumn5.Name = "TileViewColumn5"
-        Me.TileViewColumn5.Visible = True
-        Me.TileViewColumn5.VisibleIndex = 2
-        '
-        'colTagderEintragungimRegister
-        '
-        Me.colTagderEintragungimRegister.FieldName = "Tag der Eintragung im Register"
-        Me.colTagderEintragungimRegister.Name = "colTagderEintragungimRegister"
-        Me.colTagderEintragungimRegister.Visible = True
-        Me.colTagderEintragungimRegister.VisibleIndex = 3
-        '
-        'colAktenzustand
-        '
-        Me.colAktenzustand.FieldName = "Aktenzustand"
-        Me.colAktenzustand.Name = "colAktenzustand"
-        Me.colAktenzustand.Visible = True
-        Me.colAktenzustand.VisibleIndex = 4
-        '
         'XtraForm2
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -510,6 +516,8 @@ Partial Class XtraForm2
         CType(Me.TileView1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.XtraTabPage2.ResumeLayout(False)
         CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.VWTEMPQUICKVIEWBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TileView2, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.SplitContainer_Main, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainer_Main.ResumeLayout(False)
@@ -517,8 +525,6 @@ Partial Class XtraForm2
         Me.SplitContainer_Top.ResumeLayout(False)
         CType(Me.SplitContainer_Bottom, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainer_Bottom.ResumeLayout(False)
-        CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.VWTEMPQUICKVIEWBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 

app/DD-Record-Organiser/XtraForm2.vb

@@ -585,35 +585,144 @@ Public Class XtraForm2
         CreateTile()
     End Sub
     Sub CreateTile()
-
+        Dim HasImages As Boolean = False
-        Dim PictureIndex = 99
+        Dim ImageIndex As Integer = -1
-        Dim DT = DirectCast(DT_SELECTION, DataTable)
         Dim i As Integer = 0
-        For Each Column As DataColumn In DT.Columns
+        Dim j As Integer = 0
-            If Column.DataType.ToString.Contains("Byte") Then
+        Dim DT As DataTable = DirectCast(DT_SELECTION, DataTable)
-                PictureIndex = i
+        Dim Elements As New List(Of TileViewItemElement)
-            End If
+
-            i += 1
+        Dim PrimaryFont As New Font("Segoe UI", 11)
-        Next
+        Dim SecondaryFont As New Font("Segoe UI", 9)
-        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.OptionsTiles.Orientation = Orientation.Horizontal
         TileView1.AppearanceItem.Normal.ForeColor = Color.Maroon
-       
 
-       
+        ' Datatable laden
-        TileView1.TileTemplate.Add(New TileViewItemElement With {.Column = TileView1.Columns(3), .TextAlignment = TileItemContentAlignment.TopRight})
+        GridControl1.DataSource = DT
-        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
+        For Each Column As DataColumn In DT.Columns
+            Dim index As Integer = DT.Columns.IndexOf(Column)
+
+            Select Case index
+                Case 0
+                    ' RecordId
+                Case 1
+                    ' Index 1 ist das Bild
+                    If Column.DataType.ToString.Contains("Byte") Then
+                        Dim ImageColumn As New TileViewItemElement()
+                        With ImageColumn
+                            .Column = TileView1.Columns(1)
+                            .ImageSize = New Size(124, 60)
+                            .ImageScaleMode = TileItemImageScaleMode.Squeeze
+                            .ImageAlignment = TileItemContentAlignment.Manual
+                            .ImageLocation = New Point(0, 0)
+                        End With
+                        Elements.Add(ImageColumn)
+                    End If
+                Case 2
+                    ' Index 2 ist die Headline
+                    Dim HeadlineColumn As New TileViewItemElement()
+                    With HeadlineColumn
+                        .Column = TileView1.Columns(2)
+                        .TextAlignment = TileItemContentAlignment.TopRight
+                        .Appearance.Normal.Font = PrimaryFont
+                        .Appearance.Normal.ForeColor = SystemColors.MenuHighlight
+                        .Column.OptionsFilter.AllowFilter = True
+                    End With
+                    Elements.Add(HeadlineColumn)
+                Case 3 - 5
+                    ' Indexe 3 - 5 sind normale Textzeilen
+                    Dim TextColumn As New TileViewItemElement()
+                    With TextColumn
+                        .Column = TileView1.Columns(i)
+                        .TextAlignment = TileItemContentAlignment.MiddleRight
+                        .Column.OptionsFilter.AllowFilter = True
+                        '.AnchorElement = Elements.Last()
+                        '.AnchorAlignment = AnchorAlignment.Bottom
+                    End With
+                    Elements.Add(TextColumn)
+            End Select
+
+
+        Next
+
+        For Each El As TileViewItemElement In Elements
+            TileView1.TileTemplate.Add(El)
+        Next
+
+        'Dim PictureIndex As Integer = -1
+        '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
+
+        'If PictureIndex <> -1 Then
+        '    HasImages = True
+        'End If
+
+        'GridControl1.DataSource = DT
+        'Das BackgroundImage setzen
+        'If PictureIndex <> -1 Then
+        '    TileView1.ColumnSet.BackgroundImageColumn = TileView1.Columns(PictureIndex) '"Image")
+        '    TileView1.OptionsTiles.ItemBackgroundImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
+        '    TileView1.OptionsTiles.ItemBackgroundImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
+        'End If
+
+
+
+
+
+        'Dim ImageColumn As New TileViewItemElement()
+        'With ImageColumn
+        '    .Column = TileView1.Columns(2)
+        '    .ImageSize = New Size(124, 60)
+        '    .ImageAlignment = TileItemContentAlignment.MiddleLeft
+        '    .ImageScaleMode = TileItemImageScaleMode.ZoomOutside
+        '    .ImageBorder = TileItemElementImageBorderMode.None
+        '    .MaxWidth = 124
+        'End With
+
+
+
+
+
+        'Dim PrimaryColumn As New TileViewItemElement()
+        'With PrimaryColumn
+        '    .Column = TileView1.Columns(1)
+        '    .TextAlignment = TileItemContentAlignment.TopRight
+        '    .Appearance.Normal.ForeColor = SystemColors.MenuHighlight
+        '    .Appearance.Normal.Font = PrimaryFont
+        'End With
+
+        'Dim SecondaryColumn As New TileViewItemElement()
+        'With SecondaryColumn
+        '    .Column = TileView1.Columns(3)
+        '    '.TextAlignment = TileItemContentAlignment.MiddleRight
+        '    .Appearance.Normal.ForeColor = Color.Black
+        '    .Appearance.Normal.Font = SecondaryFont
+        '    .TextAlignment = TileItemContentAlignment.MiddleRight
+        'End With
+
+
+
+
+        'TileView1.TileTemplate.Add(PrimaryColumn)
+        'TileView1.TileTemplate.Add(ImageColumn)
+        'TileView1.TileTemplate.Add(SecondaryColumn)
+
+        'TileView1.TileTemplate.Add(New TileViewItemElement With {.Column = TileView1.Columns(3), .TextAlignment = TileItemContentAlignment.MiddleCenter})
+        '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)