InForm/examples/Pelmanism/Pelmanism.frm

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

    DIM __UI_NewID AS LONG, __UI_RegisterResult AS LONG

    __UI_NewID = __UI_NewControl(__UI_Type_Form, "Pelmanism", 842, 649, 0, 0, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Pelmanism"
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 12)
    Control(__UI_NewID).ForeColor = _RGB32(169, 168, 168)
    Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
    Control(__UI_NewID).HasBorder = False

    __UI_NewID = __UI_NewControl(__UI_Type_Frame, "AudioFM", 106, 82, 720, 480, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Audio"
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).Value = 2
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_RadioButton, "AudioOnRB", 80, 23, 16, 16, __UI_GetID("AudioFM"))
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Audio On"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).Value = -1
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_RadioButton, "AudioOffRB", 80, 23, 16, 42, __UI_GetID("AudioFM"))
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Audio Off"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "BestScoreLB", 160, 84, 666, 40, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Best Score:"
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 30)
    Control(__UI_NewID).ForeColor = _RGB32(172, 180, 16)
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).WordWrap = True
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "ScoreLB", 160, 56, 666, 200, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Score:"
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 30)
    Control(__UI_NewID).ForeColor = _RGB32(240, 254, 25)
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).WordWrap = True
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "PelmanismLB", 150, 43, 80, 40, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Pelmanism"
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 28)
    Control(__UI_NewID).ForeColor = _RGB32(218, 165, 32)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).Align = __UI_Center
    Control(__UI_NewID).VAlign = __UI_Middle

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "SetSkillLevelLB", 170, 43, 70, 100, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Set Skill Level"
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 28)
    Control(__UI_NewID).ForeColor = _RGB32(219, 165, 32)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).Align = __UI_Center
    Control(__UI_NewID).VAlign = __UI_Middle

    __UI_NewID = __UI_NewControl(__UI_Type_Button, "OneBT", 40, 80, 65, 180, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "1"
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 60)
    Control(__UI_NewID).ForeColor = _RGB32(0, 0, 165)
    Control(__UI_NewID).BackColor = _RGB32(236, 233, 237)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_Button, "TwoBT", 40, 80, 135, 180, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "2"
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 60)
    Control(__UI_NewID).ForeColor = _RGB32(0, 0, 165)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_Button, "ThreeBT", 40, 80, 205, 180, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "3"
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 60)
    Control(__UI_NewID).ForeColor = _RGB32(0, 0, 165)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "PairingsCompletedLB", 122, 70, 704, 350, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Pairings Completed"
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 22)
    Control(__UI_NewID).ForeColor = _RGB32(230, 230, 230)
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).WordWrap = True
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_Button, "ExitBT", 80, 23, 746, 610, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Exit"
    Control(__UI_NewID).ForeColor = _RGB32(14, 15, 15)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_Button, "NewGameBT", 80, 23, 746, 576, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "New Game"
    Control(__UI_NewID).ForeColor = _RGB32(15, 15, 13)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).CanHaveFocus = True

END SUB

SUB __UI_AssignIDs
    Pelmanism = __UI_GetID("Pelmanism")
    AudioFM = __UI_GetID("AudioFM")
    AudioOnRB = __UI_GetID("AudioOnRB")
    AudioOffRB = __UI_GetID("AudioOffRB")
    BestScoreLB = __UI_GetID("BestScoreLB")
    ScoreLB = __UI_GetID("ScoreLB")
    PelmanismLB = __UI_GetID("PelmanismLB")
    SetSkillLevelLB = __UI_GetID("SetSkillLevelLB")
    OneBT = __UI_GetID("OneBT")
    TwoBT = __UI_GetID("TwoBT")
    ThreeBT = __UI_GetID("ThreeBT")
    PairingsCompletedLB = __UI_GetID("PairingsCompletedLB")
    ExitBT = __UI_GetID("ExitBT")
    NewGameBT = __UI_GetID("NewGameBT")
END SUB