Transportauftrag und Zeiterfassung in Dispo implementiert.

UID/frmMain/frmMainV2.vb

@@ -1,4 +1,7 @@
-Public Class frmMainV2
+Imports System.Drawing.Drawing2D
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class frmMainV2
 
     Private Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As IntPtr
     Public Shared cUserSettings As New cUsersettings
@@ -50,6 +53,10 @@
         cUserSettings.load()
         ShowChat()
         btnAuftraege.PerformClick()
+
+        btnMitarbeiterKonto.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
+        setProfileImage()
+
     End Sub
 
     Private Sub btnSchliessen_Click(sender As Object, e As EventArgs) Handles btnSchliessen.Click
@@ -156,5 +163,68 @@
         ShowChat()
     End Sub
 
+    Private Sub btnMitarbeiterKonto_Click(sender As Object, e As EventArgs) Handles btnMitarbeiterKonto.Click
+        Me.Cursor = Cursors.WaitCursor
+        Dim f As New VERAG_PROG_ALLGEMEIN.frmMitarbeitersuche(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
+        f.Show()
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Public Sub setProfileImage()
+        Try
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_foto_DocId IsNot Nothing Then
+
+                Dim originalImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_foto_DocId)) 'My.Resources.Koerfez61
+
+                Dim picSize = 35
+
+                Dim space_X As Integer = 0
+                Dim space_Y As Integer = 0
+                Dim picWidth As Integer = 0
+                Dim picHheight As Integer = 0
+
+                Dim factor As Double = 1
+                If originalImage.Height < originalImage.Width Then
+                    factor = picSize / originalImage.Height
+                    picWidth = originalImage.Width * factor
+                    picHheight = originalImage.Height * factor
+
+
+                Else
+                    factor = picSize / originalImage.Width
+                    picWidth = originalImage.Width * factor
+                    picHheight = originalImage.Height * factor
+
+                End If
+
+
+                Dim croppedImage As New Bitmap(picWidth, picHheight)
+
+                Using g = Graphics.FromImage(croppedImage)
+                    Dim path As New GraphicsPath
+
+
+                    path.AddEllipse(0, 0, picSize, picSize)
+
+                    Dim reg As New Region(path)
+
+
+                    g.Clip = reg
+
+                    g.DrawImage(originalImage, 0, 0, picWidth, picHheight)
+                End Using
+
+
+                btnMitarbeiterKonto.Image = croppedImage
+
+                Exit Sub
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+
+        End Try
+        'btnMitarbeiterKonto.Image = My.Resources.mitarbeiter_s
+
+    End Sub
 
 End Class