From 87b9198c36d1fc02d74c93ceedbf1f41e2681f8a Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Fri, 1 Oct 2021 16:17:22 +0200
Subject: [PATCH] Copy only focused cell for main doc grid an all grids in
 validator

---
 app/DD_PM_WINDREAM/ClassControlCreator.vb |  5 +++++
 app/DD_PM_WINDREAM/frmMain.Designer.vb    |  2 ++
 app/DD_PM_WINDREAM/frmMain.resx           |  2 +-
 app/DD_PM_WINDREAM/frmMain.vb             | 17 +++++++++++++++--
 4 files changed, 23 insertions(+), 3 deletions(-)

diff --git a/app/DD_PM_WINDREAM/ClassControlCreator.vb b/app/DD_PM_WINDREAM/ClassControlCreator.vb
index c26c8b3..2db4dfc 100644
--- a/app/DD_PM_WINDREAM/ClassControlCreator.vb
+++ b/app/DD_PM_WINDREAM/ClassControlCreator.vb
@@ -423,6 +423,11 @@ Public Class ClassControlCreator
             oView.OptionsBehavior.ReadOnly = 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
                 oView.OptionsBehavior.AllowAddRows = DefaultBoolean.True
                 oView.OptionsBehavior.AllowDeleteRows = DefaultBoolean.True
diff --git a/app/DD_PM_WINDREAM/frmMain.Designer.vb b/app/DD_PM_WINDREAM/frmMain.Designer.vb
index ce92ff4..da81ad5 100644
--- a/app/DD_PM_WINDREAM/frmMain.Designer.vb
+++ b/app/DD_PM_WINDREAM/frmMain.Designer.vb
@@ -336,6 +336,8 @@ Partial Class frmMain
         Me.GridView_Docs.OptionsBehavior.AllowGroupExpandAnimation = DevExpress.Utils.DefaultBoolean.[True]
         Me.GridView_Docs.OptionsBehavior.Editable = 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.EnableAppearanceEvenRow = True
         Me.GridView_Docs.OptionsView.ShowAutoFilterRow = True
diff --git a/app/DD_PM_WINDREAM/frmMain.resx b/app/DD_PM_WINDREAM/frmMain.resx
index c1d0f42..6d3701c 100644
--- a/app/DD_PM_WINDREAM/frmMain.resx
+++ b/app/DD_PM_WINDREAM/frmMain.resx
@@ -125,7 +125,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
-        CAAAAk1TRnQBSQFMAgEBAgEAAbQBBwG0AQcBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CAAAAk1TRnQBSQFMAgEBAgEAAcQBBwHEAQcBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb
index 7a4dbbf..e5d3792 100644
--- a/app/DD_PM_WINDREAM/frmMain.vb
+++ b/app/DD_PM_WINDREAM/frmMain.vb
@@ -361,6 +361,7 @@ Public Class frmMain
         Else
             RibbonPageGroupBasicConf.Visible = True
         End If
+
         LOGGER.Debug("MainForm initialized!")
 
         FormOpenClose = False
@@ -981,7 +982,7 @@ Public Class frmMain
                 GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False
                 GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False
             Catch ex As Exception
-
+                LOGGER.Error(ex)
             End Try
             LOGGER.Debug("All columns in CreateBasicView created")
         Catch ex As Exception
@@ -2356,7 +2357,9 @@ Public Class frmMain
 
         LoadNavBar()
         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
 
     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
 
     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
\ No newline at end of file