': 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, "Pelmanism", 842, 649, 0, 0, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Pelmanism" Control(__UI_NewID).Font = SetFont("segoeui.ttf", 12) Control(__UI_NewID).ForeColor = _RGB32(169, 168, 168) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False __UI_NewID = __UI_NewControl(__UI_Type_Frame, "AudioFM", 106, 82, 720, 480, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Audio" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 2 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_RadioButton, "AudioOnRB", 80, 23, 16, 16, __UI_GetID("AudioFM")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Audio On" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).Value = -1 Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_RadioButton, "AudioOffRB", 80, 23, 16, 42, __UI_GetID("AudioFM")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Audio Off" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "BestScoreLB", 160, 84, 666, 40, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Best Score:" Control(__UI_NewID).Font = SetFont("segoeui.ttf", 30) Control(__UI_NewID).ForeColor = _RGB32(172, 180, 16) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).WordWrap = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "ScoreLB", 160, 56, 666, 200, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Score:" Control(__UI_NewID).Font = SetFont("segoeui.ttf", 30) Control(__UI_NewID).ForeColor = _RGB32(240, 254, 25) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).WordWrap = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "PelmanismLB", 150, 43, 80, 40, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Pelmanism" Control(__UI_NewID).Font = SetFont("segoeui.ttf", 28) Control(__UI_NewID).ForeColor = _RGB32(218, 165, 32) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "SetSkillLevelLB", 170, 43, 70, 100, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Set Skill Level" Control(__UI_NewID).Font = SetFont("segoeui.ttf", 28) Control(__UI_NewID).ForeColor = _RGB32(219, 165, 32) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Button, "OneBT", 40, 80, 65, 180, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "1" Control(__UI_NewID).Font = SetFont("segoeui.ttf", 60) Control(__UI_NewID).ForeColor = _RGB32(0, 0, 165) Control(__UI_NewID).BackColor = _RGB32(236, 233, 237) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_Button, "TwoBT", 40, 80, 135, 180, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "2" Control(__UI_NewID).Font = SetFont("segoeui.ttf", 60) Control(__UI_NewID).ForeColor = _RGB32(0, 0, 165) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_Button, "ThreeBT", 40, 80, 205, 180, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "3" Control(__UI_NewID).Font = SetFont("segoeui.ttf", 60) Control(__UI_NewID).ForeColor = _RGB32(0, 0, 165) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "PairingsCompletedLB", 122, 70, 704, 350, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Pairings Completed" Control(__UI_NewID).Font = SetFont("segoeui.ttf", 22) Control(__UI_NewID).ForeColor = _RGB32(230, 230, 230) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).WordWrap = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Button, "ExitBT", 80, 23, 746, 610, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Exit" Control(__UI_NewID).ForeColor = _RGB32(14, 15, 15) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_Button, "NewGameBT", 80, 23, 746, 576, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "New Game" Control(__UI_NewID).ForeColor = _RGB32(15, 15, 13) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True END SUB SUB __UI_AssignIDs Pelmanism = __UI_GetID("Pelmanism") AudioFM = __UI_GetID("AudioFM") AudioOnRB = __UI_GetID("AudioOnRB") AudioOffRB = __UI_GetID("AudioOffRB") BestScoreLB = __UI_GetID("BestScoreLB") ScoreLB = __UI_GetID("ScoreLB") PelmanismLB = __UI_GetID("PelmanismLB") SetSkillLevelLB = __UI_GetID("SetSkillLevelLB") OneBT = __UI_GetID("OneBT") TwoBT = __UI_GetID("TwoBT") ThreeBT = __UI_GetID("ThreeBT") PairingsCompletedLB = __UI_GetID("PairingsCompletedLB") ExitBT = __UI_GetID("ExitBT") NewGameBT = __UI_GetID("NewGameBT") END SUB