AppStd/ClipboardWatcher
AppStd/ClipboardWatcher
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS Cahnges

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2018-06-15 11:48:04 +02:00
parent afd5186e62
commit bb412d1141
5 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
app/.vs/DD_Clipboard_Watcher/DesignTimeBuild/.dtbcache Normal file
View File

Binary file not shown.

4
app/DD_Clipboard_Searcher/frmAdministration.Designer.vb generated
View File

@ -114,6 +114,7 @@ Partial Class frmAdministration
Me.lbllicenseCount = New System.Windows.Forms.Label() Me.lbllicenseCount = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
GUIDLabel = New System.Windows.Forms.Label() GUIDLabel = New System.Windows.Forms.Label()
NAMELabel = New System.Windows.Forms.Label() NAMELabel = New System.Windows.Forms.Label()
COMMENTLabel = New System.Windows.Forms.Label() COMMENTLabel = New System.Windows.Forms.Label()
@ -349,7 +350,7 @@ Partial Class frmAdministration
Me.TBCW_PROFILESBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem Me.TBCW_PROFILESBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
Me.TBCW_PROFILESBindingNavigator.Name = "TBCW_PROFILESBindingNavigator" Me.TBCW_PROFILESBindingNavigator.Name = "TBCW_PROFILESBindingNavigator"
Me.TBCW_PROFILESBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem Me.TBCW_PROFILESBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem
Me.TBCW_PROFILESBindingNavigator.Size = New System.Drawing.Size(318, 25) Me.TBCW_PROFILESBindingNavigator.Size = New System.Drawing.Size(287, 25)
Me.TBCW_PROFILESBindingNavigator.TabIndex = 1 Me.TBCW_PROFILESBindingNavigator.TabIndex = 1
Me.TBCW_PROFILESBindingNavigator.Text = "BindingNavigator1" Me.TBCW_PROFILESBindingNavigator.Text = "BindingNavigator1"
' '
@ -1157,4 +1158,5 @@ Partial Class frmAdministration
Friend WithEvents lbllicenseCount As Label Friend WithEvents lbllicenseCount As Label
Friend WithEvents Label6 As Label Friend WithEvents Label6 As Label
Friend WithEvents Label5 As Label Friend WithEvents Label5 As Label
Friend WithEvents ToolTip1 As ToolTip
End Class End Class

6
app/DD_Clipboard_Searcher/frmAdministration.resx
View File

@ -324,6 +324,12 @@
<metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value> <value>17, 95</value>
</metadata> </metadata>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>180, 95</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>255</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA

9
app/DD_Clipboard_Searcher/frmAdministration.vb
View File

@ -235,4 +235,13 @@ Public Class frmAdministration
Status_Changed("", Color.Transparent) Status_Changed("", Color.Transparent)
End If End If
End Sub End Sub
Private Sub WD_SEARCHTextBox_MouseHover(sender As Object, e As EventArgs) Handles WD_SEARCHTextBox.MouseHover
ToolTip1.SetToolTip(WD_SEARCHTextBox, "Replace patterns for string fields: " & vbNewLine & "@Clipboard" & vbNewLine & "@CLIPBOARD" & vbNewLine & "@Zwischenablage" &
vbNewLine & "Replace patterns for integer fields: " & vbNewLine & "123456789" & vbNewLine & "4711")
ToolTip1.ToolTipTitle = "Replace patterns:"
ToolTip1.IsBalloon = True
ToolTip1.ToolTipIcon = ToolTipIcon.Info
ToolTip1.UseAnimation = True
End Sub
End Class End Class

2
app/DD_Clipboard_Searcher/frmMain.vb
View File

@ -183,7 +183,7 @@ Public Class frmMain
End If End If
Else Else
If USER_IS_ADMIN = True And ERROR_INIT = "NO LICENSE" Then If USER_IS_ADMIN = True And ERROR_INIT = "NO LICENSE" Then
MsgBox("As an admin You have exit! Please inform Digital Data to add a valid license!", MsgBoxStyle.Exclamation, "") MsgBox("As an admin You have access! Please inform Digital Data to add a valid license!", MsgBoxStyle.Exclamation, "")
Else Else
If Not USER_IS_ADMIN Then If Not USER_IS_ADMIN Then
MsgBox("Application will close now!", MsgBoxStyle.Critical, "") MsgBox("Application will close now!", MsgBoxStyle.Critical, "")