mirror of
https://github.com/FellippeHeitor/InForm.git
synced 2025-01-14 19:49:33 +00:00
35 lines
1.2 KiB
Text
35 lines
1.2 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, "ClockPatience", 800, 800, 0, 0, 0)
|
|
__UI_RegisterResult = 0
|
|
SetCaption __UI_NewID, "Clock Patience"
|
|
Control(__UI_NewID).Font = SetFont("segoeui.ttf", 12)
|
|
Control(__UI_NewID).BackColor = _RGB32(0, 141, 0)
|
|
Control(__UI_NewID).HasBorder = False
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Button, "ExitBT", 80, 23, 710, 768, 0)
|
|
__UI_RegisterResult = 0
|
|
SetCaption __UI_NewID, "Exit"
|
|
Control(__UI_NewID).HasBorder = False
|
|
Control(__UI_NewID).CanHaveFocus = True
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Button, "NewGameBT", 80, 23, 710, 736, 0)
|
|
__UI_RegisterResult = 0
|
|
SetCaption __UI_NewID, "New Game"
|
|
Control(__UI_NewID).HasBorder = False
|
|
Control(__UI_NewID).CanHaveFocus = True
|
|
|
|
END SUB
|
|
|
|
SUB __UI_AssignIDs
|
|
ClockPatience = __UI_GetID("ClockPatience")
|
|
ExitBT = __UI_GetID("ExitBT")
|
|
NewGameBT = __UI_GetID("NewGameBT")
|
|
END SUB
|