mirror of
https://github.com/FellippeHeitor/InForm.git
synced 2025-01-15 11:59:34 +00:00
86 lines
3.4 KiB
Text
86 lines
3.4 KiB
Text
|
': 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, "PictureGrid", 310, 360, 0, 0, 0)
|
||
|
|
__UI_RegisterResult = 0
|
||
|
|
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_Label, "PictureGridLB", 150, 43, 80, 40, 0)
|
||
|
|
__UI_RegisterResult = 0
|
||
|
|
SetCaption __UI_NewID, "Picture Grid"
|
||
|
|
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_Button, "ExitBT", 80, 23, 214, 321, 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, 214, 287, 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
|
||
|
|
PictureGrid = __UI_GetID("PictureGrid")
|
||
|
|
PictureGridLB = __UI_GetID("PictureGridLB")
|
||
|
|
SetSkillLevelLB = __UI_GetID("SetSkillLevelLB")
|
||
|
|
OneBT = __UI_GetID("OneBT")
|
||
|
|
TwoBT = __UI_GetID("TwoBT")
|
||
|
|
ThreeBT = __UI_GetID("ThreeBT")
|
||
|
|
ExitBT = __UI_GetID("ExitBT")
|
||
|
|
NewGameBT = __UI_GetID("NewGameBT")
|
||
|
|
END SUB
|