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

complete grey backgrounds for controls

Browse Source
This commit is contained in:
Jonathan Jenne 2019-10-17 15:49:47 +02:00
parent e2ea5583ae
commit ec8e6b76b9
2 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
app/DD_PM_WINDREAM/ClassControlCreator.vb
View File

@ -242,6 +242,7 @@ Public Class ClassControlCreator
control.AcceptsReturn = True control.AcceptsReturn = True
control.ReadOnly = row.Item("READ_ONLY") control.ReadOnly = row.Item("READ_ONLY")
control.TabStop = Not row.Item("READ_ONLY") control.TabStop = Not row.Item("READ_ONLY")
control.BackColor = IIf(row.Item("READ_ONLY"), Color.LightGray, Color.White)
Else Else
control.ReadOnly = True control.ReadOnly = True
End If End If
@ -266,10 +267,10 @@ Public Class ClassControlCreator
If Not designMode Then If Not designMode Then
control.Enabled = Not row.Item("READ_ONLY") control.Enabled = Not row.Item("READ_ONLY")
control.TabStop = 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.AutoCompleteMode = AutoCompleteMode.SuggestAppend
control.AutoCompleteSource = AutoCompleteSource.ListItems control.AutoCompleteSource = AutoCompleteSource.ListItems
End If End If
Return control Return control

21
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -1528,17 +1528,16 @@ Public Class frmMain
'If e.Button = MouseButtons.Left Then 'If e.Button = MouseButtons.Left Then
' wenn in eine Group Row Doppelt geklickt wurde.. ' wenn in eine Group Row Doppelt geklickt wurde..
If hi.InGroupRow And Not groupRowButtonClicked Then If hi.InGroupRow And Not groupRowButtonClicked Then
' Ein/Ausklappen verhindern ' Ein/Ausklappen verhindern
DXMouseEventArgs.GetMouseArgs(e).Handled = True DXMouseEventArgs.GetMouseArgs(e).Handled = True
GridViewItem_Clicked = "GROUP" GridViewItem_Clicked = "GROUP"
CURRENT_CLICKED_PROFILE_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hi.RowHandle), GridView_Docs.Columns("PROFILE_ID")) CURRENT_CLICKED_PROFILE_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hi.RowHandle), GridView_Docs.Columns("PROFILE_ID"))
ElseIf hi.InDataRow Then ElseIf hi.InDataRow Then
GridViewItem_Clicked = "ROW" GridViewItem_Clicked = "ROW"
Dim profileid = CURRENT_CLICKED_PROFILE_ID CURRENT_CLICKED_PROFILE_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hi.RowHandle), GridView_Docs.Columns("PROFILE_ID"))
Else Else
GridViewItem_Clicked = Nothing GridViewItem_Clicked = Nothing
End If End If
'End If
End Sub End Sub
Private Sub GridView_Docs_ColumnWidthChanged(sender As Object, e As Views.Base.ColumnEventArgs) Handles GridView_Docs.ColumnWidthChanged Private Sub GridView_Docs_ColumnWidthChanged(sender As Object, e As Views.Base.ColumnEventArgs) Handles GridView_Docs.ColumnWidthChanged