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

JJ 09_11 TILES!!

Browse Source
This commit is contained in:
JenneJ
2015-11-09 15:17:08 +01:00
parent 861e6b82e0
commit ccbc84bf51
2 changed files with 196 additions and 81 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -585,35 +585,144 @@ Public Class XtraForm2
CreateTile()
End Sub
Sub CreateTile()
Dim PictureIndex = 99
Dim DT = DirectCast(DT_SELECTION, DataTable)
Dim HasImages As Boolean = False
Dim ImageIndex As Integer = -1
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
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", 11)
Dim SecondaryFont As New Font("Segoe UI", 9)
TileView1.OptionsTiles.Orientation = Orientation.Horizontal
'Anpassung der Eigenschaften
TileView1.OptionsTiles.Orientation = Orientation.Horizontal
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
' Datatable laden
GridControl1.DataSource = DT
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)