'Initialisieren der Datenbestandsgrids - gemeinsame Eigenschaften
 
Public Sub GridInit(ByRef Grid As sevDataGrid2.sevGrid)
With Grid
    .Clear True
    .AllowAutoColumnSizing = True
    .AllowColumnReorder = True
    .AutoRedraw = False
    .AutoRefreshVScroll = True
    .Appearance = SHOW_2D
    .BorderStyle = BORDER_SIMPLE
    .BackColor = &H80000005
    .BackColorEven = &H80000005
    .BackColorOdd = &H80000013
    .CaptionBackColorFrom = &H80000001
    .CaptionBackColorTo = &H80000003
    .CaptionForeColor = &H8000000E
    .CaptionFont.Name = "Arial"
    .CaptionFont.Size = 14
    .CaptionFont.Bold = True
    .ColumnHeaderBackColor = &H80000003
    .ColumnHeaderForeColor = &H8000000E
    .CaptionHeight = 32
    .CaptionVisible = True
    .EditBackColor = &H80000005
    .EditBorderColor = &HB99D7F
    .EditBtnBackColor = &HFDCEBB
    .EditBtnBackColorDown = &HFDCEBB
    .EditBtnForeColor = &H80000012
    .EditForeColor = &H80000008
    .FilterAlign = FILTER_ALIGN_TOP
    .FilterMoveTAB = True
    .FixedCol = True
    .FixedColWidth = 500
    .FilterBackColor = &H80000005
    .FilterBackColorDisabled = &H80000016
    .FilterFixColBackColor = &H80000013
    .FilterForeColor = &H80000001
    .FilterForeColorDisabled = &H80000011
    .FilterMoveTAB = True
    .FlatHeaders = True
    .FooterBackColor = &H80000003
    .FooterForeColor = &H8000000E
    .ForeColor = &H80000008
    .GridColor = &H80000003
    .GridLinesShowAlways = False
    .HighlightForeColor = &H80000005
    .HighlightBackColor = &H80000001
    .LinkColor = &HFF0000
    .MaskColor = &HFFFFFF
    .LostFocusEditMode = GRID_DONONE
    .StartEditWith = EDIT_DBLCLICK
    .ScrollBars = SB_AUTO
    .ScrollBarBackColor = &HE0E0E0
    .ScrollBtnBackColor = &H80000003
    .ScrollBtnBackColorDown = &H80000001
    .ScrollBtnBorderColor = &H8000000E
    .ScrollBtnForeColor = &H80000013
    .ScrollBtnForeColorDown = &H80000014
    .SaveNullValues = True
End With
End Sub