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

Version6: Bugfixing, Vektorindexing etc

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2019-08-23 10:37:13 +02:00
parent 560b2fa37b
commit 770fc8d159
24 changed files with 757 additions and 554 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
app/DD_PM_WINDREAM/ClassControlCreator.vb
View File

@@ -322,7 +322,7 @@ Public Class ClassControlCreator
Return control
End Function
Public Shared Function CreateExistingTable(row As DataRow, columns As List(Of DD_DMSLiteDataSet.TBPM_CONTROL_TABLERow), designMode As Boolean) As GridControl
Public Shared Function CreateExistingGridControl(row As DataRow, columns As List(Of DD_DMSLiteDataSet.TBPM_CONTROL_TABLERow), designMode As Boolean) As GridControl
Dim oControl As GridControl = CreateBaseControl(New GridControl(), row, designMode)
Dim oDatatable As New DataTable
Dim oView As GridView
@@ -331,6 +331,7 @@ Public Class ClassControlCreator
oView = oControl.DefaultView
oView.OptionsView.ShowGroupPanel = False
oControl.ContextMenu = Nothing
If Not designMode Then
oView.OptionsBehavior.Editable = Not row.Item("READ_ONLY")
@@ -338,9 +339,11 @@ Public Class ClassControlCreator
If row.Item("VKT_ADD_ITEM") = True Then
oView.OptionsBehavior.AllowAddRows = DefaultBoolean.True
oView.OptionsBehavior.AllowDeleteRows = DefaultBoolean.True
oView.OptionsView.NewItemRowPosition = NewItemRowPosition.Bottom
Else
oView.OptionsBehavior.AllowAddRows = DefaultBoolean.False
oView.OptionsBehavior.AllowDeleteRows = DefaultBoolean.False
oView.OptionsView.NewItemRowPosition = NewItemRowPosition.None
End If
End If
@@ -359,6 +362,7 @@ Public Class ClassControlCreator
.NextPage.Visible = False
.PrevPage.Visible = False
.Prev.Visible = False
End With
For Each oRow As DD_DMSLiteDataSet.TBPM_CONTROL_TABLERow In columns