Imports XCCLibrary
Public Class AppForm
    Public Shared fillMode As Boolean

    Sub AppForm_Load() Handles MyBase.Load
        Dim dir As New IO.DirectoryInfo("C:\Users\Anton\Documents\Exjobb")
        If dir.Exists Then
            Individual.filepath = "C:\Users\Anton\Documents\Exjobb"
        Else
            Individual.filepath = "C:\Users\xperd\Documents"
        End If

        Settings.filesFolder = Individual.filepath
        Settings.HLCtFolder = Individual.filepath & "\X2021"

        Me.Width = 1400
        Me.Height = 800
        Me.Top = 20
        Me.Left = 50

        Panel_Start.Controls.Clear()
        Main_Menu.TopLevel = False
        Panel_Start.Controls.Add(Main_Menu)
        Main_Menu.Show()

        ' Get floor gratings database
        Database.Retrive_Database()

        ' Initialize DataTables, Measurments and more
        Data.Init_Data()

        ' Initialize DrawingPanel
        Draw_Grating.Load_DrawingPanel()

        ' Load XCC settings
        adminClass.loadSettings(Settings.filesFolder, Settings.HLCtFolder, "SolidWorks")

        Individual.ComboBox_Type.Items.Add("Pressure Welded")
        Individual.ComboBox_Type.Items.Add("Type A")
    End Sub

End Class