From 68c69a24c3da6b9b94cf921b3476ac7d7d510363 Mon Sep 17 00:00:00 2001 From: JenneJ Date: Tue, 10 Nov 2015 15:52:26 +0100 Subject: [PATCH] JJ_10_11 tiletext --- app/DD-Record-Organiser/XtraForm2.Designer.vb | 3 +- app/DD-Record-Organiser/XtraForm2.vb | 60 +++++++++++-------- 2 files changed, 36 insertions(+), 27 deletions(-) diff --git a/app/DD-Record-Organiser/XtraForm2.Designer.vb b/app/DD-Record-Organiser/XtraForm2.Designer.vb index 07b1250..a05b2b9 100644 --- a/app/DD-Record-Organiser/XtraForm2.Designer.vb +++ b/app/DD-Record-Organiser/XtraForm2.Designer.vb @@ -1,6 +1,6 @@  _ Partial Class frmConstructor_Main - Inherits DevExpress.XtraEditors.XtraForm + Inherits System.Windows.Forms.Form 'Form overrides dispose to clean up the component list. _ @@ -358,6 +358,7 @@ Partial Class frmConstructor_Main Me.TileView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] Me.TileView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] Me.TileView1.OptionsFind.AlwaysVisible = True + Me.TileView1.OptionsTiles.ItemSize = New System.Drawing.Size(372, 180) Me.TileView1.OptionsTiles.RowCount = 2 Me.TileView1.OptionsTiles.ScrollMode = DevExpress.XtraEditors.TileControlScrollMode.ScrollButtons ' diff --git a/app/DD-Record-Organiser/XtraForm2.vb b/app/DD-Record-Organiser/XtraForm2.vb index 40dc529..de2aedb 100644 --- a/app/DD-Record-Organiser/XtraForm2.vb +++ b/app/DD-Record-Organiser/XtraForm2.vb @@ -590,20 +590,19 @@ Public Class frmConstructor_Main Dim i As Integer = 0 Dim j As Integer = 0 Dim DT As DataTable = DirectCast(DT_SELECTION, DataTable) - Dim Elements As New List(Of TileViewItemElement) Dim PrimaryFont As New Font("Segoe UI", 14, FontStyle.Bold) Dim SecondaryFont As New Font("Segoe UI", 12) - 'Anpassung der Eigenschaften - TileView1.OptionsTiles.Orientation = Orientation.Horizontal - TileView1.AppearanceItem.Normal.ForeColor = Color.Maroon - ' Datatable laden GridControl1.DataSource = DT For Each Column As DataColumn In DT.Columns Dim index As Integer = DT.Columns.IndexOf(Column) + Dim ImageColumn As TileViewItemElement + Dim HeadlineColumn As TileViewItemElement + Dim TextColumn As TileViewItemElement + Dim TextHeaderColumn As TileViewItemElement Select Case index Case 0 @@ -611,46 +610,55 @@ Public Class frmConstructor_Main Case 1 ' Index 1 ist das Bild If Column.DataType.ToString.Contains("Byte") Then - Dim ImageColumn As New TileViewItemElement() + ImageColumn = New TileViewItemElement() With ImageColumn .Column = TileView1.Columns(1) - .ImageSize = New Size(124, 60) + .ImageSize = New Size(186, 90) .ImageScaleMode = TileItemImageScaleMode.Squeeze - .ImageAlignment = TileItemContentAlignment.Manual - .ImageLocation = New Point(0, 0) + .ImageAlignment = TileItemContentAlignment.BottomLeft End With - Elements.Add(ImageColumn) + TileView1.TileTemplate.Add(ImageColumn) End If Case 2 ' Index 2 ist die Headline - Dim HeadlineColumn As New TileViewItemElement() + HeadlineColumn = New TileViewItemElement() With HeadlineColumn .Column = TileView1.Columns(2) .TextAlignment = TileItemContentAlignment.TopRight .Appearance.Normal.Font = PrimaryFont .Appearance.Normal.ForeColor = Color.DodgerBlue - .Column.OptionsFilter.AllowFilter = True End With - Elements.Add(HeadlineColumn) - Case 3 - 5 - ' Indexe 3 - 5 sind normale Textzeilen - Dim TextColumn As New TileViewItemElement() + TileView1.TileTemplate.Add(HeadlineColumn) + Case 3 To 4 + ' Indexe 3 und 4 sind normale Textzeilen + TextColumn = New TileViewItemElement() + TextHeaderColumn = New TileViewItemElement() + Dim OffsetIndex = index - 3 + Dim LastElement = DirectCast(TileView1.TileTemplate.Last, TileViewItemElement) + Dim TileSize = TileView1.OptionsTiles.ItemSize + + With TextHeaderColumn + + .Text = Column.ColumnName + .TextAlignment = TileItemContentAlignment.Manual + .TextLocation = New Point(200, 80 + (OffsetIndex * 40)) + .Appearance.Normal.Font = SecondaryFont + .Appearance.Normal.ForeColor = Color.Red + End With + With TextColumn - .Column = TileView1.Columns(i) - .TextAlignment = TileItemContentAlignment.MiddleRight - .Column.OptionsFilter.AllowFilter = True - '.AnchorElement = Elements.Last() - '.AnchorAlignment = AnchorAlignment.Bottom + .Column = TileView1.Columns(index) + .TextAlignment = TileItemContentAlignment.Manual + .TextLocation = New Point(200, 100 + (OffsetIndex * 40)) + .Appearance.Normal.Font = SecondaryFont End With - Elements.Add(TextColumn) - End Select + TileView1.TileTemplate.Add(TextHeaderColumn) + TileView1.TileTemplate.Add(TextColumn) + End Select - Next - For Each El As TileViewItemElement In Elements - TileView1.TileTemplate.Add(El) Next 'Dim PictureIndex As Integer = -1