': 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, "QB64Mahjong", 700, 700, 0, 0, 0)
    SetCaption __UI_NewID, "QB64 Mahjong"
    Control(__UI_NewID).Stretch = False
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 12)

    __UI_NewID = __UI_NewControl(__UI_Type_Button, "ExitBT", 80, 23, 600, 660, 0)
    SetCaption __UI_NewID, "Exit"
    Control(__UI_NewID).Stretch = False
    Control(__UI_NewID).BackColor = _RGB32(0, 192, 0)
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "ScoreLB", 90, 45, 550, 150, 0)
    SetCaption __UI_NewID, " Score "
    Control(__UI_NewID).Stretch = False
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 30)
    Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
    Control(__UI_NewID).BackColor = _RGB32(0, 255, 0)
    Control(__UI_NewID).VAlign = __UI_Middle

    __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ScoreTB", 70, 45, 560, 196, 0)
    Control(__UI_NewID).Stretch = False
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 30)
    Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
    Control(__UI_NewID).BackColor = _RGB32(0, 233, 0)
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).Max = 3
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).Disabled = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "HighScoreLB", 153, 45, 520, 400, 0)
    SetCaption __UI_NewID, " HighScore "
    Control(__UI_NewID).Stretch = False
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 30)
    Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
    Control(__UI_NewID).BackColor = _RGB32(0, 255, 0)
    Control(__UI_NewID).VAlign = __UI_Middle

    __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "HighScoreTB", 70, 45, 560, 446, 0)
    Control(__UI_NewID).Stretch = False
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 30)
    Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
    Control(__UI_NewID).BackColor = _RGB32(0, 255, 0)
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).Max = 3
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).Disabled = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "NumberOfTilesLB", 307, 37, 200, 600, 0)
    SetCaption __UI_NewID, " Number of Tiles Remaining "
    Control(__UI_NewID).Stretch = False
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 24)
    Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
    Control(__UI_NewID).BackColor = _RGB32(0, 255, 0)
    Control(__UI_NewID).VAlign = __UI_Middle

    __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "NumberOfTilesTB", 70, 45, 315, 640, 0)
    Control(__UI_NewID).Stretch = False
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 30)
    Control(__UI_NewID).ForeColor = _RGB32(255, 255, 0)
    Control(__UI_NewID).BackColor = _RGB32(0, 255, 0)
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).Max = 3
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).Disabled = True

END SUB

SUB __UI_AssignIDs
    QB64Mahjong = __UI_GetID("QB64Mahjong")
    ExitBT = __UI_GetID("ExitBT")
    ScoreLB = __UI_GetID("ScoreLB")
    ScoreTB = __UI_GetID("ScoreTB")
    HighScoreLB = __UI_GetID("HighScoreLB")
    HighScoreTB = __UI_GetID("HighScoreTB")
    NumberOfTilesLB = __UI_GetID("NumberOfTilesLB")
    NumberOfTilesTB = __UI_GetID("NumberOfTilesTB")
END SUB