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

Copy only focused cell for main doc grid an all grids in validator

Browse Source
This commit is contained in:
Jonathan Jenne 2021-10-01 16:17:22 +02:00
parent 75d1ceb3de
commit 87b9198c36
4 changed files with 23 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
app/DD_PM_WINDREAM/ClassControlCreator.vb
View File

@ -423,6 +423,11 @@ Public Class ClassControlCreator
oView.OptionsBehavior.ReadOnly = row.Item("READ_ONLY") oView.OptionsBehavior.ReadOnly = row.Item("READ_ONLY")
oControl.UseEmbeddedNavigator = Not row.Item("READ_ONLY") oControl.UseEmbeddedNavigator = Not row.Item("READ_ONLY")
' Copy single cell value in CTRL+C instead of whole row
oView.OptionsSelection.MultiSelectMode = GridMultiSelectMode.CellSelect
oView.OptionsSelection.MultiSelect = True
oView.OptionsClipboard.CopyColumnHeaders = DefaultBoolean.False
If row.Item("VKT_ADD_ITEM") = True Then If row.Item("VKT_ADD_ITEM") = True Then
oView.OptionsBehavior.AllowAddRows = DefaultBoolean.True oView.OptionsBehavior.AllowAddRows = DefaultBoolean.True
oView.OptionsBehavior.AllowDeleteRows = DefaultBoolean.True oView.OptionsBehavior.AllowDeleteRows = DefaultBoolean.True

2
app/DD_PM_WINDREAM/frmMain.Designer.vb generated
View File

@ -336,6 +336,8 @@ Partial Class frmMain
Me.GridView_Docs.OptionsBehavior.AllowGroupExpandAnimation = DevExpress.Utils.DefaultBoolean.[True] Me.GridView_Docs.OptionsBehavior.AllowGroupExpandAnimation = DevExpress.Utils.DefaultBoolean.[True]
Me.GridView_Docs.OptionsBehavior.Editable = False Me.GridView_Docs.OptionsBehavior.Editable = False
Me.GridView_Docs.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] Me.GridView_Docs.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView_Docs.OptionsSelection.MultiSelect = True
Me.GridView_Docs.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridView_Docs.OptionsView.ColumnAutoWidth = False Me.GridView_Docs.OptionsView.ColumnAutoWidth = False
Me.GridView_Docs.OptionsView.EnableAppearanceEvenRow = True Me.GridView_Docs.OptionsView.EnableAppearanceEvenRow = True
Me.GridView_Docs.OptionsView.ShowAutoFilterRow = True Me.GridView_Docs.OptionsView.ShowAutoFilterRow = True

2
app/DD_PM_WINDREAM/frmMain.resx
View File

@ -125,7 +125,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
CAAAAk1TRnQBSQFMAgEBAgEAAbQBBwG0AQcBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo CAAAAk1TRnQBSQFMAgEBAgEAAcQBBwHEAQcBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

17
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -361,6 +361,7 @@ Public Class frmMain
Else Else
RibbonPageGroupBasicConf.Visible = True RibbonPageGroupBasicConf.Visible = True
End If End If
LOGGER.Debug("MainForm initialized!") LOGGER.Debug("MainForm initialized!")
FormOpenClose = False FormOpenClose = False
@ -981,7 +982,7 @@ Public Class frmMain
GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False
GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex)
End Try End Try
LOGGER.Debug("All columns in CreateBasicView created") LOGGER.Debug("All columns in CreateBasicView created")
Catch ex As Exception Catch ex As Exception
@ -2356,7 +2357,9 @@ Public Class frmMain
LoadNavBar() LoadNavBar()
Await Decide_Load(False, True) Await Decide_Load(False, True)
If GridControl_Docs.Visible = True And FormOpenClose = False Then RefreshHelper.LoadViewInfo() If GridControl_Docs.Visible = True And FormOpenClose = False Then
RefreshHelper.LoadViewInfo()
End If
End Sub End Sub
Private Sub bbtniMonitor_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniMonitor.ItemClick Private Sub bbtniMonitor_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniMonitor.ItemClick
@ -2698,4 +2701,14 @@ Public Class frmMain
Private Sub bsilastsync_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bsilastsync.ItemClick Private Sub bsilastsync_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bsilastsync.ItemClick
End Sub End Sub
Private Sub GridView_Docs_KeyDown(sender As Object, e As KeyEventArgs) Handles GridView_Docs.KeyDown
Dim view As GridView = CType(sender, GridView)
If e.Control AndAlso e.KeyCode = Keys.C Then
If view.GetRowCellValue(view.FocusedRowHandle, view.FocusedColumn) IsNot Nothing AndAlso view.GetRowCellValue(view.FocusedRowHandle, view.FocusedColumn).ToString() <> [String].Empty Then
Clipboard.SetText(view.GetRowCellValue(view.FocusedRowHandle, view.FocusedColumn).ToString())
End If
e.Handled = True
End If
End Sub
End Class End Class