From 8df0e68ba9e85adf323f8b1d08a8b61a93a46ca0 Mon Sep 17 00:00:00 2001
From: Digital Data - Marlon Schreiber <m.schreiber@digitaldata.works>
Date: Tue, 16 Mar 2021 08:33:19 +0100
Subject: [PATCH] MS AnyCPU DesignerLOcked bei ClickGrid

---
 app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj | 2 +-
 app/DD_PM_WINDREAM/frmFormDesigner.vb    | 3 +++
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
index 29ce459..1f7e8a2 100644
--- a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
+++ b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
@@ -33,7 +33,7 @@
     <BootstrapperEnabled>true</BootstrapperEnabled>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
-    <PlatformTarget>x64</PlatformTarget>
+    <PlatformTarget>AnyCPU</PlatformTarget>
     <DebugSymbols>true</DebugSymbols>
     <DebugType>full</DebugType>
     <DefineDebug>true</DefineDebug>
diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.vb b/app/DD_PM_WINDREAM/frmFormDesigner.vb
index 7e89715..e717c06 100644
--- a/app/DD_PM_WINDREAM/frmFormDesigner.vb
+++ b/app/DD_PM_WINDREAM/frmFormDesigner.vb
@@ -552,6 +552,9 @@ Public Class frmFormDesigner
 
     Public Sub gridControl_MouseClick(sender As GridControl, e As MouseEventArgs)
         Try
+            If Designer_Locked = True Then
+                Exit Sub
+            End If
             Dim oView As GridView = sender.DefaultView
             Dim oHitinfo As GridHitInfo = oView.CalcHitInfo(sender.PointToClient(Cursor.Position))