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

MS_10.11.2015

Browse Source
This commit is contained in:
SchreiberM
2015-11-10 09:41:29 +01:00
parent 317a223c68
commit 2aa4e4ba58
15 changed files with 141 additions and 125 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -5,7 +5,7 @@ Imports DevExpress.XtraEditors.Repository
Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraGrid.Views.Tile
Public Class XtraForm2
Public Class frmConstructor_Main
Public CONSTRUCTORID As Integer
Public DT_CONSTRUCT_VIEW As DataTable
@@ -592,8 +592,8 @@ Public Class XtraForm2
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)
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
@@ -628,7 +628,8 @@ Public Class XtraForm2
.Column = TileView1.Columns(2)
.TextAlignment = TileItemContentAlignment.TopRight
.Appearance.Normal.Font = PrimaryFont
.Appearance.Normal.ForeColor = SystemColors.MenuHighlight
.Appearance.Normal.ForeColor = Color.DodgerBlue
.Column.OptionsFilter.AllowFilter = True
End With
Elements.Add(HeadlineColumn)
@@ -973,7 +974,7 @@ Public Class XtraForm2
End Try
End Function
Sub Load_Record_Data()
Select Case EDIT_STATE