DISPO/UID/frmMain/frmMainV2.vb

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
    Private Sub UserPanelSwitcher_Click(sender As Button, e As EventArgs) Handles btnFirmen.Click, btnAuftraege.Click, btnFrachtkosten.Click

        btnFirmen.BackColor = Color.White
        btnAuftraege.BackColor = Color.White
        btnFrachtkosten.BackColor = Color.White
        'btnTrips.BackColor = Color.White

        sender.BackColor = Color.RoyalBlue

        PanMain.Controls.Clear()
        If sender Is btnAuftraege Then Dim usrcntrl As New usrcntlAuftraege : usrcntrl.Dock = DockStyle.Fill : PanMain.Controls.Add(usrcntrl)
        If sender Is btnFirmen Then Dim usrcntrl As New usrcntlFirmen : usrcntrl.Dock = DockStyle.Fill : PanMain.Controls.Add(usrcntrl)
        If sender Is btnFrachtkosten Then Dim usrcntrl As New usrcntlFrachtkosten : usrcntrl.Dock = DockStyle.Fill : PanMain.Controls.Add(usrcntrl)
        ' If sender Is btnTrips Then Dim usrcntrl As New usrcntlTrips : usrcntrl.Dock = DockStyle.Fill : PanMain.Controls.Add(usrcntrl)

    End Sub

    Private Sub frmMain_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
        frmLogin.Close()
    End Sub

    Private Sub btnCMR_Click(sender As Object, e As EventArgs) Handles btnCMR.Click
        Me.Cursor = Cursors.WaitCursor
        Dim eh As New SDL.frmCMR()
        eh.Show()
        Me.Cursor = Cursors.Default
        '  End If

        Exit Sub
        frmCMR.Show()
    End Sub

    Private Sub btnKasse_Click(sender As Object, e As EventArgs) Handles btnKasse.Click
        Dim s As New SDL.frmSecureLoginKassenbuch
        s.openKB = True
        s.disableCBO = False
        s.ShowDialog(Me)
    End Sub

    Private Sub btnVollmacht_Click(sender As Object, e As EventArgs) Handles btnVollmacht.Click
        SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VERAG_EXPORT, -1, , True)
    End Sub

    Private Sub frmMainV2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        lblVersion.Text = "Version: " & Application.ProductVersion

        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
        Application.Exit()
    End Sub

    Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
        frmLogin.UpdateDISPO()
    End Sub

    Dim Timer_REFRESH_firstTime = True
    Private Sub Timer_REFRESH_Tick(sender As Object, e As EventArgs) Handles Timer_Refresh.Tick
        If Timer_REFRESH_firstTime Then
            Timer_REFRESH_firstTime = False
            Exit Sub
        End If
        Try
            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ChatBenutzer And picAVISOMessenger.Visible Then
                Dim newMsg = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT()
                ' MsgBox(newMsg)
                Label20.Text = newMsg
                Label20.Visible = (newMsg > 0)
                If newMsg Then
                    ' Me.Icon = My.Resources.avisoNewMsg

                    Dim isshown = False
                    For Each openForm In Application.OpenForms()
                        If TypeOf (openForm) Is frmNotify Then
                            isshown = True
                        End If
                    Next

                    Dim isInFront = False
                    For Each openForm In Application.OpenForms()
                        If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then
                            '  If DirectCast(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).Focused Then
                            If GetActiveWindow = DirectCast(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).Handle Then
                                isInFront = True
                            End If
                        End If
                    Next
                    If Not isshown And Not isInFront Then newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1)
                Else
                    '  Me.Icon = My.Resources.Aviso
                End If
                If Label20.Visible Then Label20.BringToFront()
            End If

        Catch ex As Exception

        End Try
    End Sub
    Sub newNotify(art As frmNotify.cNotify_ART, title As Integer, text As String, id As Integer)
        '   Exit Sub 'NICHT AKTIV
        Dim formTmp = Me.ActiveForm
        Dim frmNotify As New frmNotify(art, title, text, id)
        frmNotify.TimerInterval = 1200000 ' 20min


        Dim tmpY As Integer = Me.Height
        If tmpY <= 0 Then tmpY = My.Computer.Screen.WorkingArea.Height

        For Each ft As Form In Application.OpenForms
            ' MsgBox(ft.GetType.ToString)
            If ft.GetType.ToString = "frmNotify" Then
                If ft.Location.Y < tmpY Then tmpY = ft.Location.Y
            End If
        Next
        frmNotify.Y = tmpY - frmNotify.Height - 10
        frmNotify.Show()

        ' If formTmp IsNot Nothing Then formTmp.Focus()
    End Sub
    Private Sub picAVISOMessenger_Click(sender As Object, e As EventArgs) Handles picAVISOMessenger.Click
        For Each openForm In Application.OpenForms()
            If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then
                CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).WindowState = FormWindowState.Normal
                CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).BringToFront()
                Exit Sub
            End If
        Next

        Dim f As New VERAG_PROG_ALLGEMEIN.frmMessenger
        f.Location = Cursor.Position
        f.Show(Me)
    End Sub

    Private Sub ShowChat()

        picAVISOMessenger.Enabled = cUserSettings.ChatEnabled
        picAVISOMessenger.Visible = cUserSettings.ChatEnabled
        Timer_Refresh.Enabled = cUserSettings.ChatEnabled
    End Sub

    'Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs)
    '    cUserSettings.ChatEnabled = CheckBox1.Checked
    '    picAVISOMessenger.Enabled = CheckBox1.Checked
    '    picAVISOMessenger.Visible = CheckBox1.Checked
    'End Sub

    Private Sub ChatANAUSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ChatANAUSToolStripMenuItem.Click
        cUserSettings.ChatEnabled = Not cUserSettings.ChatEnabled
        cUserSettings.save()
        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