': This form was generated by
': InForm - GUI library for QB64 - Beta version 7
': Fellippe Heitor, 2016-2018 - fellippe@qb64.org - @fellippeheitor
': https://github.com/FellippeHeitor/InForm
'-----------------------------------------------------------
SUB __UI_LoadForm

    DIM __UI_NewID AS LONG

    __UI_NewID = __UI_NewControl(__UI_Type_Form, "GravitationSimulation", 1400, 830, 0, 0, 0)
    SetCaption __UI_NewID, "Gravitation Simulation"
    Control(__UI_NewID).Stretch = False
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 12)

    __UI_NewID = __UI_NewControl(__UI_Type_Frame, "SimulationTypeFR", 193, 190, 30, 20, 0)
    SetCaption __UI_NewID, "SimulationType"
    Control(__UI_NewID).Stretch = False
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).Value = 5

    __UI_NewID = __UI_NewControl(__UI_Type_Frame, "BodyDataFR", 190, 150, 35, 240, 0)
    SetCaption __UI_NewID, "11-Body Data"
    Control(__UI_NewID).Stretch = False
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).Hidden = True

    __UI_NewID = __UI_NewControl(__UI_Type_Frame, "GravitationalCollapseFR", 190, 150, 35, 240, 0)
    SetCaption __UI_NewID, "Gravitational Collapse"
    Control(__UI_NewID).Stretch = False
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).Hidden = True

    __UI_NewID = __UI_NewControl(__UI_Type_Frame, "GravitationalConstantFR", 300, 50, 240, 20, 0)
    Control(__UI_NewID).Stretch = False
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).Value = 2

    __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox1", 1400, 830, 0, 0, 0)
    Control(__UI_NewID).Stretch = True
    Control(__UI_NewID).BackColor = _RGB32(30, 30, 30)
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).Align = __UI_Center
    Control(__UI_NewID).VAlign = __UI_Middle

    __UI_NewID = __UI_NewControl(__UI_Type_Button, "ExitBT", 80, 23, 299, 221, 0)
    SetCaption __UI_NewID, "Exit"
    Control(__UI_NewID).Stretch = False
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_Button, "CauseBT", 80, 23, 299, 101, 0)
    SetCaption __UI_NewID, "Cause"
    Control(__UI_NewID).Stretch = False
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_Button, "ExecuteBT", 80, 23, 299, 161, 0)
    SetCaption __UI_NewID, "Execute"
    Control(__UI_NewID).Stretch = False
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_RadioButton, "SolarSystemRB", 110, 23, 25, 21, __UI_GetID("SimulationTypeFR"))
    SetCaption __UI_NewID, "Solar System"
    Control(__UI_NewID).Stretch = False
    Control(__UI_NewID).Value = -1
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_RadioButton, "BodyManualRB", 115, 23, 25, 51, __UI_GetID("SimulationTypeFR"))
    SetCaption __UI_NewID, "11-Body Manual"
    Control(__UI_NewID).Stretch = False
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_RadioButton, "GravitationalCollapseRB", 145, 23, 25, 81, __UI_GetID("SimulationTypeFR"))
    SetCaption __UI_NewID, "Gravitational Collapse"
    Control(__UI_NewID).Stretch = False
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_RadioButton, "LoadFromFileRB", 110, 23, 25, 111, __UI_GetID("SimulationTypeFR"))
    SetCaption __UI_NewID, "Load from File"
    Control(__UI_NewID).Stretch = False
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_RadioButton, "DemonstrationRB", 110, 23, 25, 141, __UI_GetID("SimulationTypeFR"))
    SetCaption __UI_NewID, "Demonstration"
    Control(__UI_NewID).Stretch = False
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "GravitationalConstantM3kg1s2LB", 210, 21, 5, 10, __UI_GetID("GravitationalConstantFR"))
    SetCaption __UI_NewID, "Gravitational Constant (m^3kg^-1s^-2)"
    Control(__UI_NewID).Stretch = False
    Control(__UI_NewID).VAlign = __UI_Middle

    __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "GravitationalConstantTB", 82, 23, 215, 10, __UI_GetID("GravitationalConstantFR"))
    SetCaption __UI_NewID, "GravitationalConstant"
    Text(__UI_NewID) = "6.67385E-11"
    Control(__UI_NewID).Stretch = False
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).CanHaveFocus = True

END SUB

SUB __UI_AssignIDs
    GravitationSimulation = __UI_GetID("GravitationSimulation")
    SimulationTypeFR = __UI_GetID("SimulationTypeFR")
    BodyDataFR = __UI_GetID("BodyDataFR")
    GravitationalCollapseFR = __UI_GetID("GravitationalCollapseFR")
    GravitationalConstantFR = __UI_GetID("GravitationalConstantFR")
    PictureBox1 = __UI_GetID("PictureBox1")
    ExitBT = __UI_GetID("ExitBT")
    CauseBT = __UI_GetID("CauseBT")
    ExecuteBT = __UI_GetID("ExecuteBT")
    SolarSystemRB = __UI_GetID("SolarSystemRB")
    BodyManualRB = __UI_GetID("BodyManualRB")
    GravitationalCollapseRB = __UI_GetID("GravitationalCollapseRB")
    LoadFromFileRB = __UI_GetID("LoadFromFileRB")
    DemonstrationRB = __UI_GetID("DemonstrationRB")
    GravitationalConstantM3kg1s2LB = __UI_GetID("GravitationalConstantM3kg1s2LB")
    GravitationalConstantTB = __UI_GetID("GravitationalConstantTB")
END SUB