AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

jj: show sorted indicies

Browse Source
This commit is contained in:
Jonathan Jenne 2018-05-23 13:45:10 +02:00
parent 3bc864952d
commit fb86a33f11
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
app/DD_PM_WINDREAM/frmFormDesigner.vb
View File

@ -31,7 +31,11 @@ Public Class frmFormDesigner
clsWindream.Create_Session()
'Windream Abfragen, sollten einmal beim Start des Formulars geladen werden
Windream_AllIndicies = clsWD_GET.GetIndicesByObjecttype(CURRENT_OBJECTTYPE).ToList()
Dim unsortedIndicies = clsWD_GET.GetIndicesByObjecttype(CURRENT_OBJECTTYPE).ToList()
Dim sortedIndicies = unsortedIndicies.OrderBy(Function(index As String) index).ToList()
Windream_AllIndicies = sortedIndicies
Windream_ChoiceLists = clsWD_GET.GetChoiceLists()
Windream_VectorIndicies = Windream_AllIndicies.FindAll(AddressOf IsVectorIndex)
Windream_SimpleIndicies = Windream_AllIndicies.Except(Windream_VectorIndicies).ToList()
@ -565,6 +569,7 @@ Public Class frmFormDesigner
obj.ChangedAt = NotNull(row.Item("CHANGED_WHEN"), Nothing)
obj.ChangedWho = NotNull(row.Item("CHANGED_WHO"), "")
Dim style As FontStyle = NotNull(row.Item("FONT_STYLE"), FontStyle.Regular)
Dim size As Single = NotNull(row.Item("FONT_SIZE"), 10)
Dim familyString As String = NotNull(row.Item("FONT_FAMILY"), "Arial")