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

MS_27.04.2016_1

Browse Source
This commit is contained in:
SchreiberM
2016-04-28 11:47:47 +02:00
parent c173fe57e8
commit 0cae7cdc6a
3 changed files with 51 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@@ -718,7 +718,10 @@ Public Class frmConstructor_Main
RIGHT_ONLY_READ = False
tsmi_RecordDelete.Enabled = True
DeleteToolStripMenuItem.Enabled = True
CopyToolStripMenuItem.Enabled = True
RecordKopierenToolStripMenuItem.Enabled = True
PropertiesToolStripMenuItem.Enabled = True
tslblLocked.Visible = False
TabFollowUp.PageEnabled = True
Dim tempsql
@@ -758,6 +761,9 @@ Public Class frmConstructor_Main
tsButtonSave.Enabled = False
tsButtonDelete.Enabled = False
tsmi_RecordDelete.Enabled = False
PropertiesToolStripMenuItem.Enabled = False
CopyToolStripMenuItem.Enabled = False
DeleteToolStripMenuItem.Enabled = False
tslblLocked.Visible = True
RecordKopierenToolStripMenuItem.Enabled = False
TabFollowUp.PageEnabled = False
@@ -4715,7 +4721,7 @@ Public Class frmConstructor_Main
Delete_Record()
End Sub
Private Sub KopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KopierenToolStripMenuItem.Click
Private Sub KopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click
If RESULT_DOC_PATH <> Nothing Then
Try
Dim selectedfile(0) As String
@@ -4744,7 +4750,7 @@ Public Class frmConstructor_Main
End Sub
Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click
Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeleteToolStripMenuItem.Click
If RESULT_DOC_PATH <> Nothing Then
Dim msg = "Sind Sie sicher, dass Sie diese Dateien löschen wollen?"
If USER_LANGUAGE <> "de-DE" Then
@@ -4769,7 +4775,7 @@ Public Class frmConstructor_Main
End Sub
Private Sub EigenschaftenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EigenschaftenToolStripMenuItem.Click
Private Sub EigenschaftenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PropertiesToolStripMenuItem.Click
If RESULT_DOC_PATH <> Nothing Then
Cursor = Cursors.WaitCursor
Dim sei As New SHELLEXECUTEINFO