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