diff --git a/app/DD_Clipboard_Searcher/My Project/licenses.licx b/app/DD_Clipboard_Searcher/My Project/licenses.licx index de8d5a3..8ee8cbe 100644 --- a/app/DD_Clipboard_Searcher/My Project/licenses.licx +++ b/app/DD_Clipboard_Searcher/My Project/licenses.licx @@ -1,15 +1,16 @@ -DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraGauges.Win.GaugeControl, DevExpress.XtraGauges.v18.1.Win, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.TileControl, DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.Repository.RepositoryItemButtonEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.RatingControl, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.TileControl, DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.Repository.RepositoryItemButtonEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.TileControl, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGauges.Win.GaugeControl, DevExpress.XtraGauges.v18.1.Win, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.Repository.RepositoryItemPopupGalleryEdit, DevExpress.XtraBars.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/app/DD_Clipboard_Searcher/MyDataset.Designer.vb b/app/DD_Clipboard_Searcher/MyDataset.Designer.vb index 79cae55..b8bab74 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.Designer.vb +++ b/app/DD_Clipboard_Searcher/MyDataset.Designer.vb @@ -4368,8 +4368,6 @@ Partial Public Class MyDataset Private columnDESCRIPTION As Global.System.Data.DataColumn - Private columnREGEX As Global.System.Data.DataColumn - Private columnSEQUENCE As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn @@ -4412,6 +4410,8 @@ Partial Public Class MyDataset Private columnBOTTOMRIGHT_BOTTOM As Global.System.Data.DataColumn + Private columnCONTROL_NAME As Global.System.Data.DataColumn + _ Public Sub New() @@ -4471,14 +4471,6 @@ Partial Public Class MyDataset End Get End Property - _ - Public ReadOnly Property REGEXColumn() As Global.System.Data.DataColumn - Get - Return Me.columnREGEX - End Get - End Property - _ Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn @@ -4647,6 +4639,14 @@ Partial Public Class MyDataset End Get End Property + _ + Public ReadOnly Property CONTROL_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONTROL_NAME + End Get + End Property + _ @@ -4687,7 +4687,6 @@ Partial Public Class MyDataset Public Overloads Function AddTBCW_PROF_REL_CONTROLRow( _ ByVal parentTBCW_PROF_REL_WINDOWRowByFK_WINDOW_ID As TBCW_PROF_REL_WINDOWRow, _ ByVal DESCRIPTION As String, _ - ByVal REGEX As String, _ ByVal SEQUENCE As Byte, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Date, _ @@ -4708,9 +4707,10 @@ Partial Public Class MyDataset ByVal BOTTOMRIGHT_TOP As Integer, _ ByVal BOTTOMRIGHT_LEFT As Integer, _ ByVal BOTTOMRIGHT_RIGHT As Integer, _ - ByVal BOTTOMRIGHT_BOTTOM As Integer) As TBCW_PROF_REL_CONTROLRow + ByVal BOTTOMRIGHT_BOTTOM As Integer, _ + ByVal CONTROL_NAME As String) As TBCW_PROF_REL_CONTROLRow Dim rowTBCW_PROF_REL_CONTROLRow As TBCW_PROF_REL_CONTROLRow = CType(Me.NewRow,TBCW_PROF_REL_CONTROLRow) - Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TOPLEFT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM} + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TOPLEFT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM, CONTROL_NAME} If (Not (parentTBCW_PROF_REL_WINDOWRowByFK_WINDOW_ID) Is Nothing) Then columnValuesArray(1) = parentTBCW_PROF_REL_WINDOWRowByFK_WINDOW_ID(0) End If @@ -4745,7 +4745,6 @@ Partial Public Class MyDataset Me.columnGUID = MyBase.Columns("GUID") Me.columnWINDOW_ID = MyBase.Columns("WINDOW_ID") Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION") - Me.columnREGEX = MyBase.Columns("REGEX") Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") @@ -4767,6 +4766,7 @@ Partial Public Class MyDataset Me.columnBOTTOMRIGHT_LEFT = MyBase.Columns("BOTTOMRIGHT_LEFT") Me.columnBOTTOMRIGHT_RIGHT = MyBase.Columns("BOTTOMRIGHT_RIGHT") Me.columnBOTTOMRIGHT_BOTTOM = MyBase.Columns("BOTTOMRIGHT_BOTTOM") + Me.columnCONTROL_NAME = MyBase.Columns("CONTROL_NAME") End Sub _ - Public Property REGEX() As String - Get - Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.REGEXColumn),String) - End Get - Set - Me(Me.tableTBCW_PROF_REL_CONTROL.REGEXColumn) = value - End Set - End Property - _ Public Property SEQUENCE() As Byte @@ -7690,6 +7679,17 @@ Partial Public Class MyDataset End Set End Property + _ + Public Property CONTROL_NAME() As String + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.CONTROL_NAMEColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.CONTROL_NAMEColumn) = value + End Set + End Property + _ Public Property TBCW_PROF_REL_WINDOWRow() As TBCW_PROF_REL_WINDOWRow @@ -12228,7 +12228,6 @@ Namespace MyDatasetTableAdapters tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("WINDOW_ID", "WINDOW_ID") tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") - tableMapping.ColumnMappings.Add("REGEX", "REGEX") tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") @@ -12250,188 +12249,104 @@ Namespace MyDatasetTableAdapters tableMapping.ColumnMappings.Add("BOTTOMRIGHT_LEFT", "BOTTOMRIGHT_LEFT") tableMapping.ColumnMappings.Add("BOTTOMRIGHT_RIGHT", "BOTTOMRIGHT_RIGHT") tableMapping.ColumnMappings.Add("BOTTOMRIGHT_BOTTOM", "BOTTOMRIGHT_BOTTOM") + tableMapping.ColumnMappings.Add("CONTROL_NAME", "CONTROL_NAME") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBCW_PROF_REL_CONTROL] WHERE (([GUID] = @Original_GUID) AND ([WINDOW"& _ - "_ID] = @Original_WINDOW_ID) AND ([DESCRIPTION] = @Original_DESCRIPTION) AND ([RE"& _ - "GEX] = @Original_REGEX) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] ="& _ - " @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR "& _ - "([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGE"& _ - "D_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGE"& _ - "D_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WH"& _ - "EN)) AND ([TOPLEFT_TOP] = @Original_TOPLEFT_TOP) AND ([TOPLEFT_LEFT] = @Original"& _ - "_TOPLEFT_LEFT) AND ([TOPLEFT_RIGHT] = @Original_TOPLEFT_RIGHT) AND ([TOPLEFT_BOT"& _ - "TOM] = @Original_TOPLEFT_BOTTOM) AND ([TOPRIGHT_TOP] = @Original_TOPRIGHT_TOP) A"& _ - "ND ([TOPRIGHT_LEFT] = @Original_TOPRIGHT_LEFT) AND ([TOPRIGHT_RIGHT] = @Original"& _ - "_TOPRIGHT_RIGHT) AND ([TOPRIGHT_BOTTOM] = @Original_TOPRIGHT_BOTTOM) AND ([BOTTO"& _ - "MLEFT_TOP] = @Original_BOTTOMLEFT_TOP) AND ([BOTTOMLEFT_LEFT] = @Original_BOTTOM"& _ - "LEFT_LEFT) AND ([BOTTOMLEFT_RIGHT] = @Original_BOTTOMLEFT_RIGHT) AND ([BOTTOMLEF"& _ - "T_BOTTOM] = @Original_BOTTOMLEFT_BOTTOM) AND ([BOTTOMRIGHT_TOP] = @Original_BOTT"& _ - "OMRIGHT_TOP) AND ([BOTTOMRIGHT_LEFT] = @Original_BOTTOMRIGHT_LEFT) AND ([BOTTOMR"& _ - "IGHT_RIGHT] = @Original_BOTTOMRIGHT_RIGHT) AND ([BOTTOMRIGHT_BOTTOM] = @Original"& _ - "_BOTTOMRIGHT_BOTTOM))" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBCW_PROF_REL_CONTROL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WINDOW_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_REGEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPLEFT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_TOP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPLEFT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_LEFT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_RIGHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_BOTTOM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPRIGHT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_TOP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_LEFT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_RIGHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMLEFT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_TOP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMLEFT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_LEFT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_RIGHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_BOTTOM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMRIGHT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_TOP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_LEFT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_RIGHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBCW_PROF_REL_CONTROL] ([WINDOW_ID], [DESCRIPTION], [REGEX], [SEQUEN"& _ - "CE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [TOPLEFT_TOP], [T"& _ - "OPLEFT_LEFT], [TOPLEFT_RIGHT], [TOPLEFT_BOTTOM], [TOPRIGHT_TOP], [TOPRIGHT_LEFT]"& _ - ", [TOPRIGHT_RIGHT], [TOPRIGHT_BOTTOM], [BOTTOMLEFT_TOP], [BOTTOMLEFT_LEFT], [BOT"& _ - "TOMLEFT_RIGHT], [BOTTOMLEFT_BOTTOM], [BOTTOMRIGHT_TOP], [BOTTOMRIGHT_LEFT], [BOT"& _ - "TOMRIGHT_RIGHT], [BOTTOMRIGHT_BOTTOM]) VALUES (@WINDOW_ID, @DESCRIPTION, @REGEX,"& _ - " @SEQUENCE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @TOPLEFT_TOP, "& _ - "@TOPLEFT_LEFT, @TOPLEFT_RIGHT, @TOPLEFT_BOTTOM, @TOPRIGHT_TOP, @TOPRIGHT_LEFT, @"& _ - "TOPRIGHT_RIGHT, @TOPRIGHT_BOTTOM, @BOTTOMLEFT_TOP, @BOTTOMLEFT_LEFT, @BOTTOMLEFT"& _ - "_RIGHT, @BOTTOMLEFT_BOTTOM, @BOTTOMRIGHT_TOP, @BOTTOMRIGHT_LEFT, @BOTTOMRIGHT_RI"& _ - "GHT, @BOTTOMRIGHT_BOTTOM);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE"& _ - ", ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TOPLEFT_TOP, TOPLEFT_LEFT, T"& _ - "OPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT_RIGHT, TOPRI"& _ - "GHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM"& _ - ", BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM FROM "& _ - "TBCW_PROF_REL_CONTROL WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQUENCE" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBCW_PROF_REL_CONTROL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (WINDOW_ID, DESCRIPTI"& _ + "ON, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TOPLEFT_TOP, TOP"& _ + "LEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LE"& _ + "FT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTT"& _ + "OMRIGHT_RIGHT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" BOTTOMRIGHT_BOTTOM, CONTROL_NAME)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VAL"& _ + "UES (@WINDOW_ID,@DESCRIPTION,@SEQUENCE,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WH"& _ + "O,@CHANGED_WHEN,@TOPLEFT_TOP,@TOPLEFT_LEFT,@TOPLEFT_RIGHT,@TOPLEFT_BOTTOM,@TOPRI"& _ + "GHT_TOP,@TOPRIGHT_LEFT,@TOPRIGHT_RIGHT,@TOPRIGHT_BOTTOM,@BOTTOMLEFT_TOP,@BOTTOML"& _ + "EFT_LEFT,@BOTTOMLEFT_RIGHT,@BOTTOMLEFT_BOTTOM,@BOTTOMRIGHT_TOP,@BOTTOMRIGHT_LEFT"& _ + ",@BOTTOMRIGHT_RIGHT,@BOTTOMRIGHT_BOTTOM,@CONTROL_NAME); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, WINDOW_ID"& _ + ", DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TOPLE"& _ + "FT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT"& _ + ", TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_R"& _ + "IGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, B"& _ + "OTTOMRIGHT_BOTTOM, CONTROL_NAME FROM TBCW_PROF_REL_CONTROL WHERE (GUID = SCOPE_I"& _ + "DENTITY()) ORDER BY SEQUENCE" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_TOP", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_LEFT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_TOP", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_TOP", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_LEFT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_TOP", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_NAME", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBCW_PROF_REL_CONTROL] SET [WINDOW_ID] = @WINDOW_ID, [DESCRIPTION] = @DES"& _ - "CRIPTION, [REGEX] = @REGEX, [SEQUENCE] = @SEQUENCE, [ADDED_WHO] = @ADDED_WHO, [A"& _ - "DDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGE"& _ - "D_WHEN, [TOPLEFT_TOP] = @TOPLEFT_TOP, [TOPLEFT_LEFT] = @TOPLEFT_LEFT, [TOPLEFT_R"& _ - "IGHT] = @TOPLEFT_RIGHT, [TOPLEFT_BOTTOM] = @TOPLEFT_BOTTOM, [TOPRIGHT_TOP] = @TO"& _ - "PRIGHT_TOP, [TOPRIGHT_LEFT] = @TOPRIGHT_LEFT, [TOPRIGHT_RIGHT] = @TOPRIGHT_RIGHT"& _ - ", [TOPRIGHT_BOTTOM] = @TOPRIGHT_BOTTOM, [BOTTOMLEFT_TOP] = @BOTTOMLEFT_TOP, [BOT"& _ - "TOMLEFT_LEFT] = @BOTTOMLEFT_LEFT, [BOTTOMLEFT_RIGHT] = @BOTTOMLEFT_RIGHT, [BOTTO"& _ - "MLEFT_BOTTOM] = @BOTTOMLEFT_BOTTOM, [BOTTOMRIGHT_TOP] = @BOTTOMRIGHT_TOP, [BOTTO"& _ - "MRIGHT_LEFT] = @BOTTOMRIGHT_LEFT, [BOTTOMRIGHT_RIGHT] = @BOTTOMRIGHT_RIGHT, [BOT"& _ - "TOMRIGHT_BOTTOM] = @BOTTOMRIGHT_BOTTOM WHERE (([GUID] = @Original_GUID) AND ([WI"& _ - "NDOW_ID] = @Original_WINDOW_ID) AND ([DESCRIPTION] = @Original_DESCRIPTION) AND "& _ - "([REGEX] = @Original_REGEX) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WH"& _ - "O] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL)"& _ - " OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CH"& _ - "ANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CH"& _ - "ANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGE"& _ - "D_WHEN)) AND ([TOPLEFT_TOP] = @Original_TOPLEFT_TOP) AND ([TOPLEFT_LEFT] = @Orig"& _ - "inal_TOPLEFT_LEFT) AND ([TOPLEFT_RIGHT] = @Original_TOPLEFT_RIGHT) AND ([TOPLEFT"& _ - "_BOTTOM] = @Original_TOPLEFT_BOTTOM) AND ([TOPRIGHT_TOP] = @Original_TOPRIGHT_TO"& _ - "P) AND ([TOPRIGHT_LEFT] = @Original_TOPRIGHT_LEFT) AND ([TOPRIGHT_RIGHT] = @Orig"& _ - "inal_TOPRIGHT_RIGHT) AND ([TOPRIGHT_BOTTOM] = @Original_TOPRIGHT_BOTTOM) AND ([B"& _ - "OTTOMLEFT_TOP] = @Original_BOTTOMLEFT_TOP) AND ([BOTTOMLEFT_LEFT] = @Original_BO"& _ - "TTOMLEFT_LEFT) AND ([BOTTOMLEFT_RIGHT] = @Original_BOTTOMLEFT_RIGHT) AND ([BOTTO"& _ - "MLEFT_BOTTOM] = @Original_BOTTOMLEFT_BOTTOM) AND ([BOTTOMRIGHT_TOP] = @Original_"& _ - "BOTTOMRIGHT_TOP) AND ([BOTTOMRIGHT_LEFT] = @Original_BOTTOMRIGHT_LEFT) AND ([BOT"& _ - "TOMRIGHT_RIGHT] = @Original_BOTTOMRIGHT_RIGHT) AND ([BOTTOMRIGHT_BOTTOM] = @Orig"& _ - "inal_BOTTOMRIGHT_BOTTOM));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE"& _ - ", ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TOPLEFT_TOP, TOPLEFT_LEFT, T"& _ - "OPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT_RIGHT, TOPRI"& _ - "GHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM"& _ - ", BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM FROM "& _ - "TBCW_PROF_REL_CONTROL WHERE (GUID = @GUID) ORDER BY SEQUENCE" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBCW_PROF_REL_CONTROL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET WINDOW_ID = @WINDOW_ID, DE"& _ + "SCRIPTION = @DESCRIPTION, SEQUENCE = @SEQUENCE, ADDED_WHO = @ADDED_WHO, ADDED_WH"& _ + "EN = @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED"& _ + "_WHEN = @CHANGED_WHEN, TOPLEFT_TOP = @TOPLEFT_TOP, TOPLEFT_LEFT = @TOPLEFT_LEFT,"& _ + " TOPLEFT_RIGHT = @TOPLEFT_RIGHT, TOPLEFT_BOTTOM = @TOPLEFT_BOTTOM, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TOPRIGHT_TOP = @TOPRIGHT_TOP, TOPRIGHT_LEFT = @TOPRIGHT_LEFT, TOPR"& _ + "IGHT_RIGHT = @TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM = @TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP"& _ + " = @BOTTOMLEFT_TOP, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" BOTTOMLEFT_LEFT = @BOTTOMLEFT_LEF"& _ + "T, BOTTOMLEFT_RIGHT = @BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM = @BOTTOMLEFT_BOTTOM,"& _ + " BOTTOMRIGHT_TOP = @BOTTOMRIGHT_TOP, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" BOTTOMRIGHT_LEFT"& _ + " = @BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT = @BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM"& _ + " = @BOTTOMRIGHT_BOTTOM, CONTROL_NAME = @CONTROL_NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Orig"& _ + "inal_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WH"& _ + "EN, CHANGED_WHO, CHANGED_WHEN, TOPLEFT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT"& _ + "_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEF"& _ + "T_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BO"& _ + "TTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM, CONTROL_NAME FROM TBCW_PR"& _ + "OF_REL_CONTROL WHERE (GUID = @GUID) ORDER BY SEQUENCE" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WINDOW_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_REGEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPLEFT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_TOP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPLEFT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_LEFT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_RIGHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_BOTTOM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPRIGHT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_TOP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_LEFT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_RIGHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMLEFT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_TOP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMLEFT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_LEFT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_RIGHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_BOTTOM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMRIGHT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_TOP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_LEFT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_RIGHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_TOP", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_LEFT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_TOP", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_TOP", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_LEFT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_TOP", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_NAME", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Delete( _ - ByVal Original_GUID As Integer, _ - ByVal Original_WINDOW_ID As Integer, _ - ByVal Original_DESCRIPTION As String, _ - ByVal Original_REGEX As String, _ - ByVal Original_SEQUENCE As Byte, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_TOPLEFT_TOP As Integer, _ - ByVal Original_TOPLEFT_LEFT As Integer, _ - ByVal Original_TOPLEFT_RIGHT As Integer, _ - ByVal Original_TOPLEFT_BOTTOM As Integer, _ - ByVal Original_TOPRIGHT_TOP As Integer, _ - ByVal Original_TOPRIGHT_LEFT As Integer, _ - ByVal Original_TOPRIGHT_RIGHT As Integer, _ - ByVal Original_TOPRIGHT_BOTTOM As Integer, _ - ByVal Original_BOTTOMLEFT_TOP As Integer, _ - ByVal Original_BOTTOMLEFT_LEFT As Integer, _ - ByVal Original_BOTTOMLEFT_RIGHT As Integer, _ - ByVal Original_BOTTOMLEFT_BOTTOM As Integer, _ - ByVal Original_BOTTOMRIGHT_TOP As Integer, _ - ByVal Original_BOTTOMRIGHT_LEFT As Integer, _ - ByVal Original_BOTTOMRIGHT_RIGHT As Integer, _ - ByVal Original_BOTTOMRIGHT_BOTTOM As Integer) As Integer + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_WINDOW_ID,Integer) - If (Original_DESCRIPTION Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_DESCRIPTION") - Else - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_DESCRIPTION,String) - End If - If (Original_REGEX Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_REGEX") - Else - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_REGEX,String) - End If - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SEQUENCE,Byte) - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHO,String) - End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value - End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value - End If - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_TOPLEFT_TOP,Integer) - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_TOPLEFT_LEFT,Integer) - Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_TOPLEFT_RIGHT,Integer) - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_TOPLEFT_BOTTOM,Integer) - Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_TOPRIGHT_TOP,Integer) - Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_TOPRIGHT_LEFT,Integer) - Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_TOPRIGHT_RIGHT,Integer) - Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_TOPRIGHT_BOTTOM,Integer) - Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_BOTTOMLEFT_TOP,Integer) - Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_BOTTOMLEFT_LEFT,Integer) - Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_BOTTOMLEFT_RIGHT,Integer) - Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_BOTTOMLEFT_BOTTOM,Integer) - Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_BOTTOMRIGHT_TOP,Integer) - Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_BOTTOMRIGHT_LEFT,Integer) - Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_BOTTOMRIGHT_RIGHT,Integer) - Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_BOTTOMRIGHT_BOTTOM,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -12619,7 +12455,6 @@ Namespace MyDatasetTableAdapters Public Overloads Overridable Function Insert( _ ByVal WINDOW_ID As Integer, _ ByVal DESCRIPTION As String, _ - ByVal REGEX As String, _ ByVal SEQUENCE As Byte, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ @@ -12640,55 +12475,56 @@ Namespace MyDatasetTableAdapters ByVal BOTTOMRIGHT_TOP As Integer, _ ByVal BOTTOMRIGHT_LEFT As Integer, _ ByVal BOTTOMRIGHT_RIGHT As Integer, _ - ByVal BOTTOMRIGHT_BOTTOM As Integer) As Integer + ByVal BOTTOMRIGHT_BOTTOM As Integer, _ + ByVal CONTROL_NAME As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(WINDOW_ID,Integer) If (DESCRIPTION Is Nothing) Then Throw New Global.System.ArgumentNullException("DESCRIPTION") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(DESCRIPTION,String) End If - If (REGEX Is Nothing) Then - Throw New Global.System.ArgumentNullException("REGEX") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(REGEX,String) - End If - Me.Adapter.InsertCommand.Parameters(3).Value = CType(SEQUENCE,Byte) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SEQUENCE,Byte) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHEN.Value,Date) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) Else - Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHO,String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(7).Value = CType(CHANGED_WHEN.Value,Date) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) Else - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + Me.Adapter.InsertCommand.Parameters(7).Value = CType(TOPLEFT_TOP,Integer) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(TOPLEFT_LEFT,Integer) + Me.Adapter.InsertCommand.Parameters(9).Value = CType(TOPLEFT_RIGHT,Integer) + Me.Adapter.InsertCommand.Parameters(10).Value = CType(TOPLEFT_BOTTOM,Integer) + Me.Adapter.InsertCommand.Parameters(11).Value = CType(TOPRIGHT_TOP,Integer) + Me.Adapter.InsertCommand.Parameters(12).Value = CType(TOPRIGHT_LEFT,Integer) + Me.Adapter.InsertCommand.Parameters(13).Value = CType(TOPRIGHT_RIGHT,Integer) + Me.Adapter.InsertCommand.Parameters(14).Value = CType(TOPRIGHT_BOTTOM,Integer) + Me.Adapter.InsertCommand.Parameters(15).Value = CType(BOTTOMLEFT_TOP,Integer) + Me.Adapter.InsertCommand.Parameters(16).Value = CType(BOTTOMLEFT_LEFT,Integer) + Me.Adapter.InsertCommand.Parameters(17).Value = CType(BOTTOMLEFT_RIGHT,Integer) + Me.Adapter.InsertCommand.Parameters(18).Value = CType(BOTTOMLEFT_BOTTOM,Integer) + Me.Adapter.InsertCommand.Parameters(19).Value = CType(BOTTOMRIGHT_TOP,Integer) + Me.Adapter.InsertCommand.Parameters(20).Value = CType(BOTTOMRIGHT_LEFT,Integer) + Me.Adapter.InsertCommand.Parameters(21).Value = CType(BOTTOMRIGHT_RIGHT,Integer) + Me.Adapter.InsertCommand.Parameters(22).Value = CType(BOTTOMRIGHT_BOTTOM,Integer) + If (CONTROL_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("CONTROL_NAME") + Else + Me.Adapter.InsertCommand.Parameters(23).Value = CType(CONTROL_NAME,String) End If - Me.Adapter.InsertCommand.Parameters(8).Value = CType(TOPLEFT_TOP,Integer) - Me.Adapter.InsertCommand.Parameters(9).Value = CType(TOPLEFT_LEFT,Integer) - Me.Adapter.InsertCommand.Parameters(10).Value = CType(TOPLEFT_RIGHT,Integer) - Me.Adapter.InsertCommand.Parameters(11).Value = CType(TOPLEFT_BOTTOM,Integer) - Me.Adapter.InsertCommand.Parameters(12).Value = CType(TOPRIGHT_TOP,Integer) - Me.Adapter.InsertCommand.Parameters(13).Value = CType(TOPRIGHT_LEFT,Integer) - Me.Adapter.InsertCommand.Parameters(14).Value = CType(TOPRIGHT_RIGHT,Integer) - Me.Adapter.InsertCommand.Parameters(15).Value = CType(TOPRIGHT_BOTTOM,Integer) - Me.Adapter.InsertCommand.Parameters(16).Value = CType(BOTTOMLEFT_TOP,Integer) - Me.Adapter.InsertCommand.Parameters(17).Value = CType(BOTTOMLEFT_LEFT,Integer) - Me.Adapter.InsertCommand.Parameters(18).Value = CType(BOTTOMLEFT_RIGHT,Integer) - Me.Adapter.InsertCommand.Parameters(19).Value = CType(BOTTOMLEFT_BOTTOM,Integer) - Me.Adapter.InsertCommand.Parameters(20).Value = CType(BOTTOMRIGHT_TOP,Integer) - Me.Adapter.InsertCommand.Parameters(21).Value = CType(BOTTOMRIGHT_LEFT,Integer) - Me.Adapter.InsertCommand.Parameters(22).Value = CType(BOTTOMRIGHT_RIGHT,Integer) - Me.Adapter.InsertCommand.Parameters(23).Value = CType(BOTTOMRIGHT_BOTTOM,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -12711,7 +12547,6 @@ Namespace MyDatasetTableAdapters Public Overloads Overridable Function Update( _ ByVal WINDOW_ID As Integer, _ ByVal DESCRIPTION As String, _ - ByVal REGEX As String, _ ByVal SEQUENCE As Byte, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ @@ -12733,31 +12568,8 @@ Namespace MyDatasetTableAdapters ByVal BOTTOMRIGHT_LEFT As Integer, _ ByVal BOTTOMRIGHT_RIGHT As Integer, _ ByVal BOTTOMRIGHT_BOTTOM As Integer, _ + ByVal CONTROL_NAME As String, _ ByVal Original_GUID As Integer, _ - ByVal Original_WINDOW_ID As Integer, _ - ByVal Original_DESCRIPTION As String, _ - ByVal Original_REGEX As String, _ - ByVal Original_SEQUENCE As Byte, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_TOPLEFT_TOP As Integer, _ - ByVal Original_TOPLEFT_LEFT As Integer, _ - ByVal Original_TOPLEFT_RIGHT As Integer, _ - ByVal Original_TOPLEFT_BOTTOM As Integer, _ - ByVal Original_TOPRIGHT_TOP As Integer, _ - ByVal Original_TOPRIGHT_LEFT As Integer, _ - ByVal Original_TOPRIGHT_RIGHT As Integer, _ - ByVal Original_TOPRIGHT_BOTTOM As Integer, _ - ByVal Original_BOTTOMLEFT_TOP As Integer, _ - ByVal Original_BOTTOMLEFT_LEFT As Integer, _ - ByVal Original_BOTTOMLEFT_RIGHT As Integer, _ - ByVal Original_BOTTOMLEFT_BOTTOM As Integer, _ - ByVal Original_BOTTOMRIGHT_TOP As Integer, _ - ByVal Original_BOTTOMRIGHT_LEFT As Integer, _ - ByVal Original_BOTTOMRIGHT_RIGHT As Integer, _ - ByVal Original_BOTTOMRIGHT_BOTTOM As Integer, _ ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(WINDOW_ID,Integer) If (DESCRIPTION Is Nothing) Then @@ -12765,104 +12577,50 @@ Namespace MyDatasetTableAdapters Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(DESCRIPTION,String) End If - If (REGEX Is Nothing) Then - Throw New Global.System.ArgumentNullException("REGEX") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(REGEX,String) - End If - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SEQUENCE,Byte) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SEQUENCE,Byte) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHEN.Value,Date) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHEN.Value,Date) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(TOPLEFT_TOP,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(TOPLEFT_LEFT,Integer) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(TOPLEFT_RIGHT,Integer) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(TOPLEFT_BOTTOM,Integer) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(TOPRIGHT_TOP,Integer) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(TOPRIGHT_LEFT,Integer) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(TOPRIGHT_RIGHT,Integer) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(TOPRIGHT_BOTTOM,Integer) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(BOTTOMLEFT_TOP,Integer) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(BOTTOMLEFT_LEFT,Integer) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(BOTTOMLEFT_RIGHT,Integer) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(BOTTOMLEFT_BOTTOM,Integer) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(BOTTOMRIGHT_TOP,Integer) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(BOTTOMRIGHT_LEFT,Integer) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(BOTTOMRIGHT_RIGHT,Integer) + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(BOTTOMRIGHT_BOTTOM,Integer) + If (CONTROL_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("CONTROL_NAME") + Else + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(CONTROL_NAME,String) End If - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(TOPLEFT_TOP,Integer) - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(TOPLEFT_LEFT,Integer) - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(TOPLEFT_RIGHT,Integer) - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(TOPLEFT_BOTTOM,Integer) - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(TOPRIGHT_TOP,Integer) - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(TOPRIGHT_LEFT,Integer) - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(TOPRIGHT_RIGHT,Integer) - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(TOPRIGHT_BOTTOM,Integer) - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(BOTTOMLEFT_TOP,Integer) - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(BOTTOMLEFT_LEFT,Integer) - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(BOTTOMLEFT_RIGHT,Integer) - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(BOTTOMLEFT_BOTTOM,Integer) - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(BOTTOMRIGHT_TOP,Integer) - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(BOTTOMRIGHT_LEFT,Integer) - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(BOTTOMRIGHT_RIGHT,Integer) - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(BOTTOMRIGHT_BOTTOM,Integer) Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_WINDOW_ID,Integer) - If (Original_DESCRIPTION Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_DESCRIPTION") - Else - Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_DESCRIPTION,String) - End If - If (Original_REGEX Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_REGEX") - Else - Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_REGEX,String) - End If - Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_SEQUENCE,Byte) - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_ADDED_WHO,String) - End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value - End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_TOPLEFT_TOP,Integer) - Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_TOPLEFT_LEFT,Integer) - Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_TOPLEFT_RIGHT,Integer) - Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_TOPLEFT_BOTTOM,Integer) - Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_TOPRIGHT_TOP,Integer) - Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_TOPRIGHT_LEFT,Integer) - Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_TOPRIGHT_RIGHT,Integer) - Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_TOPRIGHT_BOTTOM,Integer) - Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_BOTTOMLEFT_TOP,Integer) - Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_BOTTOMLEFT_LEFT,Integer) - Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_BOTTOMLEFT_RIGHT,Integer) - Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_BOTTOMLEFT_BOTTOM,Integer) - Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_BOTTOMRIGHT_TOP,Integer) - Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_BOTTOMRIGHT_LEFT,Integer) - Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_BOTTOMRIGHT_RIGHT,Integer) - Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_BOTTOMRIGHT_BOTTOM,Integer) - Me.Adapter.UpdateCommand.Parameters(52).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -12877,63 +12635,6 @@ Namespace MyDatasetTableAdapters End If End Try End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal WINDOW_ID As Integer, _ - ByVal DESCRIPTION As String, _ - ByVal REGEX As String, _ - ByVal SEQUENCE As Byte, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal TOPLEFT_TOP As Integer, _ - ByVal TOPLEFT_LEFT As Integer, _ - ByVal TOPLEFT_RIGHT As Integer, _ - ByVal TOPLEFT_BOTTOM As Integer, _ - ByVal TOPRIGHT_TOP As Integer, _ - ByVal TOPRIGHT_LEFT As Integer, _ - ByVal TOPRIGHT_RIGHT As Integer, _ - ByVal TOPRIGHT_BOTTOM As Integer, _ - ByVal BOTTOMLEFT_TOP As Integer, _ - ByVal BOTTOMLEFT_LEFT As Integer, _ - ByVal BOTTOMLEFT_RIGHT As Integer, _ - ByVal BOTTOMLEFT_BOTTOM As Integer, _ - ByVal BOTTOMRIGHT_TOP As Integer, _ - ByVal BOTTOMRIGHT_LEFT As Integer, _ - ByVal BOTTOMRIGHT_RIGHT As Integer, _ - ByVal BOTTOMRIGHT_BOTTOM As Integer, _ - ByVal Original_GUID As Integer, _ - ByVal Original_WINDOW_ID As Integer, _ - ByVal Original_DESCRIPTION As String, _ - ByVal Original_REGEX As String, _ - ByVal Original_SEQUENCE As Byte, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_TOPLEFT_TOP As Integer, _ - ByVal Original_TOPLEFT_LEFT As Integer, _ - ByVal Original_TOPLEFT_RIGHT As Integer, _ - ByVal Original_TOPLEFT_BOTTOM As Integer, _ - ByVal Original_TOPRIGHT_TOP As Integer, _ - ByVal Original_TOPRIGHT_LEFT As Integer, _ - ByVal Original_TOPRIGHT_RIGHT As Integer, _ - ByVal Original_TOPRIGHT_BOTTOM As Integer, _ - ByVal Original_BOTTOMLEFT_TOP As Integer, _ - ByVal Original_BOTTOMLEFT_LEFT As Integer, _ - ByVal Original_BOTTOMLEFT_RIGHT As Integer, _ - ByVal Original_BOTTOMLEFT_BOTTOM As Integer, _ - ByVal Original_BOTTOMRIGHT_TOP As Integer, _ - ByVal Original_BOTTOMRIGHT_LEFT As Integer, _ - ByVal Original_BOTTOMRIGHT_RIGHT As Integer, _ - ByVal Original_BOTTOMRIGHT_BOTTOM As Integer) As Integer - Return Me.Update(WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TOPLEFT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM, Original_GUID, Original_WINDOW_ID, Original_DESCRIPTION, Original_REGEX, Original_SEQUENCE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_TOPLEFT_TOP, Original_TOPLEFT_LEFT, Original_TOPLEFT_RIGHT, Original_TOPLEFT_BOTTOM, Original_TOPRIGHT_TOP, Original_TOPRIGHT_LEFT, Original_TOPRIGHT_RIGHT, Original_TOPRIGHT_BOTTOM, Original_BOTTOMLEFT_TOP, Original_BOTTOMLEFT_LEFT, Original_BOTTOMLEFT_RIGHT, Original_BOTTOMLEFT_BOTTOM, Original_BOTTOMRIGHT_TOP, Original_BOTTOMRIGHT_LEFT, Original_BOTTOMRIGHT_RIGHT, Original_BOTTOMRIGHT_BOTTOM, Original_GUID) - End Function End Class ''' diff --git a/app/DD_Clipboard_Searcher/MyDataset.xsd b/app/DD_Clipboard_Searcher/MyDataset.xsd index f35afa9..629eb38 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.xsd +++ b/app/DD_Clipboard_Searcher/MyDataset.xsd @@ -690,77 +690,55 @@ SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, B - - DELETE FROM [TBCW_PROF_REL_CONTROL] WHERE (([GUID] = @Original_GUID) AND ([WINDOW_ID] = @Original_WINDOW_ID) AND ([DESCRIPTION] = @Original_DESCRIPTION) AND ([REGEX] = @Original_REGEX) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([TOPLEFT_TOP] = @Original_TOPLEFT_TOP) AND ([TOPLEFT_LEFT] = @Original_TOPLEFT_LEFT) AND ([TOPLEFT_RIGHT] = @Original_TOPLEFT_RIGHT) AND ([TOPLEFT_BOTTOM] = @Original_TOPLEFT_BOTTOM) AND ([TOPRIGHT_TOP] = @Original_TOPRIGHT_TOP) AND ([TOPRIGHT_LEFT] = @Original_TOPRIGHT_LEFT) AND ([TOPRIGHT_RIGHT] = @Original_TOPRIGHT_RIGHT) AND ([TOPRIGHT_BOTTOM] = @Original_TOPRIGHT_BOTTOM) AND ([BOTTOMLEFT_TOP] = @Original_BOTTOMLEFT_TOP) AND ([BOTTOMLEFT_LEFT] = @Original_BOTTOMLEFT_LEFT) AND ([BOTTOMLEFT_RIGHT] = @Original_BOTTOMLEFT_RIGHT) AND ([BOTTOMLEFT_BOTTOM] = @Original_BOTTOMLEFT_BOTTOM) AND ([BOTTOMRIGHT_TOP] = @Original_BOTTOMRIGHT_TOP) AND ([BOTTOMRIGHT_LEFT] = @Original_BOTTOMRIGHT_LEFT) AND ([BOTTOMRIGHT_RIGHT] = @Original_BOTTOMRIGHT_RIGHT) AND ([BOTTOMRIGHT_BOTTOM] = @Original_BOTTOMRIGHT_BOTTOM)) + + DELETE FROM TBCW_PROF_REL_CONTROL +WHERE (GUID = @Original_GUID) - - - - - - - - - - - - - - - - - - - - - - - - - - - - + - - INSERT INTO [TBCW_PROF_REL_CONTROL] ([WINDOW_ID], [DESCRIPTION], [REGEX], [SEQUENCE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [TOPLEFT_TOP], [TOPLEFT_LEFT], [TOPLEFT_RIGHT], [TOPLEFT_BOTTOM], [TOPRIGHT_TOP], [TOPRIGHT_LEFT], [TOPRIGHT_RIGHT], [TOPRIGHT_BOTTOM], [BOTTOMLEFT_TOP], [BOTTOMLEFT_LEFT], [BOTTOMLEFT_RIGHT], [BOTTOMLEFT_BOTTOM], [BOTTOMRIGHT_TOP], [BOTTOMRIGHT_LEFT], [BOTTOMRIGHT_RIGHT], [BOTTOMRIGHT_BOTTOM]) VALUES (@WINDOW_ID, @DESCRIPTION, @REGEX, @SEQUENCE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @TOPLEFT_TOP, @TOPLEFT_LEFT, @TOPLEFT_RIGHT, @TOPLEFT_BOTTOM, @TOPRIGHT_TOP, @TOPRIGHT_LEFT, @TOPRIGHT_RIGHT, @TOPRIGHT_BOTTOM, @BOTTOMLEFT_TOP, @BOTTOMLEFT_LEFT, @BOTTOMLEFT_RIGHT, @BOTTOMLEFT_BOTTOM, @BOTTOMRIGHT_TOP, @BOTTOMRIGHT_LEFT, @BOTTOMRIGHT_RIGHT, @BOTTOMRIGHT_BOTTOM); -SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TOPLEFT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM FROM TBCW_PROF_REL_CONTROL WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQUENCE + + INSERT INTO TBCW_PROF_REL_CONTROL + (WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TOPLEFT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, + TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, + BOTTOMRIGHT_BOTTOM, CONTROL_NAME) +VALUES (@WINDOW_ID,@DESCRIPTION,@SEQUENCE,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHANGED_WHEN,@TOPLEFT_TOP,@TOPLEFT_LEFT,@TOPLEFT_RIGHT,@TOPLEFT_BOTTOM,@TOPRIGHT_TOP,@TOPRIGHT_LEFT,@TOPRIGHT_RIGHT,@TOPRIGHT_BOTTOM,@BOTTOMLEFT_TOP,@BOTTOMLEFT_LEFT,@BOTTOMLEFT_RIGHT,@BOTTOMLEFT_BOTTOM,@BOTTOMRIGHT_TOP,@BOTTOMRIGHT_LEFT,@BOTTOMRIGHT_RIGHT,@BOTTOMRIGHT_BOTTOM,@CONTROL_NAME); +SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TOPLEFT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM, CONTROL_NAME FROM TBCW_PROF_REL_CONTROL WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQUENCE - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + - SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TOPLEFT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, + SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TOPLEFT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, - BOTTOMRIGHT_BOTTOM + BOTTOMRIGHT_BOTTOM, CONTROL_NAME FROM TBCW_PROF_REL_CONTROL WHERE (WINDOW_ID = @WINDOW_ID) ORDER BY SEQUENCE @@ -770,63 +748,42 @@ ORDER BY SEQUENCE - - UPDATE [TBCW_PROF_REL_CONTROL] SET [WINDOW_ID] = @WINDOW_ID, [DESCRIPTION] = @DESCRIPTION, [REGEX] = @REGEX, [SEQUENCE] = @SEQUENCE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [TOPLEFT_TOP] = @TOPLEFT_TOP, [TOPLEFT_LEFT] = @TOPLEFT_LEFT, [TOPLEFT_RIGHT] = @TOPLEFT_RIGHT, [TOPLEFT_BOTTOM] = @TOPLEFT_BOTTOM, [TOPRIGHT_TOP] = @TOPRIGHT_TOP, [TOPRIGHT_LEFT] = @TOPRIGHT_LEFT, [TOPRIGHT_RIGHT] = @TOPRIGHT_RIGHT, [TOPRIGHT_BOTTOM] = @TOPRIGHT_BOTTOM, [BOTTOMLEFT_TOP] = @BOTTOMLEFT_TOP, [BOTTOMLEFT_LEFT] = @BOTTOMLEFT_LEFT, [BOTTOMLEFT_RIGHT] = @BOTTOMLEFT_RIGHT, [BOTTOMLEFT_BOTTOM] = @BOTTOMLEFT_BOTTOM, [BOTTOMRIGHT_TOP] = @BOTTOMRIGHT_TOP, [BOTTOMRIGHT_LEFT] = @BOTTOMRIGHT_LEFT, [BOTTOMRIGHT_RIGHT] = @BOTTOMRIGHT_RIGHT, [BOTTOMRIGHT_BOTTOM] = @BOTTOMRIGHT_BOTTOM WHERE (([GUID] = @Original_GUID) AND ([WINDOW_ID] = @Original_WINDOW_ID) AND ([DESCRIPTION] = @Original_DESCRIPTION) AND ([REGEX] = @Original_REGEX) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([TOPLEFT_TOP] = @Original_TOPLEFT_TOP) AND ([TOPLEFT_LEFT] = @Original_TOPLEFT_LEFT) AND ([TOPLEFT_RIGHT] = @Original_TOPLEFT_RIGHT) AND ([TOPLEFT_BOTTOM] = @Original_TOPLEFT_BOTTOM) AND ([TOPRIGHT_TOP] = @Original_TOPRIGHT_TOP) AND ([TOPRIGHT_LEFT] = @Original_TOPRIGHT_LEFT) AND ([TOPRIGHT_RIGHT] = @Original_TOPRIGHT_RIGHT) AND ([TOPRIGHT_BOTTOM] = @Original_TOPRIGHT_BOTTOM) AND ([BOTTOMLEFT_TOP] = @Original_BOTTOMLEFT_TOP) AND ([BOTTOMLEFT_LEFT] = @Original_BOTTOMLEFT_LEFT) AND ([BOTTOMLEFT_RIGHT] = @Original_BOTTOMLEFT_RIGHT) AND ([BOTTOMLEFT_BOTTOM] = @Original_BOTTOMLEFT_BOTTOM) AND ([BOTTOMRIGHT_TOP] = @Original_BOTTOMRIGHT_TOP) AND ([BOTTOMRIGHT_LEFT] = @Original_BOTTOMRIGHT_LEFT) AND ([BOTTOMRIGHT_RIGHT] = @Original_BOTTOMRIGHT_RIGHT) AND ([BOTTOMRIGHT_BOTTOM] = @Original_BOTTOMRIGHT_BOTTOM)); -SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TOPLEFT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM FROM TBCW_PROF_REL_CONTROL WHERE (GUID = @GUID) ORDER BY SEQUENCE + + UPDATE TBCW_PROF_REL_CONTROL +SET WINDOW_ID = @WINDOW_ID, DESCRIPTION = @DESCRIPTION, SEQUENCE = @SEQUENCE, ADDED_WHO = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, + CHANGED_WHEN = @CHANGED_WHEN, TOPLEFT_TOP = @TOPLEFT_TOP, TOPLEFT_LEFT = @TOPLEFT_LEFT, TOPLEFT_RIGHT = @TOPLEFT_RIGHT, TOPLEFT_BOTTOM = @TOPLEFT_BOTTOM, + TOPRIGHT_TOP = @TOPRIGHT_TOP, TOPRIGHT_LEFT = @TOPRIGHT_LEFT, TOPRIGHT_RIGHT = @TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM = @TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP = @BOTTOMLEFT_TOP, + BOTTOMLEFT_LEFT = @BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT = @BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM = @BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP = @BOTTOMRIGHT_TOP, + BOTTOMRIGHT_LEFT = @BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT = @BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM = @BOTTOMRIGHT_BOTTOM, CONTROL_NAME = @CONTROL_NAME +WHERE (GUID = @Original_GUID); +SELECT GUID, WINDOW_ID, DESCRIPTION, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TOPLEFT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM, CONTROL_NAME FROM TBCW_PROF_REL_CONTROL WHERE (GUID = @GUID) ORDER BY SEQUENCE - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -836,7 +793,6 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHA - @@ -858,6 +814,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHA + @@ -869,7 +826,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHA - + @@ -915,7 +872,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHA - + @@ -932,7 +889,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHA - + @@ -961,7 +918,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHA - + @@ -972,7 +929,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHA - + @@ -995,7 +952,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHA - + @@ -1043,7 +1000,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHA - + @@ -1091,7 +1048,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHA - + @@ -1108,7 +1065,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHA - + @@ -1116,7 +1073,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHA - + @@ -1130,7 +1087,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHA - + @@ -1138,7 +1095,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHA - + @@ -1177,7 +1134,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHA - + @@ -1250,7 +1207,7 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHA - + @@ -1262,13 +1219,6 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHA - - - - - - - @@ -1302,6 +1252,13 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHA + + + + + + + @@ -1354,10 +1311,10 @@ SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHA - - - - + + + + \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/MyDataset.xss b/app/DD_Clipboard_Searcher/MyDataset.xss index 3945085..37e57bb 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.xss +++ b/app/DD_Clipboard_Searcher/MyDataset.xss @@ -4,7 +4,7 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + diff --git a/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.Designer.vb b/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.Designer.vb index b89d830..1fc0101 100644 --- a/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.Designer.vb +++ b/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.Designer.vb @@ -37,12 +37,13 @@ Partial Class ctrlApplicationAssignment Me.GridControl_Control = New DevExpress.XtraGrid.GridControl() Me.TBCW_PROF_REL_CONTROLBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.GridView_Control = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.colREGEX1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.RepositoryItemButtonEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemButtonEdit() - Me.colDESCRIPTION1 = New DevExpress.XtraGrid.Columns.GridColumn() Me.colGUID1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colAutomationId = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colFrameworkId = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn3 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colDESCRIPTION1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.RepositoryItemButtonEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemButtonEdit() + Me.RepositoryItemPopupGalleryEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemPopupGalleryEdit() Me.Label2 = New System.Windows.Forms.Label() Me.TBCW_PROF_DOC_SEARCHBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.GridControl3 = New DevExpress.XtraGrid.GridControl() @@ -69,6 +70,7 @@ Partial Class ctrlApplicationAssignment CType(Me.TBCW_PROF_REL_CONTROLBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView_Control, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RepositoryItemButtonEdit1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemPopupGalleryEdit1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBCW_PROF_DOC_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBCW_PROFILE_PROCESSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() @@ -182,7 +184,7 @@ Partial Class ctrlApplicationAssignment Me.GridControl_Control.Location = New System.Drawing.Point(0, 25) Me.GridControl_Control.MainView = Me.GridView_Control Me.GridControl_Control.Name = "GridControl_Control" - Me.GridControl_Control.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemButtonEdit1}) + Me.GridControl_Control.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemButtonEdit1, Me.RepositoryItemPopupGalleryEdit1}) Me.GridControl_Control.Size = New System.Drawing.Size(915, 302) Me.GridControl_Control.TabIndex = 69 Me.GridControl_Control.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView_Control}) @@ -196,58 +198,65 @@ Partial Class ctrlApplicationAssignment ' Me.GridView_Control.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer)) Me.GridView_Control.Appearance.EvenRow.Options.UseBackColor = True - Me.GridView_Control.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colREGEX1, Me.colDESCRIPTION1, Me.colGUID1, Me.colAutomationId, Me.colFrameworkId}) + Me.GridView_Control.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID1, Me.GridColumn3, Me.colDESCRIPTION1, Me.GridColumn1, Me.GridColumn2}) Me.GridView_Control.CustomizationFormBounds = New System.Drawing.Rectangle(902, 520, 252, 236) Me.GridView_Control.GridControl = Me.GridControl_Control Me.GridView_Control.Name = "GridView_Control" Me.GridView_Control.OptionsView.EnableAppearanceEvenRow = True ' - 'colREGEX1 - ' - Me.colREGEX1.Caption = "Feld Name Regex" - Me.colREGEX1.ColumnEdit = Me.RepositoryItemButtonEdit1 - Me.colREGEX1.FieldName = "REGEX" - Me.colREGEX1.Name = "colREGEX1" - Me.colREGEX1.Visible = True - Me.colREGEX1.VisibleIndex = 0 - ' - 'RepositoryItemButtonEdit1 - ' - Me.RepositoryItemButtonEdit1.AutoHeight = False - Me.RepositoryItemButtonEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()}) - Me.RepositoryItemButtonEdit1.Name = "RepositoryItemButtonEdit1" - ' - 'colDESCRIPTION1 - ' - Me.colDESCRIPTION1.Caption = "FeldName" - Me.colDESCRIPTION1.FieldName = "DESCRIPTION" - Me.colDESCRIPTION1.Name = "colDESCRIPTION1" - Me.colDESCRIPTION1.Visible = True - Me.colDESCRIPTION1.VisibleIndex = 1 - ' 'colGUID1 ' Me.colGUID1.Caption = "GUID" Me.colGUID1.FieldName = "GUID" Me.colGUID1.Name = "colGUID1" ' - 'colAutomationId + 'GridColumn3 ' - Me.colAutomationId.Caption = "Automation Id" - Me.colAutomationId.FieldName = "AUTOMATION_ID" - Me.colAutomationId.Name = "colAutomationId" - Me.colAutomationId.OptionsColumn.ReadOnly = True - Me.colAutomationId.Visible = True - Me.colAutomationId.VisibleIndex = 2 + Me.GridColumn3.Caption = "TopLeft_Left" + Me.GridColumn3.FieldName = "TOPLEFT_LEFT" + Me.GridColumn3.Name = "GridColumn3" ' - 'colFrameworkId + 'colDESCRIPTION1 ' - Me.colFrameworkId.Caption = "Framework Id" - Me.colFrameworkId.FieldName = "FRAMEWORK_ID" - Me.colFrameworkId.Name = "colFrameworkId" - Me.colFrameworkId.OptionsColumn.ReadOnly = True - Me.colFrameworkId.Visible = True - Me.colFrameworkId.VisibleIndex = 3 + Me.colDESCRIPTION1.Caption = "Beschreibung" + Me.colDESCRIPTION1.FieldName = "DESCRIPTION" + Me.colDESCRIPTION1.Name = "colDESCRIPTION1" + Me.colDESCRIPTION1.Visible = True + Me.colDESCRIPTION1.VisibleIndex = 0 + ' + 'GridColumn1 + ' + Me.GridColumn1.Caption = "Name" + Me.GridColumn1.FieldName = "CONTROL_NAME" + Me.GridColumn1.Name = "GridColumn1" + Me.GridColumn1.OptionsColumn.AllowEdit = False + Me.GridColumn1.OptionsColumn.ReadOnly = True + Me.GridColumn1.Visible = True + Me.GridColumn1.VisibleIndex = 1 + ' + 'GridColumn2 + ' + Me.GridColumn2.Caption = "Has Control Position" + Me.GridColumn2.FieldName = "GridColumn2" + Me.GridColumn2.Name = "GridColumn2" + Me.GridColumn2.OptionsColumn.AllowEdit = False + Me.GridColumn2.OptionsColumn.ReadOnly = True + Me.GridColumn2.UnboundExpression = "[TOPLEFT_LEFT] <> 0" + Me.GridColumn2.UnboundType = DevExpress.Data.UnboundColumnType.[Boolean] + Me.GridColumn2.Visible = True + Me.GridColumn2.VisibleIndex = 2 + ' + 'RepositoryItemButtonEdit1 + ' + Me.RepositoryItemButtonEdit1.AutoHeight = False + Me.RepositoryItemButtonEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()}) + Me.RepositoryItemButtonEdit1.Name = "RepositoryItemButtonEdit1" + ' + 'RepositoryItemPopupGalleryEdit1 + ' + Me.RepositoryItemPopupGalleryEdit1.AutoHeight = False + Me.RepositoryItemPopupGalleryEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.RepositoryItemPopupGalleryEdit1.Name = "RepositoryItemPopupGalleryEdit1" ' 'Label2 ' @@ -365,6 +374,7 @@ Partial Class ctrlApplicationAssignment CType(Me.TBCW_PROF_REL_CONTROLBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView_Control, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RepositoryItemButtonEdit1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemPopupGalleryEdit1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBCW_PROF_DOC_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBCW_PROFILE_PROCESSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() @@ -400,10 +410,11 @@ Partial Class ctrlApplicationAssignment Friend WithEvents TBCW_PROF_REL_CONTROLBindingSource As BindingSource Friend WithEvents TBCW_PROF_REL_CONTROLTableAdapter As MyDatasetTableAdapters.TBCW_PROF_REL_CONTROLTableAdapter Friend WithEvents colDESCRIPTION1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colREGEX1 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents RepositoryItemRegexEdit2 As DevExpress.XtraEditors.Repository.RepositoryItemButtonEdit Friend WithEvents RepositoryItemButtonEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemButtonEdit Friend WithEvents colGUID1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colAutomationId As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colFrameworkId As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn3 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn2 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents RepositoryItemPopupGalleryEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemPopupGalleryEdit End Class diff --git a/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.vb b/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.vb index 12cf748..27b5c01 100644 --- a/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.vb +++ b/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.vb @@ -10,6 +10,7 @@ Public Class ctrlApplicationAssignment Private Current_ProfileId As Integer Private Current_WindowId As Integer Private Current_ProcessGUID As Integer + Private Current_ControlId As Integer Private Sub ctrlApplicationAssignment_Load(sender As Object, e As EventArgs) Handles Me.Load TBCW_PROFILE_PROCESSTableAdapter.Connection.ConnectionString = MyConnectionString @@ -181,23 +182,20 @@ Public Class ctrlApplicationAssignment End Function Public Function Control_CreateAssignment() As Boolean - Dim oForm As New frmControlCapture() + Dim oForm As New frmControlCapture(EditMode:=False) Dim oResult = oForm.ShowDialog() If oResult = DialogResult.OK Then Try - Dim oDefaultRegex As String = "\.+" - - Dim oSql = $"INSERT INTO TBCW_PROF_REL_CONTROL ( - WINDOW_ID, DESCRIPTION, REGEX, ADDED_WHO + WINDOW_ID, DESCRIPTION, CONTROL_NAME, ADDED_WHO ,[TOPLEFT_TOP],[TOPLEFT_LEFT],[TOPLEFT_RIGHT],[TOPLEFT_BOTTOM] ,[TOPRIGHT_TOP],[TOPRIGHT_LEFT],[TOPRIGHT_RIGHT],[TOPRIGHT_BOTTOM] ,[BOTTOMLEFT_TOP],[BOTTOMLEFT_LEFT],[BOTTOMLEFT_RIGHT],[BOTTOMLEFT_BOTTOM] ,[BOTTOMRIGHT_TOP],[BOTTOMRIGHT_LEFT],[BOTTOMRIGHT_RIGHT],[BOTTOMRIGHT_BOTTOM] ) VALUES ( - {Current_WindowId}, 'Control', '^{oDefaultRegex}$', '{Environment.UserName}', + {Current_WindowId}, 'Beispiel Beschreibung', '{oForm.ControlName}', '{Environment.UserName}', {oForm.TopLeft.Top}, {oForm.TopLeft.Left}, {oForm.TopLeft.Right}, {oForm.TopLeft.Bottom}, {oForm.TopRight.Top}, {oForm.TopRight.Left}, {oForm.TopRight.Right}, {oForm.TopRight.Bottom}, {oForm.TopLeft.Top}, {oForm.TopLeft.Left}, {oForm.TopLeft.Right}, {oForm.TopLeft.Bottom}, @@ -220,6 +218,51 @@ Public Class ctrlApplicationAssignment End If End Function + Public Function Control_EditAssignment() As Boolean + Dim oForm As New frmControlCapture(EditMode:=True) + Dim oResult = oForm.ShowDialog() + Dim oControlId As Integer() = GridView_Control.GetSelectedRows() + + If oResult = DialogResult.OK Then + Try + Dim oSql = $"UPDATE TBCW_PROF_REL_CONTROL SET + CONTROL_NAME = '{oForm.ControlName}', + CHANGED_WHO = '{Environment.UserName}', + [TOPLEFT_TOP] = {oForm.TopLeft.Top}, + [TOPLEFT_BOTTOM] = {oForm.TopLeft.Bottom}, + [TOPLEFT_LEFT] = {oForm.TopLeft.Left}, + [TOPLEFT_RIGHT] = {oForm.TopLeft.Right}, + [TOPRIGHT_TOP] = {oForm.TopRight.Top}, + [TOPRIGHT_BOTTOM] = {oForm.TopRight.Bottom}, + [TOPRIGHT_LEFT] = {oForm.TopRight.Left}, + [TOPRIGHT_RIGHT] = {oForm.TopRight.Right}, + [BOTTOMLEFT_TOP] = {oForm.BottomLeft.Top}, + [BOTTOMLEFT_BOTTOM] = {oForm.BottomLeft.Bottom}, + [BOTTOMLEFT_LEFT] = {oForm.BottomLeft.Left}, + [BOTTOMLEFT_RIGHT] = {oForm.BottomLeft.Right}, + [BOTTOMRIGHT_TOP] = {oForm.BottomRight.Top}, + [BOTTOMRIGHT_BOTTOM] = {oForm.BottomRight.Bottom}, + [BOTTOMRIGHT_LEFT] = {oForm.BottomRight.Left}, + [BOTTOMRIGHT_RIGHT] = {oForm.BottomRight.Right} + WHERE GUID = {Current_ControlId} + " + + If Database.ExecuteNonQuery(oSql) = False Then + Return False + End If + + + Control_Load() + Return True + Catch ex As Exception + Logger.Error(ex) + Return False + End Try + Else + Return True + End If + End Function + Public Function Control_SaveAssignment() As Boolean Try TBCW_PROF_REL_CONTROLBindingSource.EndEdit() @@ -299,11 +342,13 @@ Public Class ctrlApplicationAssignment Private Sub GridView_Control_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridView_Control.FocusedRowChanged If e.FocusedRowHandle < 0 Then + Current_ControlId = Nothing Exit Sub End If Dim oSelectedRow As DataRow = GridView_Control.GetDataRow(e.FocusedRowHandle) Dim oControlGUID = oSelectedRow.Item("GUID") + Current_ControlId = oSelectedRow.Item("GUID") AppSelectionString = AppSelectionString & $" - Selected ControlGUID: {oControlGUID}" End Sub End Class diff --git a/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb b/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb index 4d62b02..c167015 100644 --- a/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb +++ b/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb @@ -211,6 +211,7 @@ Partial Class frmAdministration Me.LayoutControlItem19 = New DevExpress.XtraLayout.LayoutControlItem() Me.ComboBoxEdit1 = New DevExpress.XtraEditors.ComboBoxEdit() Me.SimpleSeparator1 = New DevExpress.XtraLayout.SimpleSeparator() + Me.BarButtonItem27 = New DevExpress.XtraBars.BarButtonItem() CType(Me.TBCW_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControlProfiles, System.ComponentModel.ISupportInitialize).BeginInit() @@ -527,9 +528,9 @@ Partial Class frmAdministration ' Me.RibbonControl2.ApplicationButtonDropDownControl = Me.ApplicationMenu1 Me.RibbonControl2.ExpandCollapseItem.Id = 0 - Me.RibbonControl2.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl2.ExpandCollapseItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem11, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem15, Me.BarButtonItem18, Me.BarButtonItem19, Me.BarButtonItem20, Me.BarButtonItem21, Me.BarButtonItem22, Me.labelStatus, Me.BarButtonItem23, Me.BarButtonItem24, Me.BarButtonItem25, Me.BarButtonItem26, Me.labelSelection}) + Me.RibbonControl2.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl2.ExpandCollapseItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem11, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem15, Me.BarButtonItem18, Me.BarButtonItem19, Me.BarButtonItem20, Me.BarButtonItem21, Me.BarButtonItem22, Me.labelStatus, Me.BarButtonItem23, Me.BarButtonItem24, Me.BarButtonItem25, Me.BarButtonItem26, Me.labelSelection, Me.BarButtonItem27}) Me.RibbonControl2.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl2.MaxItemId = 13 + Me.RibbonControl2.MaxItemId = 14 Me.RibbonControl2.Name = "RibbonControl2" Me.RibbonControl2.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage2}) Me.RibbonControl2.ShowExpandCollapseButton = DevExpress.Utils.DefaultBoolean.[False] @@ -820,6 +821,7 @@ Partial Class frmAdministration Me.RibbonGroup_Control.ItemLinks.Add(Me.BarButtonItem23) Me.RibbonGroup_Control.ItemLinks.Add(Me.BarButtonItem25) Me.RibbonGroup_Control.ItemLinks.Add(Me.BarButtonItem24) + Me.RibbonGroup_Control.ItemLinks.Add(Me.BarButtonItem27) Me.RibbonGroup_Control.Name = "RibbonGroup_Control" Me.RibbonGroup_Control.Text = "Feld Zuordnung" ' @@ -2135,6 +2137,14 @@ Partial Class frmAdministration Me.SimpleSeparator1.Name = "SimpleSeparator1" Me.SimpleSeparator1.Size = New System.Drawing.Size(280, 2) ' + 'BarButtonItem27 + ' + Me.BarButtonItem27.Caption = "Zuordnung bearbeiten" + Me.BarButtonItem27.Id = 13 + Me.BarButtonItem27.ImageOptions.Image = CType(resources.GetObject("BarButtonItem27.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem27.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem27.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem27.Name = "BarButtonItem27" + ' 'frmAdministration ' Me.Appearance.Options.UseFont = True @@ -2468,4 +2478,5 @@ Partial Class frmAdministration Friend WithEvents BarButtonItem25 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem26 As DevExpress.XtraBars.BarButtonItem Friend WithEvents labelSelection As DevExpress.XtraBars.BarStaticItem + Friend WithEvents BarButtonItem27 As DevExpress.XtraBars.BarButtonItem End Class diff --git a/app/DD_Clipboard_Searcher/frmAdministration.resx b/app/DD_Clipboard_Searcher/frmAdministration.resx index dbb8cd2..52d5149 100644 --- a/app/DD_Clipboard_Searcher/frmAdministration.resx +++ b/app/DD_Clipboard_Searcher/frmAdministration.resx @@ -746,6 +746,28 @@ ogIgldgUwOCReO9pmiYeleBsTZS4QoLPxDtFkQ6+Avf7vqcQQuw80PYsEnwmvomPBbA4lUB/Ixe+kk8A aBIWcSavANgrcZoA2CNxqgBYJLS/A2QXsDIMQ7wlwRmTR2ALa1cVqAJVoAr8l4AVpowAI/ZrEUUV+AmB nFnvtqI2y4WaO7s+m1CnlB8XAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAIHRFWHRUaXRsZQBFZGl0O0Jh + cnM7UmliYm9uO1N0YW5kYXJkOzATw9sAAACMSURBVDhPrZJLDoAgDAW5E+fwUoY15+Euxq17ty6srbFY + GsJPXzLBpLxBDQYAPhEfnHNQ4HxWK8tEIiiF5t77VUu6BJhDS7oEEkyfQOYXATIuoAwLlm2HaQ6M7RJw + WUqaBepkwjYLMmWm/gmlMlL/ibQ59/o4MrimAg2FS0ISr3Ei0KDghgVcptJLMBcAmyZSCH4lCAAAAABJ + RU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAIHRFWHRUaXRsZQBFZGl0O0Jh + cnM7UmliYm9uO1N0YW5kYXJkOzATw9sAAAEmSURBVFhH7ZJBDoIwEEW5E7cw8VKGLUfgHt7FsDJh71YX + 9X9kkraM0DZt2TDJCzAw859IY4w5FLVZE7VZE7VZE7VJuq4zkTzBBXB2hZZB1CbBEA7hxef7vv8Mw3DB + pb/LubZRmyRFYBxHVaKaAEuTqCrA8iWqC7AWiTclDhFgiQTurT5MQW2SFIENJjyi5qhNwsFctexSc9Qm + OQVOgZwCrOvt3gIe5XzOWQULOQUe00uCbVrcKi9ghdtvYAZVVkD55Y4EqpzAn9dORKLcX7ARLpT7CEPD + CR7PKxATTjCSTyAlnDihNjECseEEYzNOqA0F9mClhBPJcUJTwDIJ8YOlvwonMu8sSwHL7LCgcCLzzrIU + sMwP3Q0nMu8sSwHLbIGgcPKbN80XNOGDvft2XdIAAAAASUVORK5CYII= diff --git a/app/DD_Clipboard_Searcher/frmAdministration.vb b/app/DD_Clipboard_Searcher/frmAdministration.vb index cb678c9..7929c2f 100644 --- a/app/DD_Clipboard_Searcher/frmAdministration.vb +++ b/app/DD_Clipboard_Searcher/frmAdministration.vb @@ -679,6 +679,14 @@ Public Class frmAdministration End If End Sub + Private Sub BarButtonItem27_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem27.ItemClick + If CtrlApplicationAssignment1.Control_EditAssignment() = False Then + MsgBox("Error while saving control", MsgBoxStyle.Critical, Text) + Else + Status_Changed("Feld-Zuordnung geändert") + End If + End Sub + Private Sub BarButtonItem26_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem26.ItemClick Dim oSQL As String = $"EXEC PRCW_COPY_PROFILE {PROFILE_IDTextBox.Text}, '{USER_USERNAME}'" diff --git a/app/DD_Clipboard_Searcher/frmControlCapture.Designer.vb b/app/DD_Clipboard_Searcher/frmControlCapture.Designer.vb index bdfda73..db004d9 100644 --- a/app/DD_Clipboard_Searcher/frmControlCapture.Designer.vb +++ b/app/DD_Clipboard_Searcher/frmControlCapture.Designer.vb @@ -28,38 +28,16 @@ Partial Class frmControlCapture Me.Label3 = New System.Windows.Forms.Label() Me.Button1 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() - Me.txtTLLeft = New System.Windows.Forms.TextBox() - Me.txtTLRight = New System.Windows.Forms.TextBox() - Me.txtTLTop = New System.Windows.Forms.TextBox() - Me.txtTLBottom = New System.Windows.Forms.TextBox() + Me.rbControlName = New System.Windows.Forms.RadioButton() + Me.rbControlPosition = New System.Windows.Forms.RadioButton() + Me.gbControlName = New System.Windows.Forms.GroupBox() + Me.gbControlPosition = New System.Windows.Forms.GroupBox() + Me.TextBox1 = New System.Windows.Forms.TextBox() Me.Label1 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() - Me.Label4 = New System.Windows.Forms.Label() - Me.Label5 = New System.Windows.Forms.Label() - Me.txtTRLeft = New System.Windows.Forms.TextBox() - Me.txtTRRight = New System.Windows.Forms.TextBox() - Me.txtTRTop = New System.Windows.Forms.TextBox() - Me.txtTRBottom = New System.Windows.Forms.TextBox() - Me.Label6 = New System.Windows.Forms.Label() - Me.Label7 = New System.Windows.Forms.Label() - Me.Label8 = New System.Windows.Forms.Label() - Me.Label9 = New System.Windows.Forms.Label() - Me.txtBLLeft = New System.Windows.Forms.TextBox() - Me.txtBLRight = New System.Windows.Forms.TextBox() - Me.txtBLTop = New System.Windows.Forms.TextBox() - Me.txtBLBottom = New System.Windows.Forms.TextBox() - Me.Label10 = New System.Windows.Forms.Label() - Me.Label11 = New System.Windows.Forms.Label() - Me.Label12 = New System.Windows.Forms.Label() - Me.Label13 = New System.Windows.Forms.Label() - Me.txtBRLeft = New System.Windows.Forms.TextBox() - Me.txtBRRight = New System.Windows.Forms.TextBox() - Me.txtBRTop = New System.Windows.Forms.TextBox() - Me.txtBRBottom = New System.Windows.Forms.TextBox() - Me.Label14 = New System.Windows.Forms.Label() - Me.Label15 = New System.Windows.Forms.Label() - Me.Label16 = New System.Windows.Forms.Label() - Me.Label17 = New System.Windows.Forms.Label() + Me.TextBox2 = New System.Windows.Forms.TextBox() + Me.gbControlName.SuspendLayout() + Me.gbControlPosition.SuspendLayout() Me.SuspendLayout() ' 'Timer1 @@ -72,12 +50,11 @@ Partial Class frmControlCapture Me.Label3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label3.Font = New System.Drawing.Font("Tahoma", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label3.Location = New System.Drawing.Point(12, 281) + Me.Label3.Location = New System.Drawing.Point(12, 269) Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(294, 42) + Me.Label3.Size = New System.Drawing.Size(383, 27) Me.Label3.TabIndex = 11 - Me.Label3.Text = "Auswertung von aktivem Feld läuft! Wechseln Sie durch die aktiven Anwendungen und" & - " klicken Sie in ein Feld!" + Me.Label3.Text = "Auswertung von aktivem Feld läuft!" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) ' 'Button1 ' @@ -85,7 +62,7 @@ Partial Class frmControlCapture Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK Me.Button1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.add Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button1.Location = New System.Drawing.Point(12, 326) + Me.Button1.Location = New System.Drawing.Point(12, 299) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(159, 34) Me.Button1.TabIndex = 0 @@ -98,306 +75,101 @@ Partial Class frmControlCapture Me.Button2.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.Button2.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button2.Location = New System.Drawing.Point(147, 326) + Me.Button2.Location = New System.Drawing.Point(236, 299) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(159, 34) Me.Button2.TabIndex = 0 Me.Button2.Text = "Abbruch" Me.Button2.UseVisualStyleBackColor = True ' - 'txtTLLeft + 'rbControlName ' - Me.txtTLLeft.Location = New System.Drawing.Point(59, 28) - Me.txtTLLeft.Name = "txtTLLeft" - Me.txtTLLeft.Size = New System.Drawing.Size(77, 21) - Me.txtTLLeft.TabIndex = 12 + Me.rbControlName.AutoSize = True + Me.rbControlName.Checked = True + Me.rbControlName.Location = New System.Drawing.Point(12, 12) + Me.rbControlName.Name = "rbControlName" + Me.rbControlName.Size = New System.Drawing.Size(90, 17) + Me.rbControlName.TabIndex = 14 + Me.rbControlName.TabStop = True + Me.rbControlName.Text = "Control Name" + Me.rbControlName.UseVisualStyleBackColor = True ' - 'txtTLRight + 'rbControlPosition ' - Me.txtTLRight.Location = New System.Drawing.Point(59, 55) - Me.txtTLRight.Name = "txtTLRight" - Me.txtTLRight.Size = New System.Drawing.Size(77, 21) - Me.txtTLRight.TabIndex = 12 + Me.rbControlPosition.AutoSize = True + Me.rbControlPosition.Location = New System.Drawing.Point(12, 118) + Me.rbControlPosition.Name = "rbControlPosition" + Me.rbControlPosition.Size = New System.Drawing.Size(100, 17) + Me.rbControlPosition.TabIndex = 14 + Me.rbControlPosition.Text = "Control Position" + Me.rbControlPosition.UseVisualStyleBackColor = True ' - 'txtTLTop + 'gbControlName ' - Me.txtTLTop.Location = New System.Drawing.Point(59, 82) - Me.txtTLTop.Name = "txtTLTop" - Me.txtTLTop.Size = New System.Drawing.Size(77, 21) - Me.txtTLTop.TabIndex = 12 + Me.gbControlName.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.gbControlName.Controls.Add(Me.Label2) + Me.gbControlName.Controls.Add(Me.TextBox1) + Me.gbControlName.Location = New System.Drawing.Point(140, 12) + Me.gbControlName.Name = "gbControlName" + Me.gbControlName.Size = New System.Drawing.Size(255, 100) + Me.gbControlName.TabIndex = 15 + Me.gbControlName.TabStop = False + Me.gbControlName.Text = "Control Name" ' - 'txtTLBottom + 'gbControlPosition ' - Me.txtTLBottom.Location = New System.Drawing.Point(59, 109) - Me.txtTLBottom.Name = "txtTLBottom" - Me.txtTLBottom.Size = New System.Drawing.Size(77, 21) - Me.txtTLBottom.TabIndex = 12 + Me.gbControlPosition.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.gbControlPosition.Controls.Add(Me.TextBox2) + Me.gbControlPosition.Controls.Add(Me.Label1) + Me.gbControlPosition.Location = New System.Drawing.Point(140, 118) + Me.gbControlPosition.Name = "gbControlPosition" + Me.gbControlPosition.Size = New System.Drawing.Size(255, 137) + Me.gbControlPosition.TabIndex = 15 + Me.gbControlPosition.TabStop = False + Me.gbControlPosition.Text = "Control Position" + ' + 'TextBox1 + ' + Me.TextBox1.Location = New System.Drawing.Point(6, 20) + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(243, 21) + Me.TextBox1.TabIndex = 0 ' 'Label1 ' - Me.Label1.AutoSize = True - Me.Label1.Location = New System.Drawing.Point(12, 31) + Me.Label1.Location = New System.Drawing.Point(6, 100) Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(26, 13) - Me.Label1.TabIndex = 13 - Me.Label1.Text = "Left" + Me.Label1.Size = New System.Drawing.Size(243, 34) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Wechseln Sie durch die aktiven Anwendungen und klicken Sie in ein Feld" ' 'Label2 ' - Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(12, 58) + Me.Label2.Location = New System.Drawing.Point(6, 49) Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(32, 13) - Me.Label2.TabIndex = 13 - Me.Label2.Text = "Right" + Me.Label2.Size = New System.Drawing.Size(243, 48) + Me.Label2.TabIndex = 0 + Me.Label2.Text = "Markieren Sie Text in einem Feld und Kopieren Sie Text" ' - 'Label4 + 'TextBox2 ' - Me.Label4.AutoSize = True - Me.Label4.Location = New System.Drawing.Point(12, 85) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(25, 13) - Me.Label4.TabIndex = 13 - Me.Label4.Text = "Top" - ' - 'Label5 - ' - Me.Label5.AutoSize = True - Me.Label5.Location = New System.Drawing.Point(12, 112) - Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(41, 13) - Me.Label5.TabIndex = 13 - Me.Label5.Text = "Bottom" - ' - 'txtTRLeft - ' - Me.txtTRLeft.Location = New System.Drawing.Point(198, 28) - Me.txtTRLeft.Name = "txtTRLeft" - Me.txtTRLeft.Size = New System.Drawing.Size(77, 21) - Me.txtTRLeft.TabIndex = 12 - ' - 'txtTRRight - ' - Me.txtTRRight.Location = New System.Drawing.Point(198, 55) - Me.txtTRRight.Name = "txtTRRight" - Me.txtTRRight.Size = New System.Drawing.Size(77, 21) - Me.txtTRRight.TabIndex = 12 - ' - 'txtTRTop - ' - Me.txtTRTop.Location = New System.Drawing.Point(198, 82) - Me.txtTRTop.Name = "txtTRTop" - Me.txtTRTop.Size = New System.Drawing.Size(77, 21) - Me.txtTRTop.TabIndex = 12 - ' - 'txtTRBottom - ' - Me.txtTRBottom.Location = New System.Drawing.Point(198, 109) - Me.txtTRBottom.Name = "txtTRBottom" - Me.txtTRBottom.Size = New System.Drawing.Size(77, 21) - Me.txtTRBottom.TabIndex = 12 - ' - 'Label6 - ' - Me.Label6.AutoSize = True - Me.Label6.Location = New System.Drawing.Point(151, 31) - Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(26, 13) - Me.Label6.TabIndex = 13 - Me.Label6.Text = "Left" - ' - 'Label7 - ' - Me.Label7.AutoSize = True - Me.Label7.Location = New System.Drawing.Point(151, 58) - Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(32, 13) - Me.Label7.TabIndex = 13 - Me.Label7.Text = "Right" - ' - 'Label8 - ' - Me.Label8.AutoSize = True - Me.Label8.Location = New System.Drawing.Point(151, 85) - Me.Label8.Name = "Label8" - Me.Label8.Size = New System.Drawing.Size(25, 13) - Me.Label8.TabIndex = 13 - Me.Label8.Text = "Top" - ' - 'Label9 - ' - Me.Label9.AutoSize = True - Me.Label9.Location = New System.Drawing.Point(151, 112) - Me.Label9.Name = "Label9" - Me.Label9.Size = New System.Drawing.Size(41, 13) - Me.Label9.TabIndex = 13 - Me.Label9.Text = "Bottom" - ' - 'txtBLLeft - ' - Me.txtBLLeft.Location = New System.Drawing.Point(59, 157) - Me.txtBLLeft.Name = "txtBLLeft" - Me.txtBLLeft.Size = New System.Drawing.Size(77, 21) - Me.txtBLLeft.TabIndex = 12 - ' - 'txtBLRight - ' - Me.txtBLRight.Location = New System.Drawing.Point(59, 184) - Me.txtBLRight.Name = "txtBLRight" - Me.txtBLRight.Size = New System.Drawing.Size(77, 21) - Me.txtBLRight.TabIndex = 12 - ' - 'txtBLTop - ' - Me.txtBLTop.Location = New System.Drawing.Point(59, 211) - Me.txtBLTop.Name = "txtBLTop" - Me.txtBLTop.Size = New System.Drawing.Size(77, 21) - Me.txtBLTop.TabIndex = 12 - ' - 'txtBLBottom - ' - Me.txtBLBottom.Location = New System.Drawing.Point(59, 238) - Me.txtBLBottom.Name = "txtBLBottom" - Me.txtBLBottom.Size = New System.Drawing.Size(77, 21) - Me.txtBLBottom.TabIndex = 12 - ' - 'Label10 - ' - Me.Label10.AutoSize = True - Me.Label10.Location = New System.Drawing.Point(12, 160) - Me.Label10.Name = "Label10" - Me.Label10.Size = New System.Drawing.Size(26, 13) - Me.Label10.TabIndex = 13 - Me.Label10.Text = "Left" - ' - 'Label11 - ' - Me.Label11.AutoSize = True - Me.Label11.Location = New System.Drawing.Point(12, 187) - Me.Label11.Name = "Label11" - Me.Label11.Size = New System.Drawing.Size(32, 13) - Me.Label11.TabIndex = 13 - Me.Label11.Text = "Right" - ' - 'Label12 - ' - Me.Label12.AutoSize = True - Me.Label12.Location = New System.Drawing.Point(12, 214) - Me.Label12.Name = "Label12" - Me.Label12.Size = New System.Drawing.Size(25, 13) - Me.Label12.TabIndex = 13 - Me.Label12.Text = "Top" - ' - 'Label13 - ' - Me.Label13.AutoSize = True - Me.Label13.Location = New System.Drawing.Point(12, 241) - Me.Label13.Name = "Label13" - Me.Label13.Size = New System.Drawing.Size(41, 13) - Me.Label13.TabIndex = 13 - Me.Label13.Text = "Bottom" - ' - 'txtBRLeft - ' - Me.txtBRLeft.Location = New System.Drawing.Point(198, 157) - Me.txtBRLeft.Name = "txtBRLeft" - Me.txtBRLeft.Size = New System.Drawing.Size(77, 21) - Me.txtBRLeft.TabIndex = 12 - ' - 'txtBRRight - ' - Me.txtBRRight.Location = New System.Drawing.Point(198, 184) - Me.txtBRRight.Name = "txtBRRight" - Me.txtBRRight.Size = New System.Drawing.Size(77, 21) - Me.txtBRRight.TabIndex = 12 - ' - 'txtBRTop - ' - Me.txtBRTop.Location = New System.Drawing.Point(198, 211) - Me.txtBRTop.Name = "txtBRTop" - Me.txtBRTop.Size = New System.Drawing.Size(77, 21) - Me.txtBRTop.TabIndex = 12 - ' - 'txtBRBottom - ' - Me.txtBRBottom.Location = New System.Drawing.Point(198, 238) - Me.txtBRBottom.Name = "txtBRBottom" - Me.txtBRBottom.Size = New System.Drawing.Size(77, 21) - Me.txtBRBottom.TabIndex = 12 - ' - 'Label14 - ' - Me.Label14.AutoSize = True - Me.Label14.Location = New System.Drawing.Point(151, 160) - Me.Label14.Name = "Label14" - Me.Label14.Size = New System.Drawing.Size(26, 13) - Me.Label14.TabIndex = 13 - Me.Label14.Text = "Left" - ' - 'Label15 - ' - Me.Label15.AutoSize = True - Me.Label15.Location = New System.Drawing.Point(151, 187) - Me.Label15.Name = "Label15" - Me.Label15.Size = New System.Drawing.Size(32, 13) - Me.Label15.TabIndex = 13 - Me.Label15.Text = "Right" - ' - 'Label16 - ' - Me.Label16.AutoSize = True - Me.Label16.Location = New System.Drawing.Point(151, 214) - Me.Label16.Name = "Label16" - Me.Label16.Size = New System.Drawing.Size(25, 13) - Me.Label16.TabIndex = 13 - Me.Label16.Text = "Top" - ' - 'Label17 - ' - Me.Label17.AutoSize = True - Me.Label17.Location = New System.Drawing.Point(151, 241) - Me.Label17.Name = "Label17" - Me.Label17.Size = New System.Drawing.Size(41, 13) - Me.Label17.TabIndex = 13 - Me.Label17.Text = "Bottom" + Me.TextBox2.Location = New System.Drawing.Point(9, 20) + Me.TextBox2.Multiline = True + Me.TextBox2.Name = "TextBox2" + Me.TextBox2.Size = New System.Drawing.Size(240, 77) + Me.TextBox2.TabIndex = 1 ' 'frmControlCapture ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(318, 372) - Me.Controls.Add(Me.Label17) - Me.Controls.Add(Me.Label13) - Me.Controls.Add(Me.Label9) - Me.Controls.Add(Me.Label5) - Me.Controls.Add(Me.Label16) - Me.Controls.Add(Me.Label12) - Me.Controls.Add(Me.Label8) - Me.Controls.Add(Me.Label4) - Me.Controls.Add(Me.Label15) - Me.Controls.Add(Me.Label11) - Me.Controls.Add(Me.Label7) - Me.Controls.Add(Me.Label2) - Me.Controls.Add(Me.Label14) - Me.Controls.Add(Me.Label10) - Me.Controls.Add(Me.Label6) - Me.Controls.Add(Me.Label1) - Me.Controls.Add(Me.txtBRBottom) - Me.Controls.Add(Me.txtBLBottom) - Me.Controls.Add(Me.txtTRBottom) - Me.Controls.Add(Me.txtBRTop) - Me.Controls.Add(Me.txtBLTop) - Me.Controls.Add(Me.txtTRTop) - Me.Controls.Add(Me.txtTLBottom) - Me.Controls.Add(Me.txtBRRight) - Me.Controls.Add(Me.txtBLRight) - Me.Controls.Add(Me.txtTRRight) - Me.Controls.Add(Me.txtTLTop) - Me.Controls.Add(Me.txtBRLeft) - Me.Controls.Add(Me.txtBLLeft) - Me.Controls.Add(Me.txtTRLeft) - Me.Controls.Add(Me.txtTLRight) - Me.Controls.Add(Me.txtTLLeft) + Me.ClientSize = New System.Drawing.Size(407, 345) + Me.Controls.Add(Me.gbControlPosition) + Me.Controls.Add(Me.gbControlName) + Me.Controls.Add(Me.rbControlPosition) + Me.Controls.Add(Me.rbControlName) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Button2) Me.Controls.Add(Me.Button1) @@ -406,6 +178,10 @@ Partial Class frmControlCapture Me.Name = "frmControlCapture" Me.Text = "Feld Auswertung" Me.TopMost = True + Me.gbControlName.ResumeLayout(False) + Me.gbControlName.PerformLayout() + Me.gbControlPosition.ResumeLayout(False) + Me.gbControlPosition.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() @@ -414,36 +190,12 @@ Partial Class frmControlCapture Friend WithEvents Label3 As Label Friend WithEvents Button1 As Button Friend WithEvents Button2 As Button - Friend WithEvents txtTLLeft As TextBox - Friend WithEvents txtTLRight As TextBox - Friend WithEvents txtTLTop As TextBox - Friend WithEvents txtTLBottom As TextBox - Friend WithEvents Label1 As Label + Friend WithEvents rbControlName As RadioButton + Friend WithEvents rbControlPosition As RadioButton + Friend WithEvents gbControlName As GroupBox + Friend WithEvents TextBox1 As TextBox + Friend WithEvents gbControlPosition As GroupBox Friend WithEvents Label2 As Label - Friend WithEvents Label4 As Label - Friend WithEvents Label5 As Label - Friend WithEvents txtTRLeft As TextBox - Friend WithEvents txtTRRight As TextBox - Friend WithEvents txtTRTop As TextBox - Friend WithEvents txtTRBottom As TextBox - Friend WithEvents Label6 As Label - Friend WithEvents Label7 As Label - Friend WithEvents Label8 As Label - Friend WithEvents Label9 As Label - Friend WithEvents txtBLLeft As TextBox - Friend WithEvents txtBLRight As TextBox - Friend WithEvents txtBLTop As TextBox - Friend WithEvents txtBLBottom As TextBox - Friend WithEvents Label10 As Label - Friend WithEvents Label11 As Label - Friend WithEvents Label12 As Label - Friend WithEvents Label13 As Label - Friend WithEvents txtBRLeft As TextBox - Friend WithEvents txtBRRight As TextBox - Friend WithEvents txtBRTop As TextBox - Friend WithEvents txtBRBottom As TextBox - Friend WithEvents Label14 As Label - Friend WithEvents Label15 As Label - Friend WithEvents Label16 As Label - Friend WithEvents Label17 As Label + Friend WithEvents Label1 As Label + Friend WithEvents TextBox2 As TextBox End Class diff --git a/app/DD_Clipboard_Searcher/frmControlCapture.vb b/app/DD_Clipboard_Searcher/frmControlCapture.vb index a2c48d4..f174cfb 100644 --- a/app/DD_Clipboard_Searcher/frmControlCapture.vb +++ b/app/DD_Clipboard_Searcher/frmControlCapture.vb @@ -7,60 +7,112 @@ Public Class frmControlCapture Public Property BottomLeft As RectangleInfo Public Property BottomRight As RectangleInfo + Public Property ControlName As String + Private WithEvents Watcher As ClipboardWatcher = ClipboardWatcher.Singleton Private Window As Window + Private EditMode As Boolean = False + + Public Sub New(EditMode As Boolean) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + EditMode = EditMode + End Sub + Private Sub frmControlCapture_Load(sender As Object, e As EventArgs) Handles Me.Load Window = New Window(LogConfig) + rbControlName.Checked = True + AddHandler Watcher.Changed, AddressOf Watcher_Changed End Sub Private Sub Watcher_Changed(sender As Object, e As EventArgs) + ' === CONTROL NAME === + + Dim oControl As WindowInfo = Window.GetFocusedControl(Handle) + + If oControl IsNot Nothing Then + TextBox1.Text = oControl.ControlName + ControlName = oControl.ControlName + End If + + ' === CONTROL POSITION === + For Each oAnchor As Anchor In [Enum].GetValues(GetType(Anchor)) - Dim oRect = Window.GetFocusedControlLocation(Handle, oAnchor) + Dim oRect As RectangleInfo = Window.GetFocusedControlLocation(Handle, oAnchor) Select Case oAnchor Case Window.Anchor.TopLeft If oRect IsNot Nothing Then TopLeft = oRect - - txtTLLeft.Text = oRect.Left - txtTLRight.Text = oRect.Right - txtTLTop.Text = oRect.Top - txtTLBottom.Text = oRect.Bottom End If Case Window.Anchor.TopRight If oRect IsNot Nothing Then TopRight = oRect - - txtTRLeft.Text = oRect.Left - txtTRRight.Text = oRect.Right - txtTRTop.Text = oRect.Top - txtTRBottom.Text = oRect.Bottom End If Case Window.Anchor.BottomLeft If oRect IsNot Nothing Then BottomLeft = oRect - - txtBLLeft.Text = oRect.Left - txtBLRight.Text = oRect.Right - txtBLTop.Text = oRect.Top - txtBLBottom.Text = oRect.Bottom End If Case Window.Anchor.BottomRight If oRect IsNot Nothing Then BottomRight = oRect - - txtBRLeft.Text = oRect.Left - txtBRRight.Text = oRect.Right - txtBRTop.Text = oRect.Top - txtBRBottom.Text = oRect.Bottom End If End Select + + TextBox2.Text = GetBoundsString() Next End Sub + + Private Function GetBoundsString() + Dim oResult As String = String.Empty + + If TopLeft IsNot Nothing Then + oResult &= TopLeft.ToString & vbNewLine + End If + If TopRight IsNot Nothing Then + oResult &= TopRight.ToString & vbNewLine + End If + If BottomLeft IsNot Nothing Then + oResult &= BottomLeft.ToString & vbNewLine + End If + If BottomRight IsNot Nothing Then + oResult &= BottomRight.ToString & vbNewLine + End If + + Return oResult + End Function + + Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles rbControlName.CheckedChanged + gbControlName.Enabled = rbControlName.Checked + gbControlPosition.Enabled = Not rbControlName.Checked + End Sub + + Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles rbControlPosition.CheckedChanged + gbControlName.Enabled = Not rbControlPosition.Checked + gbControlPosition.Enabled = rbControlPosition.Checked + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + If TextBox1.Text = String.Empty And TextBox2.Text = String.Empty Then + MsgBox("Kein Control gefunden!") + DialogResult = DialogResult.Cancel + End If + + If rbControlPosition.Checked Then + ControlName = String.Empty + Else + TopLeft = New RectangleInfo() + TopRight = New RectangleInfo() + BottomLeft = New RectangleInfo() + BottomRight = New RectangleInfo() + End If + End Sub End Class \ No newline at end of file