diff --git a/app/DD_PM_WINDREAM/ClassSnapPanel.vb b/app/DD_PM_WINDREAM/ClassSnapPanel.vb
deleted file mode 100644
index 02fd701..0000000
--- a/app/DD_PM_WINDREAM/ClassSnapPanel.vb
+++ /dev/null
@@ -1,56 +0,0 @@
-Public Class ClassSnapPanel
- Inherits System.Windows.Forms.Panel
-
- Private _ShowGrid As Boolean = True
- Private _GridSize As Integer = 16
-
- Private Property AutoScaleMode As AutoScaleMode
-
- Public Property GridSize As Integer
- Get
- Return _GridSize
- End Get
- Set(value As Integer)
- _GridSize = value
- Refresh()
- End Set
- End Property
-
- Public Property ShowGrid As Boolean
- Get
- Return _ShowGrid
- End Get
- Set(value As Boolean)
- _ShowGrid = value
- Refresh()
- End Set
- End Property
-
- Protected Overrides Sub OnControlAdded(e As System.Windows.Forms.ControlEventArgs)
- AddHandler e.Control.LocationChanged, AddressOf AlignToGrid
- AddHandler e.Control.DragDrop, AddressOf AlignToGrid
- MyBase.OnControlAdded(e)
- End Sub
-
- Protected Overrides Sub OnControlRemoved(e As System.Windows.Forms.ControlEventArgs)
- RemoveHandler e.Control.LocationChanged, AddressOf AlignToGrid
- RemoveHandler e.Control.DragDrop, AddressOf AlignToGrid
- MyBase.OnControlRemoved(e)
- End Sub
-
- Protected Overrides Sub OnPaint(e As System.Windows.Forms.PaintEventArgs)
- If _ShowGrid Then
- ControlPaint.DrawGrid(e.Graphics, ClientRectangle, New Size(_GridSize, _GridSize), BackColor)
- End If
- MyBase.OnPaint(e)
- End Sub
-
- Private Sub AlignToGrid(sender As Object, e As EventArgs)
- If _ShowGrid Then
- Dim item As Control = CType(sender, Control)
- Dim x As Integer = Math.Round(item.Left / _GridSize) * _GridSize
- Dim y As Integer = Math.Round(item.Top / _GridSize) * _GridSize
- item.Location = New Point(x, y)
- End If
- End Sub
-End Class
diff --git a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
index 9b911d2..d934899 100644
--- a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
+++ b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
@@ -33,7 +33,7 @@
true
- AnyCPU
+ x86
true
full
true
@@ -263,9 +263,6 @@
-
- Component
-
@@ -591,6 +588,7 @@
frmFormDesigner.vb
+ Designer
frmGhostMode.vb
diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb
index e34fbbb..9b69d27 100644
--- a/app/DD_PM_WINDREAM/frmValidator.vb
+++ b/app/DD_PM_WINDREAM/frmValidator.vb
@@ -730,12 +730,13 @@ Public Class frmValidator
End If
End Sub
#Region "CONTROL LIST"
-
-
LOGGER.Debug("In add_ComboBox - GUID: " & oControlID)
Dim oCONID
Try
oCONID = PreventNulletc(oControlRow.Item("CONNECTION_ID"))
+ If oCONID = String.Empty Then
+ oCONID = 0
+ End If
Catch ex As Exception
oCONID = 0
End Try