InForm/examples/Trackword/Trackword.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, "Trackword", 408, 567, 0, 0, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Trackword Solver"
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 12)
    Control(__UI_NewID).HasBorder = False

    __UI_NewID = __UI_NewControl(__UI_Type_Frame, "Frame1", 136, 136, 240, 120, 0)
    __UI_RegisterResult = 0
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).Value = 9
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "TrackwordSolverLB", 161, 32, 130, 14, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, " Trackword Solver "
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20)
    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_ListBox, "ListBox1", 150, 320, 15, 220, 0)
    __UI_RegisterResult = 0
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_ListBox, "ListBox2", 150, 50, 15, 100, 0)
    __UI_RegisterResult = 0
    Control(__UI_NewID).ForeColor = _RGB32(255, 0, 0)
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "WordsFoundLB", 150, 27, 15, 184, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Words Found"
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 16)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).Align = __UI_Center
    Control(__UI_NewID).VAlign = __UI_Middle

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "NineLetterWordsLB", 129, 27, 25, 65, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Nine-Letter Words"
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 16)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle

    __UI_NewID = __UI_NewControl(__UI_Type_Button, "SetPuzzleBT", 80, 23, 270, 80, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Set Puzzle"
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 14)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "TextBox1", 32, 32, 13, 12, __UI_GetID("Frame1"))
    __UI_RegisterResult = 0
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20)
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).Max = 1
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "TextBox2", 32, 32, 53, 12, __UI_GetID("Frame1"))
    __UI_RegisterResult = 0
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20)
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).Max = 1
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "TextBox3", 32, 32, 93, 13, __UI_GetID("Frame1"))
    __UI_RegisterResult = 0
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20)
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).Max = 1
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "TextBox4", 32, 32, 13, 52, __UI_GetID("Frame1"))
    __UI_RegisterResult = 0
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20)
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).Max = 1
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "TextBox5", 32, 32, 53, 52, __UI_GetID("Frame1"))
    __UI_RegisterResult = 0
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20)
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).Max = 1
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "TextBox6", 32, 32, 93, 52, __UI_GetID("Frame1"))
    __UI_RegisterResult = 0
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20)
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).Max = 1
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "TextBox7", 32, 32, 13, 92, __UI_GetID("Frame1"))
    __UI_RegisterResult = 0
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20)
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).Max = 1
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "TextBox8", 32, 32, 53, 92, __UI_GetID("Frame1"))
    __UI_RegisterResult = 0
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20)
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).Max = 1
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "TextBox9", 32, 32, 93, 92, __UI_GetID("Frame1"))
    __UI_RegisterResult = 0
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20)
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).Max = 1
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_Button, "ExitBT", 80, 23, 310, 517, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Exit"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_Button, "SolveBT", 80, 23, 270, 272, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Solve"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_Button, "ClearBT", 80, 23, 270, 321, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Clear"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox1", 150, 150, 240, 355, 0)
    __UI_RegisterResult = 0
    Control(__UI_NewID).Stretch = True
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).Align = __UI_Center
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).BorderSize = 1

END SUB

SUB __UI_AssignIDs
    Trackword = __UI_GetID("Trackword")
    Frame1 = __UI_GetID("Frame1")
    TrackwordSolverLB = __UI_GetID("TrackwordSolverLB")
    ListBox1 = __UI_GetID("ListBox1")
    ListBox2 = __UI_GetID("ListBox2")
    WordsFoundLB = __UI_GetID("WordsFoundLB")
    NineLetterWordsLB = __UI_GetID("NineLetterWordsLB")
    SetPuzzleBT = __UI_GetID("SetPuzzleBT")
    TextBox1 = __UI_GetID("TextBox1")
    TextBox2 = __UI_GetID("TextBox2")
    TextBox3 = __UI_GetID("TextBox3")
    TextBox4 = __UI_GetID("TextBox4")
    TextBox5 = __UI_GetID("TextBox5")
    TextBox6 = __UI_GetID("TextBox6")
    TextBox7 = __UI_GetID("TextBox7")
    TextBox8 = __UI_GetID("TextBox8")
    TextBox9 = __UI_GetID("TextBox9")
    ExitBT = __UI_GetID("ExitBT")
    SolveBT = __UI_GetID("SolveBT")
    ClearBT = __UI_GetID("ClearBT")
    PictureBox1 = __UI_GetID("PictureBox1")
END SUB