diff --git a/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj b/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj index 093c28b..dcc93a8 100644 --- a/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj +++ b/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj @@ -256,6 +256,7 @@ + diff --git a/app/DD_Clipboard_Searcher/My Project/Resources.Designer.vb b/app/DD_Clipboard_Searcher/My Project/Resources.Designer.vb index afb6a9d..e70e3f4 100644 --- a/app/DD_Clipboard_Searcher/My Project/Resources.Designer.vb +++ b/app/DD_Clipboard_Searcher/My Project/Resources.Designer.vb @@ -22,7 +22,7 @@ Namespace My.Resources ''' ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' - _ @@ -130,6 +130,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property refresh_16xLG() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("refresh_16xLG", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/app/DD_Clipboard_Searcher/My Project/Resources.resx b/app/DD_Clipboard_Searcher/My Project/Resources.resx index fbd5982..2fbcc9d 100644 --- a/app/DD_Clipboard_Searcher/My Project/Resources.resx +++ b/app/DD_Clipboard_Searcher/My Project/Resources.resx @@ -118,34 +118,37 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - ..\Resources\ReduceSize.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\GoToDefinition_5575.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\KeyOutput_8167.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\StatusAnnotations_Stop_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\Annotation_New.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\KeyDown_8461.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\folder_Open_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\control_start_blue.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\KeyOutput_8167.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\startwithoutdebugging_6556.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\control_start_blue.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\StatusAnnotations_Stop_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\Symbols_Stop_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\ReduceSize.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\folder_Open_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Annotation_New.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/Resources/refresh_16xLG.png b/app/DD_Clipboard_Searcher/Resources/refresh_16xLG.png new file mode 100644 index 0000000..652cd85 Binary files /dev/null and b/app/DD_Clipboard_Searcher/Resources/refresh_16xLG.png differ diff --git a/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb b/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb index be9f65f..7d81040 100644 --- a/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb +++ b/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb @@ -34,10 +34,20 @@ Partial Class frmAdministration Dim CHANGED_WHENLabel As System.Windows.Forms.Label Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdministration)) Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.grpbxProfiles = New System.Windows.Forms.GroupBox() Me.btnaddSearch = New System.Windows.Forms.Button() - Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() Me.TBCW_PROFILESBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.MyDataset = New DD_Clipboard_Watcher.MyDataset() + Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.GUIDTextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.NAMETextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.COMMENTTextBox = New System.Windows.Forms.TextBox() + Me.REGEX_EXPRESSIONTextBox = New System.Windows.Forms.TextBox() + Me.WD_SEARCHTextBox = New System.Windows.Forms.TextBox() + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() Me.colNAME = New DevExpress.XtraGrid.Columns.GridColumn() @@ -54,15 +64,7 @@ Partial Class frmAdministration Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() Me.TBCW_PROFILESBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() - Me.GUIDTextBox = New System.Windows.Forms.TextBox() - Me.NAMETextBox = New System.Windows.Forms.TextBox() - Me.COMMENTTextBox = New System.Windows.Forms.TextBox() - Me.WD_SEARCHTextBox = New System.Windows.Forms.TextBox() - Me.REGEX_EXPRESSIONTextBox = New System.Windows.Forms.TextBox() - Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() - Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() - Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() - Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.Label2 = New System.Windows.Forms.Label() Me.GridControlUsers2Menue = New DevExpress.XtraGrid.GridControl() @@ -125,9 +127,10 @@ Partial Class frmAdministration CHANGED_WHOLabel = New System.Windows.Forms.Label() CHANGED_WHENLabel = New System.Windows.Forms.Label() Me.GroupBox1.SuspendLayout() - CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.grpbxProfiles.SuspendLayout() CType(Me.TBCW_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBCW_PROFILESBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() Me.TBCW_PROFILESBindingNavigator.SuspendLayout() @@ -152,7 +155,7 @@ Partial Class frmAdministration ' GUIDLabel.AutoSize = True GUIDLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - GUIDLabel.Location = New System.Drawing.Point(174, 48) + GUIDLabel.Location = New System.Drawing.Point(10, 17) GUIDLabel.Name = "GUIDLabel" GUIDLabel.Size = New System.Drawing.Size(22, 13) GUIDLabel.TabIndex = 0 @@ -162,7 +165,7 @@ Partial Class frmAdministration ' NAMELabel.AutoSize = True NAMELabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - NAMELabel.Location = New System.Drawing.Point(227, 48) + NAMELabel.Location = New System.Drawing.Point(63, 17) NAMELabel.Name = "NAMELabel" NAMELabel.Size = New System.Drawing.Size(38, 13) NAMELabel.TabIndex = 2 @@ -172,7 +175,7 @@ Partial Class frmAdministration ' COMMENTLabel.AutoSize = True COMMENTLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - COMMENTLabel.Location = New System.Drawing.Point(174, 88) + COMMENTLabel.Location = New System.Drawing.Point(10, 57) COMMENTLabel.Name = "COMMENTLabel" COMMENTLabel.Size = New System.Drawing.Size(65, 13) COMMENTLabel.TabIndex = 4 @@ -182,7 +185,7 @@ Partial Class frmAdministration ' WD_SEARCHLabel.AutoSize = True WD_SEARCHLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - WD_SEARCHLabel.Location = New System.Drawing.Point(174, 128) + WD_SEARCHLabel.Location = New System.Drawing.Point(10, 97) WD_SEARCHLabel.Name = "WD_SEARCHLabel" WD_SEARCHLabel.Size = New System.Drawing.Size(89, 13) WD_SEARCHLabel.TabIndex = 6 @@ -192,7 +195,7 @@ Partial Class frmAdministration ' REGEX_EXPRESSIONLabel.AutoSize = True REGEX_EXPRESSIONLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - REGEX_EXPRESSIONLabel.Location = New System.Drawing.Point(174, 168) + REGEX_EXPRESSIONLabel.Location = New System.Drawing.Point(10, 137) REGEX_EXPRESSIONLabel.Name = "REGEX_EXPRESSIONLabel" REGEX_EXPRESSIONLabel.Size = New System.Drawing.Size(97, 13) REGEX_EXPRESSIONLabel.TabIndex = 8 @@ -202,7 +205,7 @@ Partial Class frmAdministration ' ADDED_WHOLabel.AutoSize = True ADDED_WHOLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - ADDED_WHOLabel.Location = New System.Drawing.Point(174, 208) + ADDED_WHOLabel.Location = New System.Drawing.Point(10, 177) ADDED_WHOLabel.Name = "ADDED_WHOLabel" ADDED_WHOLabel.Size = New System.Drawing.Size(65, 13) ADDED_WHOLabel.TabIndex = 10 @@ -212,7 +215,7 @@ Partial Class frmAdministration ' ADDED_WHENLabel.AutoSize = True ADDED_WHENLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - ADDED_WHENLabel.Location = New System.Drawing.Point(327, 208) + ADDED_WHENLabel.Location = New System.Drawing.Point(163, 177) ADDED_WHENLabel.Name = "ADDED_WHENLabel" ADDED_WHENLabel.Size = New System.Drawing.Size(73, 13) ADDED_WHENLabel.TabIndex = 12 @@ -222,7 +225,7 @@ Partial Class frmAdministration ' CHANGED_WHOLabel.AutoSize = True CHANGED_WHOLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - CHANGED_WHOLabel.Location = New System.Drawing.Point(174, 248) + CHANGED_WHOLabel.Location = New System.Drawing.Point(10, 217) CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" CHANGED_WHOLabel.Size = New System.Drawing.Size(77, 13) CHANGED_WHOLabel.TabIndex = 14 @@ -232,7 +235,7 @@ Partial Class frmAdministration ' CHANGED_WHENLabel.AutoSize = True CHANGED_WHENLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - CHANGED_WHENLabel.Location = New System.Drawing.Point(327, 248) + CHANGED_WHENLabel.Location = New System.Drawing.Point(163, 217) CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" CHANGED_WHENLabel.Size = New System.Drawing.Size(85, 13) CHANGED_WHENLabel.TabIndex = 16 @@ -242,54 +245,64 @@ Partial Class frmAdministration ' Me.GroupBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.GroupBox1.Controls.Add(Me.btnaddSearch) + Me.GroupBox1.Controls.Add(Me.grpbxProfiles) Me.GroupBox1.Controls.Add(Me.GridControl1) Me.GroupBox1.Controls.Add(Me.TBCW_PROFILESBindingNavigator) - Me.GroupBox1.Controls.Add(GUIDLabel) - Me.GroupBox1.Controls.Add(Me.GUIDTextBox) - Me.GroupBox1.Controls.Add(NAMELabel) - Me.GroupBox1.Controls.Add(Me.NAMETextBox) - Me.GroupBox1.Controls.Add(COMMENTLabel) - Me.GroupBox1.Controls.Add(Me.COMMENTTextBox) - Me.GroupBox1.Controls.Add(WD_SEARCHLabel) - Me.GroupBox1.Controls.Add(Me.WD_SEARCHTextBox) - Me.GroupBox1.Controls.Add(REGEX_EXPRESSIONLabel) - Me.GroupBox1.Controls.Add(Me.REGEX_EXPRESSIONTextBox) - Me.GroupBox1.Controls.Add(ADDED_WHOLabel) - Me.GroupBox1.Controls.Add(Me.ADDED_WHOTextBox) - Me.GroupBox1.Controls.Add(ADDED_WHENLabel) - Me.GroupBox1.Controls.Add(Me.ADDED_WHENTextBox) - Me.GroupBox1.Controls.Add(CHANGED_WHOLabel) - Me.GroupBox1.Controls.Add(Me.CHANGED_WHOTextBox) - Me.GroupBox1.Controls.Add(CHANGED_WHENLabel) - Me.GroupBox1.Controls.Add(Me.CHANGED_WHENTextBox) Me.GroupBox1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GroupBox1.Location = New System.Drawing.Point(12, 12) Me.GroupBox1.Name = "GroupBox1" - Me.GroupBox1.Size = New System.Drawing.Size(570, 292) + Me.GroupBox1.Size = New System.Drawing.Size(570, 318) Me.GroupBox1.TabIndex = 0 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "Profile" ' + 'grpbxProfiles + ' + Me.grpbxProfiles.Controls.Add(GUIDLabel) + Me.grpbxProfiles.Controls.Add(Me.btnaddSearch) + Me.grpbxProfiles.Controls.Add(Me.CHANGED_WHENTextBox) + Me.grpbxProfiles.Controls.Add(CHANGED_WHENLabel) + Me.grpbxProfiles.Controls.Add(Me.CHANGED_WHOTextBox) + Me.grpbxProfiles.Controls.Add(CHANGED_WHOLabel) + Me.grpbxProfiles.Controls.Add(Me.GUIDTextBox) + Me.grpbxProfiles.Controls.Add(Me.ADDED_WHENTextBox) + Me.grpbxProfiles.Controls.Add(NAMELabel) + Me.grpbxProfiles.Controls.Add(ADDED_WHENLabel) + Me.grpbxProfiles.Controls.Add(Me.NAMETextBox) + Me.grpbxProfiles.Controls.Add(Me.ADDED_WHOTextBox) + Me.grpbxProfiles.Controls.Add(COMMENTLabel) + Me.grpbxProfiles.Controls.Add(ADDED_WHOLabel) + Me.grpbxProfiles.Controls.Add(Me.COMMENTTextBox) + Me.grpbxProfiles.Controls.Add(Me.REGEX_EXPRESSIONTextBox) + Me.grpbxProfiles.Controls.Add(WD_SEARCHLabel) + Me.grpbxProfiles.Controls.Add(REGEX_EXPRESSIONLabel) + Me.grpbxProfiles.Controls.Add(Me.WD_SEARCHTextBox) + Me.grpbxProfiles.Enabled = False + Me.grpbxProfiles.Location = New System.Drawing.Point(177, 48) + Me.grpbxProfiles.Name = "grpbxProfiles" + Me.grpbxProfiles.Size = New System.Drawing.Size(381, 264) + Me.grpbxProfiles.TabIndex = 20 + Me.grpbxProfiles.TabStop = False + ' 'btnaddSearch ' Me.btnaddSearch.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnaddSearch.Location = New System.Drawing.Point(497, 142) + Me.btnaddSearch.Location = New System.Drawing.Point(333, 111) Me.btnaddSearch.Name = "btnaddSearch" Me.btnaddSearch.Size = New System.Drawing.Size(28, 23) Me.btnaddSearch.TabIndex = 19 Me.btnaddSearch.Text = "..." Me.btnaddSearch.UseVisualStyleBackColor = True ' - 'GridControl1 + 'CHANGED_WHENTextBox ' - Me.GridControl1.DataSource = Me.TBCW_PROFILESBindingSource - Me.GridControl1.Location = New System.Drawing.Point(6, 17) - Me.GridControl1.MainView = Me.GridView1 - Me.GridControl1.Name = "GridControl1" - Me.GridControl1.Size = New System.Drawing.Size(162, 268) - Me.GridControl1.TabIndex = 18 - Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(166, 233) + Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" + Me.CHANGED_WHENTextBox.ReadOnly = True + Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(127, 21) + Me.CHANGED_WHENTextBox.TabIndex = 17 ' 'TBCW_PROFILESBindingSource ' @@ -301,6 +314,92 @@ Partial Class frmAdministration Me.MyDataset.DataSetName = "MyDataset" Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema ' + 'CHANGED_WHOTextBox + ' + Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(13, 233) + Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" + Me.CHANGED_WHOTextBox.ReadOnly = True + Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(147, 21) + Me.CHANGED_WHOTextBox.TabIndex = 15 + ' + 'GUIDTextBox + ' + Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "GUID", True)) + Me.GUIDTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GUIDTextBox.Location = New System.Drawing.Point(13, 33) + Me.GUIDTextBox.Name = "GUIDTextBox" + Me.GUIDTextBox.ReadOnly = True + Me.GUIDTextBox.Size = New System.Drawing.Size(47, 21) + Me.GUIDTextBox.TabIndex = 1 + ' + 'ADDED_WHENTextBox + ' + Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(166, 193) + Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" + Me.ADDED_WHENTextBox.ReadOnly = True + Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(127, 21) + Me.ADDED_WHENTextBox.TabIndex = 13 + ' + 'NAMETextBox + ' + Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "NAME", True)) + Me.NAMETextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.NAMETextBox.Location = New System.Drawing.Point(66, 33) + Me.NAMETextBox.Name = "NAMETextBox" + Me.NAMETextBox.Size = New System.Drawing.Size(295, 21) + Me.NAMETextBox.TabIndex = 0 + ' + 'ADDED_WHOTextBox + ' + Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(13, 193) + Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" + Me.ADDED_WHOTextBox.ReadOnly = True + Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(147, 21) + Me.ADDED_WHOTextBox.TabIndex = 11 + ' + 'COMMENTTextBox + ' + Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "COMMENT", True)) + Me.COMMENTTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.COMMENTTextBox.Location = New System.Drawing.Point(13, 73) + Me.COMMENTTextBox.Name = "COMMENTTextBox" + Me.COMMENTTextBox.Size = New System.Drawing.Size(348, 21) + Me.COMMENTTextBox.TabIndex = 1 + ' + 'REGEX_EXPRESSIONTextBox + ' + Me.REGEX_EXPRESSIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "REGEX_EXPRESSION", True)) + Me.REGEX_EXPRESSIONTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.REGEX_EXPRESSIONTextBox.Location = New System.Drawing.Point(13, 153) + Me.REGEX_EXPRESSIONTextBox.Name = "REGEX_EXPRESSIONTextBox" + Me.REGEX_EXPRESSIONTextBox.Size = New System.Drawing.Size(348, 21) + Me.REGEX_EXPRESSIONTextBox.TabIndex = 3 + ' + 'WD_SEARCHTextBox + ' + Me.WD_SEARCHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "WD_SEARCH", True)) + Me.WD_SEARCHTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.WD_SEARCHTextBox.Location = New System.Drawing.Point(13, 113) + Me.WD_SEARCHTextBox.Name = "WD_SEARCHTextBox" + Me.WD_SEARCHTextBox.Size = New System.Drawing.Size(314, 21) + Me.WD_SEARCHTextBox.TabIndex = 2 + ' + 'GridControl1 + ' + Me.GridControl1.DataSource = Me.TBCW_PROFILESBindingSource + Me.GridControl1.Location = New System.Drawing.Point(6, 17) + Me.GridControl1.MainView = Me.GridView1 + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.Size = New System.Drawing.Size(162, 268) + Me.GridControl1.TabIndex = 18 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + ' 'GridView1 ' Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua @@ -342,7 +441,7 @@ Partial Class frmAdministration Me.TBCW_PROFILESBindingNavigator.CountItem = Me.BindingNavigatorCountItem Me.TBCW_PROFILESBindingNavigator.DeleteItem = Nothing Me.TBCW_PROFILESBindingNavigator.Dock = System.Windows.Forms.DockStyle.None - Me.TBCW_PROFILESBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TBCW_PROFILESBindingNavigatorSaveItem}) + Me.TBCW_PROFILESBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TBCW_PROFILESBindingNavigatorSaveItem, Me.ToolStripButton1}) Me.TBCW_PROFILESBindingNavigator.Location = New System.Drawing.Point(177, 20) Me.TBCW_PROFILESBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem Me.TBCW_PROFILESBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem @@ -350,7 +449,7 @@ Partial Class frmAdministration Me.TBCW_PROFILESBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem Me.TBCW_PROFILESBindingNavigator.Name = "TBCW_PROFILESBindingNavigator" Me.TBCW_PROFILESBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem - Me.TBCW_PROFILESBindingNavigator.Size = New System.Drawing.Size(287, 25) + Me.TBCW_PROFILESBindingNavigator.Size = New System.Drawing.Size(310, 25) Me.TBCW_PROFILESBindingNavigator.TabIndex = 1 Me.TBCW_PROFILESBindingNavigator.Text = "BindingNavigator1" ' @@ -447,91 +546,14 @@ Partial Class frmAdministration Me.TBCW_PROFILESBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22) Me.TBCW_PROFILESBindingNavigatorSaveItem.Text = "Daten speichern" ' - 'GUIDTextBox + 'ToolStripButton1 ' - Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "GUID", True)) - Me.GUIDTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GUIDTextBox.Location = New System.Drawing.Point(177, 64) - Me.GUIDTextBox.Name = "GUIDTextBox" - Me.GUIDTextBox.ReadOnly = True - Me.GUIDTextBox.Size = New System.Drawing.Size(47, 21) - Me.GUIDTextBox.TabIndex = 1 - ' - 'NAMETextBox - ' - Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "NAME", True)) - Me.NAMETextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.NAMETextBox.Location = New System.Drawing.Point(230, 64) - Me.NAMETextBox.Name = "NAMETextBox" - Me.NAMETextBox.Size = New System.Drawing.Size(295, 21) - Me.NAMETextBox.TabIndex = 3 - ' - 'COMMENTTextBox - ' - Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "COMMENT", True)) - Me.COMMENTTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.COMMENTTextBox.Location = New System.Drawing.Point(177, 104) - Me.COMMENTTextBox.Name = "COMMENTTextBox" - Me.COMMENTTextBox.Size = New System.Drawing.Size(348, 21) - Me.COMMENTTextBox.TabIndex = 5 - ' - 'WD_SEARCHTextBox - ' - Me.WD_SEARCHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "WD_SEARCH", True)) - Me.WD_SEARCHTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.WD_SEARCHTextBox.Location = New System.Drawing.Point(177, 144) - Me.WD_SEARCHTextBox.Name = "WD_SEARCHTextBox" - Me.WD_SEARCHTextBox.Size = New System.Drawing.Size(314, 21) - Me.WD_SEARCHTextBox.TabIndex = 7 - ' - 'REGEX_EXPRESSIONTextBox - ' - Me.REGEX_EXPRESSIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "REGEX_EXPRESSION", True)) - Me.REGEX_EXPRESSIONTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.REGEX_EXPRESSIONTextBox.Location = New System.Drawing.Point(177, 184) - Me.REGEX_EXPRESSIONTextBox.Name = "REGEX_EXPRESSIONTextBox" - Me.REGEX_EXPRESSIONTextBox.Size = New System.Drawing.Size(348, 21) - Me.REGEX_EXPRESSIONTextBox.TabIndex = 9 - ' - 'ADDED_WHOTextBox - ' - Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "ADDED_WHO", True)) - Me.ADDED_WHOTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(177, 224) - Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" - Me.ADDED_WHOTextBox.ReadOnly = True - Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(147, 21) - Me.ADDED_WHOTextBox.TabIndex = 11 - ' - 'ADDED_WHENTextBox - ' - Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "ADDED_WHEN", True)) - Me.ADDED_WHENTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(330, 224) - Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" - Me.ADDED_WHENTextBox.ReadOnly = True - Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(127, 21) - Me.ADDED_WHENTextBox.TabIndex = 13 - ' - 'CHANGED_WHOTextBox - ' - Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "CHANGED_WHO", True)) - Me.CHANGED_WHOTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(177, 264) - Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" - Me.CHANGED_WHOTextBox.ReadOnly = True - Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(147, 21) - Me.CHANGED_WHOTextBox.TabIndex = 15 - ' - 'CHANGED_WHENTextBox - ' - Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "CHANGED_WHEN", True)) - Me.CHANGED_WHENTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(330, 264) - Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" - Me.CHANGED_WHENTextBox.ReadOnly = True - Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(127, 21) - Me.CHANGED_WHENTextBox.TabIndex = 17 + Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.refresh_16xLG + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton1.Text = "ToolStripButton1" ' 'GroupBox2 ' @@ -778,7 +800,7 @@ Partial Class frmAdministration ' 'OFDWindreamsuche ' - Me.OFDWindreamsuche.Filter = "windream-Suche|*.wdf|Alle Dateien|*.*" + Me.OFDWindreamsuche.Filter = "windream-Suche|*.wdf;*.wdfx|Alle Dateien|*.*" Me.OFDWindreamsuche.RestoreDirectory = True Me.OFDWindreamsuche.Title = "windream-Suche wählen" ' @@ -794,7 +816,7 @@ Partial Class frmAdministration Me.GroupBox3.Controls.Add(Me.txtPID) Me.GroupBox3.Controls.Add(Me.Label4) Me.GroupBox3.Controls.Add(Me.Label3) - Me.GroupBox3.Location = New System.Drawing.Point(12, 310) + Me.GroupBox3.Location = New System.Drawing.Point(12, 351) Me.GroupBox3.Name = "GroupBox3" Me.GroupBox3.Size = New System.Drawing.Size(570, 81) Me.GroupBox3.TabIndex = 2 @@ -940,7 +962,7 @@ Partial Class frmAdministration Me.GroupBox4.Controls.Add(Me.btndeleteProcessProfileLink) Me.GroupBox4.Controls.Add(Me.btnLinkProcessPRofile) Me.GroupBox4.Controls.Add(Me.GridControl3) - Me.GroupBox4.Location = New System.Drawing.Point(12, 397) + Me.GroupBox4.Location = New System.Drawing.Point(12, 438) Me.GroupBox4.Name = "GroupBox4" Me.GroupBox4.Size = New System.Drawing.Size(570, 308) Me.GroupBox4.TabIndex = 21 @@ -1047,9 +1069,11 @@ Partial Class frmAdministration Me.Text = "Administration" Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.PerformLayout() - CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.grpbxProfiles.ResumeLayout(False) + Me.grpbxProfiles.PerformLayout() CType(Me.TBCW_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBCW_PROFILESBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() Me.TBCW_PROFILESBindingNavigator.ResumeLayout(False) @@ -1159,4 +1183,6 @@ Partial Class frmAdministration Friend WithEvents Label6 As Label Friend WithEvents Label5 As Label Friend WithEvents ToolTip1 As ToolTip + Friend WithEvents ToolStripButton1 As ToolStripButton + Friend WithEvents grpbxProfiles As GroupBox End Class diff --git a/app/DD_Clipboard_Searcher/frmAdministration.resx b/app/DD_Clipboard_Searcher/frmAdministration.resx index b31c0ea..7c34a82 100644 --- a/app/DD_Clipboard_Searcher/frmAdministration.resx +++ b/app/DD_Clipboard_Searcher/frmAdministration.resx @@ -286,7 +286,7 @@ 930, 56 - 1201, 56 + 17, 95 @@ -322,13 +322,13 @@ - 17, 95 + 280, 95 - 180, 95 + 443, 95 - 255 + 139 diff --git a/app/DD_Clipboard_Searcher/frmAdministration.vb b/app/DD_Clipboard_Searcher/frmAdministration.vb index cf003a8..b1ec5c4 100644 --- a/app/DD_Clipboard_Searcher/frmAdministration.vb +++ b/app/DD_Clipboard_Searcher/frmAdministration.vb @@ -11,6 +11,9 @@ Public Class frmAdministration Try Me.TBCW_PROFILESTableAdapter.Connection.ConnectionString = MyConnectionString Me.TBCW_PROFILESTableAdapter.Fill(Me.MyDataset.TBCW_PROFILES) + If MyDataset.TBCW_PROFILES.Rows.Count >= 1 Then + grpbxProfiles.Enabled = True + End If Catch ex As Exception MsgBox("Unexpected Error in Load Profiles: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try @@ -257,4 +260,32 @@ Public Class frmAdministration Refresh_Free_Users(0) End If End Sub + + Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click + Dim swl = String.Format("EXEC PRCW_DELETE_PROFILE {0}", GUIDTextBox.Text) + Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie das Profil löschen wollen?", MsgBoxStyle.YesNo, "Bestätigung erforderlich:") + ' wenn Speichern ja + If result = MsgBoxResult.Yes Then + If clsDatabase.Execute_non_Query(swl) = True Then + Load_Profiles() + End If + End If + + + End Sub + + Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click + Load_Profiles() + Refresh_Profile_user() + Try + Dim ID = CInt(GUIDTextBox.Text) + Catch ex As Exception + Exit Sub + End Try + Refresh_Free_Users(GUIDTextBox.Text) + End Sub + + Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click + grpbxProfiles.Enabled = True + End Sub End Class \ No newline at end of file