mirror of
https://github.com/FellippeHeitor/InForm.git
synced 2025-01-15 03:49:56 +00:00
110 lines
4.3 KiB
Text
110 lines
4.3 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, "LanderInform1", 1200, 730, 0, 0, 0)
|
|
__UI_RegisterResult = 0
|
|
SetCaption __UI_NewID, "Lander using InForm"
|
|
Control(__UI_NewID).Font = SetFont("segoeui.ttf", 12)
|
|
Control(__UI_NewID).BackColor = _RGB32(0, 45, 150)
|
|
Control(__UI_NewID).HasBorder = False
|
|
Control(__UI_NewID).CenteredWindow = True
|
|
Control(__UI_NewID).Encoding = 1252
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Label, "lbMessage", 1190, 30, 5, 700, 0)
|
|
__UI_RegisterResult = 0
|
|
Control(__UI_NewID).Font = SetFont("segoeui.ttf", 16)
|
|
Control(__UI_NewID).ForeColor = _RGB32(255, 255, 160)
|
|
Control(__UI_NewID).HasBorder = False
|
|
Control(__UI_NewID).Align = __UI_Center
|
|
Control(__UI_NewID).VAlign = __UI_Middle
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Label, "Label2",-27521, 21, 0, 674, 0)
|
|
__UI_RegisterResult = 0
|
|
Control(__UI_NewID).HasBorder = False
|
|
Control(__UI_NewID).VAlign = __UI_Middle
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Label, "lbVert", 250, 30, 5, 670, 0)
|
|
__UI_RegisterResult = 0
|
|
SetCaption __UI_NewID, "lbVert"
|
|
Control(__UI_NewID).Font = SetFont("segoeui.ttf", 16)
|
|
Control(__UI_NewID).ForeColor = _RGB32(200, 200, 200)
|
|
Control(__UI_NewID).HasBorder = False
|
|
Control(__UI_NewID).Align = __UI_Right
|
|
Control(__UI_NewID).VAlign = __UI_Middle
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Label, "lbHor", 250, 30, 5, 640, 0)
|
|
__UI_RegisterResult = 0
|
|
SetCaption __UI_NewID, "lbHor"
|
|
Control(__UI_NewID).Font = SetFont("segoeui.ttf", 16)
|
|
Control(__UI_NewID).ForeColor = _RGB32(200, 200, 200)
|
|
Control(__UI_NewID).HasBorder = False
|
|
Control(__UI_NewID).Align = __UI_Right
|
|
Control(__UI_NewID).VAlign = __UI_Middle
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Button, "bRotLeft", 200, 50, 290, 645, 0)
|
|
__UI_RegisterResult = 0
|
|
SetCaption __UI_NewID, "Rotate Left"
|
|
Control(__UI_NewID).Font = SetFont("segoeui.ttf", 16)
|
|
Control(__UI_NewID).HasBorder = False
|
|
Control(__UI_NewID).CanHaveFocus = True
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Button, "bThrust", 200, 50, 500, 645, 0)
|
|
__UI_RegisterResult = 0
|
|
SetCaption __UI_NewID, "Forward Thrust"
|
|
Control(__UI_NewID).Font = SetFont("segoeui.ttf", 16)
|
|
Control(__UI_NewID).HasBorder = False
|
|
Control(__UI_NewID).CanHaveFocus = True
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Button, "bRotRight", 200, 50, 710, 645, 0)
|
|
__UI_RegisterResult = 0
|
|
SetCaption __UI_NewID, "Rotate Right"
|
|
Control(__UI_NewID).Font = SetFont("segoeui.ttf", 16)
|
|
Control(__UI_NewID).HasBorder = False
|
|
Control(__UI_NewID).CanHaveFocus = True
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Button, "bRestart", 200, 50, 990, 645, 0)
|
|
__UI_RegisterResult = 0
|
|
SetCaption __UI_NewID, "Restart"
|
|
Control(__UI_NewID).Font = SetFont("segoeui.ttf", 16)
|
|
Control(__UI_NewID).HasBorder = False
|
|
Control(__UI_NewID).CanHaveFocus = True
|
|
Control(__UI_NewID).Disabled = True
|
|
Control(__UI_NewID).Hidden = True
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_ProgressBar, "barFuel", 1190, 30, 5, 610, 0)
|
|
__UI_RegisterResult = 0
|
|
SetCaption __UI_NewID, "Fuel:"
|
|
Control(__UI_NewID).ForeColor = _RGB32(0, 200, 0)
|
|
Control(__UI_NewID).BackColor = _RGB32(128, 0, 0)
|
|
Control(__UI_NewID).HasBorder = False
|
|
Control(__UI_NewID).Value = 500
|
|
Control(__UI_NewID).Max = 500
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "pbScene", 1190, 595, 5, 5, 0)
|
|
__UI_RegisterResult = 0
|
|
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
|
|
LanderInform1 = __UI_GetID("LanderInform1")
|
|
lbMessage = __UI_GetID("lbMessage")
|
|
Label2 = __UI_GetID("Label2")
|
|
lbVert = __UI_GetID("lbVert")
|
|
lbHor = __UI_GetID("lbHor")
|
|
bRotLeft = __UI_GetID("bRotLeft")
|
|
bThrust = __UI_GetID("bThrust")
|
|
bRotRight = __UI_GetID("bRotRight")
|
|
bRestart = __UI_GetID("bRestart")
|
|
barFuel = __UI_GetID("barFuel")
|
|
pbScene = __UI_GetID("pbScene")
|
|
END SUB
|