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

jj 14.12 ClassGridFormatter

Browse Source
This commit is contained in:
JenneJ
2016-12-14 12:09:46 +01:00
parent df67c1ecc1
commit 29b3857635
8 changed files with 3560 additions and 4951 deletions
Download Patch File Download Diff File Expand all files Collapse all files

61
app/DD-Record-Organiser/frmGeodataNavigation.vb
View File

@@ -117,41 +117,46 @@ Public Class frmGeodataNavigation
Private Sub LoadGridData()
If Not IsNothing(EntityDataTable) Then
GridControlGeo.DataSource = EntityDataTable
If IsNothing(EntityDataTable) Then
Exit Sub
End If
Dim listcheck As List(Of String) = ClassHelper.Return_listcheck(CURRENT_ENTITY_ID)
Dim listdate As List(Of String) = ClassHelper.Return_listdate(CURRENT_ENTITY_ID)
Dim gridFormatter As New ClassGridFormatter.ConstructorView(EntityDataTable, CURRENT_ENTITY_ID)
Dim DT_RESULT As DataTable = gridFormatter.FormatDatatable()
GridControlGeo.DataSource = DT_RESULT
gridFormatter.FormatGridView(grvwMain)
Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit()
CheckBoxEditorForDisplay.ValueChecked = 1
CheckBoxEditorForDisplay.ValueUnchecked = 0
GridControlGeo.RepositoryItems.Add(CheckBoxEditorForDisplay)
'Dim listcheck As List(Of String) = ClassHelper.Return_listcheck(CURRENT_ENTITY_ID)
'Dim listdate As List(Of String) = ClassHelper.Return_listdate(CURRENT_ENTITY_ID)
' Alle Checkbox Spalten durchgehen und CheckBoxEditor zuweisen
For Each col As String In listcheck
If Not IsNothing(grvwMain.Columns(col)) Then
grvwMain.Columns(col).ColumnEdit = CheckBoxEditorForDisplay
End If
Next
'Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit()
'CheckBoxEditorForDisplay.ValueChecked = 1
'CheckBoxEditorForDisplay.ValueUnchecked = 0
'GridControlGeo.RepositoryItems.Add(CheckBoxEditorForDisplay)
For Each col As String In listdate
Dim date_edit As New DevExpress.XtraEditors.Repository.RepositoryItemTimeEdit
Dim date_column As GridColumn = grvwMain.Columns(col)
date_column.DisplayFormat.FormatType = FormatType.DateTime
date_column.DisplayFormat.FormatString = CURRENT_DATE_FORMAT
date_column.OptionsFilter.FilterPopupMode = FilterPopupMode.Date
date_column.ColumnEdit = date_edit
date_column.FilterMode = ColumnFilterMode.Value ' was DisplayText
'' Alle Checkbox Spalten durchgehen und CheckBoxEditor zuweisen
'For Each col As String In listcheck
' If Not IsNothing(grvwMain.Columns(col)) Then
' grvwMain.Columns(col).ColumnEdit = CheckBoxEditorForDisplay
' End If
'Next
date_edit.DisplayFormat.FormatType = FormatType.DateTime
date_edit.DisplayFormat.FormatString = CURRENT_DATE_FORMAT
date_edit.Mask.MaskType = Mask.MaskType.DateTime
date_edit.Mask.EditMask = CURRENT_DATE_FORMAT
date_edit.Mask.UseMaskAsDisplayFormat = True
'For Each col As String In listdate
' Dim date_edit As New DevExpress.XtraEditors.Repository.RepositoryItemTimeEdit
' Dim date_column As GridColumn = grvwMain.Columns(col)
' date_column.DisplayFormat.FormatType = FormatType.DateTime
' date_column.DisplayFormat.FormatString = CURRENT_DATE_FORMAT
' date_column.OptionsFilter.FilterPopupMode = FilterPopupMode.Date
' date_column.ColumnEdit = date_edit
' date_column.FilterMode = ColumnFilterMode.Value ' was DisplayText
Next
' date_edit.DisplayFormat.FormatType = FormatType.DateTime
' date_edit.DisplayFormat.FormatString = CURRENT_DATE_FORMAT
' date_edit.Mask.MaskType = Mask.MaskType.DateTime
' date_edit.Mask.EditMask = CURRENT_DATE_FORMAT
' date_edit.Mask.UseMaskAsDisplayFormat = True
'Next
' Styles for GridControl
grvwMain.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.None