InForm/examples/Mahjong/QB64Mahjong.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, "QB64Mahjong", 700, 700, 0, 0, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "QB64 Mahjong"
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 12)
    Control(__UI_NewID).BackColor = _RGB32(0, 0, 237)
    Control(__UI_NewID).HasBorder = False

    __UI_NewID = __UI_NewControl(__UI_Type_Frame, "Frame1", 108, 190, 581, 503, 0)
    __UI_RegisterResult = 0
    Control(__UI_NewID).BackColor = _RGB32(0, 17, 180)
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).Value = 5
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_Button, "ExitBT", 80, 23, 12, 157, __UI_GetID("Frame1"))
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Exit"
    Control(__UI_NewID).BackColor = _RGB32(0, 192, 0)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "ScoreLB", 90, 45, 566, 110, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, " Score "
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 30)
    Control(__UI_NewID).ForeColor = _RGB32(255, 255, 165)
    Control(__UI_NewID).BackColor = _RGB32(0, 121, 0)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "HighScoreLB", 153, 45, 536, 340, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, " HighScore "
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 30)
    Control(__UI_NewID).ForeColor = _RGB32(255, 255, 165)
    Control(__UI_NewID).BackColor = _RGB32(0, 121, 0)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle

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

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "Label1LB", 307, 37, 197, 540, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, " Press Start to Initiate "
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 24)
    Control(__UI_NewID).ForeColor = _RGB32(255, 255, 165)
    Control(__UI_NewID).BackColor = _RGB32(0, 120, 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_Button, "NewGameBT", 80, 23, 12, 85, __UI_GetID("Frame1"))
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "New Game"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_Button, "SaveGameBT", 80, 23, 12, 121, __UI_GetID("Frame1"))
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Save Game"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "ScoringLB", 60, 45, 581, 155, 0)
    __UI_RegisterResult = 0
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 30)
    Control(__UI_NewID).ForeColor = _RGB32(255, 255, 165)
    Control(__UI_NewID).BackColor = _RGB32(0, 121, 0)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).Align = __UI_Right
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).Padding = 5
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "HighScoringLB", 60, 45, 581, 385, 0)
    __UI_RegisterResult = 0
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 30)
    Control(__UI_NewID).ForeColor = _RGB32(255, 255, 165)
    Control(__UI_NewID).BackColor = _RGB32(0, 121, 0)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).Align = __UI_Right
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).Padding = 5

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "TilesRemainingLB", 60, 45, 320, 637, 0)
    __UI_RegisterResult = 0
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 30)
    Control(__UI_NewID).ForeColor = _RGB32(255, 255, 165)
    Control(__UI_NewID).BackColor = _RGB32(0, 121, 0)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).Align = __UI_Right
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).Padding = 5

    __UI_NewID = __UI_NewControl(__UI_Type_Button, "UndoBT", 80, 23, 12, 49, __UI_GetID("Frame1"))
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Undo"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_Button, "StillBT", 80, 23, 12, 13, __UI_GetID("Frame1"))
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Still"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).CanHaveFocus = True

END SUB

SUB __UI_AssignIDs
    QB64Mahjong = __UI_GetID("QB64Mahjong")
    Frame1 = __UI_GetID("Frame1")
    ExitBT = __UI_GetID("ExitBT")
    ScoreLB = __UI_GetID("ScoreLB")
    HighScoreLB = __UI_GetID("HighScoreLB")
    NumberOfTilesLB = __UI_GetID("NumberOfTilesLB")
    Label1LB = __UI_GetID("Label1LB")
    NewGameBT = __UI_GetID("NewGameBT")
    SaveGameBT = __UI_GetID("SaveGameBT")
    ScoringLB = __UI_GetID("ScoringLB")
    HighScoringLB = __UI_GetID("HighScoringLB")
    TilesRemainingLB = __UI_GetID("TilesRemainingLB")
    UndoBT = __UI_GetID("UndoBT")
    StillBT = __UI_GetID("StillBT")
END SUB