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

Merge branch 'master' of http://scmadmin@172.24.11.74:90/scm/git/record_organizer

Browse Source
This commit is contained in:
SchreiberM
2015-11-11 08:32:48 +01:00
parent 5d21640427 68c69a24c3
commit 4011f2c73c
2 changed files with 36 additions and 27 deletions
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()> _ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmConstructor_Main Partial Class frmConstructor_Main
Inherits DevExpress.XtraEditors.XtraForm Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list. 'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _ <System.Diagnostics.DebuggerNonUserCode()> _
@@ -358,6 +358,7 @@ Partial Class frmConstructor_Main
Me.TileView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] Me.TileView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.TileView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] Me.TileView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.TileView1.OptionsFind.AlwaysVisible = True Me.TileView1.OptionsFind.AlwaysVisible = True
Me.TileView1.OptionsTiles.ItemSize = New System.Drawing.Size(372, 180)
Me.TileView1.OptionsTiles.RowCount = 2 Me.TileView1.OptionsTiles.RowCount = 2
Me.TileView1.OptionsTiles.ScrollMode = DevExpress.XtraEditors.TileControlScrollMode.ScrollButtons 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 i As Integer = 0
Dim j As Integer = 0 Dim j As Integer = 0
Dim DT As DataTable = DirectCast(DT_SELECTION, DataTable) 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 PrimaryFont As New Font("Segoe UI", 14, FontStyle.Bold)
Dim SecondaryFont As New Font("Segoe UI", 12) Dim SecondaryFont As New Font("Segoe UI", 12)
'Anpassung der Eigenschaften
TileView1.OptionsTiles.Orientation = Orientation.Horizontal
TileView1.AppearanceItem.Normal.ForeColor = Color.Maroon
' Datatable laden ' Datatable laden
GridControl1.DataSource = DT GridControl1.DataSource = DT
For Each Column As DataColumn In DT.Columns For Each Column As DataColumn In DT.Columns
Dim index As Integer = DT.Columns.IndexOf(Column) 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 Select Case index
Case 0 Case 0
@@ -611,48 +610,57 @@ Public Class frmConstructor_Main
Case 1 Case 1
' Index 1 ist das Bild ' Index 1 ist das Bild
If Column.DataType.ToString.Contains("Byte") Then If Column.DataType.ToString.Contains("Byte") Then
Dim ImageColumn As New TileViewItemElement() ImageColumn = New TileViewItemElement()
With ImageColumn With ImageColumn
.Column = TileView1.Columns(1) .Column = TileView1.Columns(1)
.ImageSize = New Size(124, 60) .ImageSize = New Size(186, 90)
.ImageScaleMode = TileItemImageScaleMode.Squeeze .ImageScaleMode = TileItemImageScaleMode.Squeeze
.ImageAlignment = TileItemContentAlignment.Manual .ImageAlignment = TileItemContentAlignment.BottomLeft
.ImageLocation = New Point(0, 0)
End With End With
Elements.Add(ImageColumn) TileView1.TileTemplate.Add(ImageColumn)
End If End If
Case 2 Case 2
' Index 2 ist die Headline ' Index 2 ist die Headline
Dim HeadlineColumn As New TileViewItemElement() HeadlineColumn = New TileViewItemElement()
With HeadlineColumn With HeadlineColumn
.Column = TileView1.Columns(2) .Column = TileView1.Columns(2)
.TextAlignment = TileItemContentAlignment.TopRight .TextAlignment = TileItemContentAlignment.TopRight
.Appearance.Normal.Font = PrimaryFont .Appearance.Normal.Font = PrimaryFont
.Appearance.Normal.ForeColor = Color.DodgerBlue .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 End With
Elements.Add(HeadlineColumn)
Case 3 - 5
' Indexe 3 - 5 sind normale Textzeilen
Dim TextColumn As New TileViewItemElement()
With TextColumn With TextColumn
.Column = TileView1.Columns(i) .Column = TileView1.Columns(index)
.TextAlignment = TileItemContentAlignment.MiddleRight .TextAlignment = TileItemContentAlignment.Manual
.Column.OptionsFilter.AllowFilter = True .TextLocation = New Point(200, 100 + (OffsetIndex * 40))
'.AnchorElement = Elements.Last() .Appearance.Normal.Font = SecondaryFont
'.AnchorAlignment = AnchorAlignment.Bottom
End With End With
Elements.Add(TextColumn)
TileView1.TileTemplate.Add(TextHeaderColumn)
TileView1.TileTemplate.Add(TextColumn)
End Select End Select
Next Next
For Each El As TileViewItemElement In Elements
TileView1.TileTemplate.Add(El)
Next
'Dim PictureIndex As Integer = -1 'Dim PictureIndex As Integer = -1
'Dim DT = DirectCast(DT_SELECTION, DataTable) 'Dim DT = DirectCast(DT_SELECTION, DataTable)
'Dim i As Integer = 0 'Dim i As Integer = 0