InForm/examples/MasterMindGuessTheSequence/MasterMindGuessTheSequence.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

    $RESIZE:ON
    DIM __UI_NewID AS LONG, __UI_RegisterResult AS LONG

    __UI_NewID = __UI_NewControl(__UI_Type_Form, "MasterMindGuessTheSequence", 602, 300, 0, 0, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "MasterMind: guess the sequence!"
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 12)
    Control(__UI_NewID).BackColor = _RGB32(253, 0, 0)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).CenteredWindow = True
    Control(__UI_NewID).CanResize = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "SecretSequenceLB", 150, 23, 32, 24, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Secret Sequence"
    Control(__UI_NewID).BackColor = _RGB32(251, 255, 0)
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).Align = __UI_Center
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "WriteSequenceToTestTB", 141, 23, 204, 24, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Write Sequence to test"
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_ListBox, "ListBox1", 153, 184, 32, 62, 0)
    __UI_RegisterResult = 0
    Control(__UI_NewID).ForeColor = _RGB32(255, 255, 255)
    Control(__UI_NewID).BackColor = _RGB32(0, 0, 0)
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_Button, "TestSequenceBT", 101, 23, 364, 24, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Test Sequence"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_Button, "HelpBT", 80, 23, 370, 94, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "&Help"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_Button, "StartBT", 80, 23, 466, 94, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "&Start"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_Button, "OptionsBT", 80, 23, 370, 129, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Options"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_Button, "QuitBT", 82, 23, 466, 129, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Quit"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "HelpLB", 400, 120, 200, 170, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Help"
    Control(__UI_NewID).BackColor = _RGB32(0, 255, 0)
    Control(__UI_NewID).HasBorder = False

    __UI_NewID = __UI_NewControl(__UI_Type_TrackBar, "TrackBar1", 150, 25, 210, 80, 0)
    __UI_RegisterResult = 0
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).Min = 4
    Control(__UI_NewID).Max = 10
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).Interval = 1

    __UI_NewID = __UI_NewControl(__UI_Type_CheckBox, "RadioButton1", 100, 25, 200, 120, 0)
    __UI_RegisterResult = 0
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "TrackBar1LB", 20, 25, 280, 60, 0)
    __UI_RegisterResult = 0
    Control(__UI_NewID).HasBorder = False

    __UI_NewID = __UI_NewControl(__UI_Type_CheckBox, "MusicCB", 100, 25, 200, 140, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Music"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).CanHaveFocus = True

END SUB

SUB __UI_AssignIDs
    MasterMindGuessTheSequence = __UI_GetID("MasterMindGuessTheSequence")
    SecretSequenceLB = __UI_GetID("SecretSequenceLB")
    WriteSequenceToTestTB = __UI_GetID("WriteSequenceToTestTB")
    ListBox1 = __UI_GetID("ListBox1")
    TestSequenceBT = __UI_GetID("TestSequenceBT")
    HelpBT = __UI_GetID("HelpBT")
    StartBT = __UI_GetID("StartBT")
    OptionsBT = __UI_GetID("OptionsBT")
    QuitBT = __UI_GetID("QuitBT")
    HelpLB = __UI_GetID("HelpLB")
    TrackBar1 = __UI_GetID("TrackBar1")
    RadioButton1 = __UI_GetID("RadioButton1")
    TrackBar1LB = __UI_GetID("TrackBar1LB")
    MusicCB = __UI_GetID("MusicCB")
END SUB