AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

JJ_10_11 tiletext

Browse Source
This commit is contained in:
JenneJ 2015-11-10 15:52:26 +01:00
parent da7c69348b
commit 68c69a24c3
2 changed files with 36 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
app/DD-Record-Organiser/XtraForm2.Designer.vb generated
View File

@ -1,6 +1,6 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmConstructor_Main
Inherits DevExpress.XtraEditors.XtraForm
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
@ -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
'

60
app/DD-Record-Organiser/XtraForm2.vb
View File

@ -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,48 +610,57 @@ 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
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
.Column.OptionsFilter.AllowFilter = True
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
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
.Column = TileView1.Columns(index)
.TextAlignment = TileItemContentAlignment.Manual
.TextLocation = New Point(200, 100 + (OffsetIndex * 40))
.Appearance.Normal.Font = SecondaryFont
End With
Elements.Add(TextColumn)
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
'Dim DT = DirectCast(DT_SELECTION, DataTable)
'Dim i As Integer = 0