InForm/examples/RockPaperScissorsSpockLizard/RockHandScissor.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, "RockHandScissor", 476, 482, 0, 0, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "RockPaperScissor"
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 12)
    Control(__UI_NewID).HasBorder = False

    __UI_NewID = __UI_NewControl(__UI_Type_Frame, "Frame1", 230, 63, 114, 375, 0)
    __UI_RegisterResult = 0
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).Value = 5
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_Frame, "Frame2", 440, 320, 26, 44, 0)
    __UI_RegisterResult = 0
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).Value = 6
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "ScoreLB", 33, 28, 23, 7, __UI_GetID("Frame1"))
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Score"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle

    __UI_NewID = __UI_NewControl(__UI_Type_Button, "StartBT", 50, 23, 15, 32, __UI_GetID("Frame1"))
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "&Start"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_Button, "ExitBT", 50, 23, 90, 32, __UI_GetID("Frame1"))
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "&Exit"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_Button, "HelpBT", 50, 23, 165, 32, __UI_GetID("Frame1"))
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "&Help"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "LB", 50, 22, 120, 7, __UI_GetID("Frame1"))
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "0000"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "ROCKPAPERSCISSORGAMELB", 233, 29, 122, 2, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "ROCK PAPER SCISSOR GAME"
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 18)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "ChooseYourMoveAndWaitAIsOneLB", 193, 21, 132, 451, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Choose your move and wait AI's one"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle

    __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "assetscartajpegPX", 70, 70, 12, 13, __UI_GetID("Frame2"))
    __UI_RegisterResult = 0
    LoadImage Control(__UI_NewID), "assets\carta.jpg"
    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

    __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "assetssassojpegPX", 70, 70, 97, 13, __UI_GetID("Frame2"))
    __UI_RegisterResult = 0
    LoadImage Control(__UI_NewID), "assets\sasso.jpg"
    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

    __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "assetsforbicepngPX", 70, 70, 185, 13, __UI_GetID("Frame2"))
    __UI_RegisterResult = 0
    LoadImage Control(__UI_NewID), "assets\forbice.png"
    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

    __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "assetsRPSLS_helpjpgPX", 420, 214, 12, 94, __UI_GetID("Frame2"))
    __UI_RegisterResult = 0
    LoadImage Control(__UI_NewID), "assets\RPSLS_help.jpg"
    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

    __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "assetsspokpngPX", 70, 70, 274, 13, __UI_GetID("Frame2"))
    __UI_RegisterResult = 0
    LoadImage Control(__UI_NewID), "assets\spok.png"
    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

    __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "assetslizardpngPX", 70, 70, 358, 13, __UI_GetID("Frame2"))
    __UI_RegisterResult = 0
    LoadImage Control(__UI_NewID), "assets\lizard.png"
    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
    RockHandScissor = __UI_GetID("RockHandScissor")
    Frame1 = __UI_GetID("Frame1")
    Frame2 = __UI_GetID("Frame2")
    ScoreLB = __UI_GetID("ScoreLB")
    StartBT = __UI_GetID("StartBT")
    ExitBT = __UI_GetID("ExitBT")
    HelpBT = __UI_GetID("HelpBT")
    LB = __UI_GetID("LB")
    ROCKPAPERSCISSORGAMELB = __UI_GetID("ROCKPAPERSCISSORGAMELB")
    ChooseYourMoveAndWaitAIsOneLB = __UI_GetID("ChooseYourMoveAndWaitAIsOneLB")
    assetscartajpegPX = __UI_GetID("assetscartajpegPX")
    assetssassojpegPX = __UI_GetID("assetssassojpegPX")
    assetsforbicepngPX = __UI_GetID("assetsforbicepngPX")
    assetsRPSLS_helpjpgPX = __UI_GetID("assetsRPSLS_helpjpgPX")
    assetsspokpngPX = __UI_GetID("assetsspokpngPX")
    assetslizardpngPX = __UI_GetID("assetslizardpngPX")
END SUB