Redesign Start Form

Global_Indexer/frmStart.vb

@@ -81,11 +81,13 @@ Public Class frmStart
             End If
             ' SetLanguage()
             If USER_IS_ADMIN = True Then
-                ToolStripSeparator1.Visible = True
-                AdministrationToolStripMenuItem.Visible = True
+                'ToolStripSeparator1.Visible = True
+                'AdministrationToolStripMenuItem.Visible = True
+                buttonAdmin.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
             Else
-                ToolStripSeparator1.Visible = False
-                AdministrationToolStripMenuItem.Visible = False
+                'ToolStripSeparator1.Visible = False
+                'AdministrationToolStripMenuItem.Visible = False
+                buttonAdmin.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
             End If
             DATABASE_ECM.ExecuteNonQuery("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')")
 
@@ -115,9 +117,9 @@ Public Class frmStart
         Start_Folderwatch()
         ClassWindowLocation.LoadFormLocationSize(Me, LoadSize:=False)
         Try
-            Me.LabelControl1.Location = New Point(13, 37)
+            'Me.LabelControl1.Location = New Point(13, 37)
         Catch ex As Exception
-            Me.btnChoosefiles.Location = New Point(269, 37)
+            'Me.btnChoosefiles.Location = New Point(269, 37)
         End Try
     End Sub
 
@@ -147,7 +149,7 @@ Public Class frmStart
         DragDropForm(e)
     End Sub
 
-    Private Sub LabelControl1_DragDrop(sender As Object, e As DragEventArgs) Handles LabelControl1.DragDrop, btnChoosefiles.DragDrop
+    Private Sub LabelControl1_DragDrop(sender As Object, e As DragEventArgs) Handles LabelControl1.DragDrop
         DragDropForm(e)
     End Sub
 
@@ -155,7 +157,7 @@ Public Class frmStart
         Drag_Enter(sender, e)
     End Sub
 
-    Private Sub LabelControl1_DragEnter(sender As Object, e As DragEventArgs) Handles LabelControl1.DragEnter, btnChoosefiles.DragEnter
+    Private Sub LabelControl1_DragEnter(sender As Object, e As DragEventArgs) Handles LabelControl1.DragEnter
         Drag_Enter(sender, e)
     End Sub
 
@@ -280,7 +282,7 @@ Public Class frmStart
         End Try
     End Sub
 
-    Private Sub btnChoosefiles_Click(sender As Object, e As EventArgs) Handles btnChoosefiles.Click
+    Private Sub btnChoosefiles_Click(sender As Object, e As EventArgs)
         Try
             Dim oFileName As String
             Dim oOpenFileDialog As New OpenFileDialog With {
@@ -327,17 +329,17 @@ Public Class frmStart
         End Try
     End Sub
 
-    Private Sub HistoryIndexierteDateienToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HistoryIndexierteDateienToolStripMenuItem.Click
+    Private Sub HistoryIndexierteDateienToolStripMenuItem_Click(sender As Object, e As EventArgs)
         frmHistory.ShowDialog()
     End Sub
 
-    Private Sub InfoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InfoToolStripMenuItem.Click
+    Private Sub InfoToolStripMenuItem_Click(sender As Object, e As EventArgs)
         Me.TopMost = False
         frmAbout.ShowDialog()
         Me.TopMost = True
     End Sub
 
-    Private Sub AdministrationToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AdministrationToolStripMenuItem.Click
+    Private Sub AdministrationToolStripMenuItem_Click(sender As Object, e As EventArgs)
         Try
             Me.Hide()
             frmAdministration.ShowDialog()
@@ -348,7 +350,7 @@ Public Class frmStart
         End Try
     End Sub
 
-    Private Sub GrundeinstellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GrundeinstellungenToolStripMenuItem.Click
+    Private Sub GrundeinstellungenToolStripMenuItem_Click(sender As Object, e As EventArgs)
         Me.TopMost = False
         frmConfig_Basic.ShowDialog()
         'Wurde die Sprache in der Konfiguration geändert
@@ -384,9 +386,9 @@ Public Class frmStart
 
         If CURRENT_FOLDERWATCH <> "" Or CURRENT_SCAN_FOLDERWATCH <> "" Then
             If FWFunction_STARTED = True Then
-                tslblFW.Visible = True
+                labelFolderwatch.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
             Else
-                tslblFW.Visible = False
+                labelFolderwatch.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
             End If
 
             Try
@@ -532,9 +534,9 @@ Public Class frmStart
                         Next
                         Me.TimerFolderWatch.Start()
                     End If
-                    tslblFW.Visible = True
+                    labelFolderwatch.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
                 Else
-                    tslblFW.Visible = False
+                    labelFolderwatch.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
                 End If
             Catch ex As Exception
                 If ex.Message.Contains("Sammlung wurde geändert") Or ex.Message.Contains("Enumeration") Then
@@ -586,5 +588,80 @@ Public Class frmStart
         End If
     End Sub
 
+    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles buttonAdmin.ItemClick
+        Try
+            Me.Hide()
+            frmAdministration.ShowDialog()
+            Me.Show()
+        Catch ex As Exception
+            MsgBox("Fehler in der Administration:" & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Critical, Text)
+            LOGGER.Error(ex)
+        End Try
+    End Sub
 
+    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
+        Me.TopMost = False
+        frmConfig_Basic.ShowDialog()
+        'Wurde die Sprache in der Konfiguration geändert
+        If LANGUAGE_CHANGED = True Then
+            Try
+                If USER_LANGUAGE = "de-DE" Then
+                    MsgBox("Zur letzendlichen Neukonfiguration der Sprache ist ein Neustart notwendig!", MsgBoxStyle.Information, Text)
+                Else
+                    MsgBox("For the final changing of language, a restart is required!", MsgBoxStyle.Information, Text)
+                End If
+                Application.Restart()
+            Catch ex As Exception
+                LOGGER.Error(ex)
+                MsgBox("Please restart the application manually.", MsgBoxStyle.Information, Text)
+            End Try
+        Else
+            Start_Folderwatch()
+            Me.TopMost = True
+        End If
+    End Sub
+
+    Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
+        frmHistory.ShowDialog()
+    End Sub
+
+    Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
+        Me.TopMost = False
+        frmAbout.ShowDialog()
+        Me.TopMost = True
+    End Sub
+
+    Private Sub LabelControl1_Click(sender As Object, e As EventArgs) Handles LabelControl1.Click
+        Try
+            Dim oFileName As String
+            Dim oOpenFileDialog As New OpenFileDialog With {
+                .RestoreDirectory = True,
+                .Multiselect = True
+            }
+
+            If oOpenFileDialog.ShowDialog() = DialogResult.OK Then
+                'TODO: REMOVE
+                'ClassFileDrop.FilesDropped.Clear()
+
+                Dim oDroppedFiles As New List(Of FileDrop.DroppedFile)
+
+                For Each oFileName In oOpenFileDialog.FileNames
+                    LOGGER.Info(">> Chosen File: " & oFileName)
+
+                    'TODO: REMOVE
+                    'ClassFileDrop.FilesDropped.Add("|DROPFROMFSYSTEM|" & oFileName)
+
+                    Dim oFile = New FileDrop.DroppedFile(oFileName) With {
+                        .FileFormat = FileDrop.FileFormat.LocalFile
+                    }
+                    oDroppedFiles.Add(oFile)
+                Next
+
+                'TimerCheckDroppedFiles.Start()
+                Check_Dropped_Files(oDroppedFiles)
+            End If
+        Catch ex As Exception
+            MsgBox("Unexpected Error in Choose Files for Indexing:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
 End Class