diff --git a/app/DD_PM_WINDREAM/ClassControlCreator.vb b/app/DD_PM_WINDREAM/ClassControlCreator.vb index 624eec3..5b91e46 100644 --- a/app/DD_PM_WINDREAM/ClassControlCreator.vb +++ b/app/DD_PM_WINDREAM/ClassControlCreator.vb @@ -242,6 +242,7 @@ Public Class ClassControlCreator control.AcceptsReturn = True control.ReadOnly = row.Item("READ_ONLY") control.TabStop = Not row.Item("READ_ONLY") + control.BackColor = IIf(row.Item("READ_ONLY"), Color.LightGray, Color.White) Else control.ReadOnly = True End If @@ -266,10 +267,10 @@ Public Class ClassControlCreator If Not designMode Then control.Enabled = Not row.Item("READ_ONLY") control.TabStop = Not row.Item("READ_ONLY") + control.BackColor = IIf(row.Item("READ_ONLY"), Color.LightGray, Color.White) control.AutoCompleteMode = AutoCompleteMode.SuggestAppend control.AutoCompleteSource = AutoCompleteSource.ListItems - End If Return control diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index 3a42cf3..3fd1209 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -1528,17 +1528,16 @@ Public Class frmMain 'If e.Button = MouseButtons.Left Then ' wenn in eine Group Row Doppelt geklickt wurde.. If hi.InGroupRow And Not groupRowButtonClicked Then - ' Ein/Ausklappen verhindern - DXMouseEventArgs.GetMouseArgs(e).Handled = True - GridViewItem_Clicked = "GROUP" - CURRENT_CLICKED_PROFILE_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hi.RowHandle), GridView_Docs.Columns("PROFILE_ID")) - ElseIf hi.InDataRow Then - GridViewItem_Clicked = "ROW" - Dim profileid = CURRENT_CLICKED_PROFILE_ID - Else - GridViewItem_Clicked = Nothing - End If - 'End If + ' Ein/Ausklappen verhindern + DXMouseEventArgs.GetMouseArgs(e).Handled = True + GridViewItem_Clicked = "GROUP" + CURRENT_CLICKED_PROFILE_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hi.RowHandle), GridView_Docs.Columns("PROFILE_ID")) + ElseIf hi.InDataRow Then + GridViewItem_Clicked = "ROW" + CURRENT_CLICKED_PROFILE_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hi.RowHandle), GridView_Docs.Columns("PROFILE_ID")) + Else + GridViewItem_Clicked = Nothing + End If End Sub Private Sub GridView_Docs_ColumnWidthChanged(sender As Object, e As Views.Base.ColumnEventArgs) Handles GridView_Docs.ColumnWidthChanged