1
1
Fork 0
mirror of https://github.com/FellippeHeitor/InForm.git synced 2025-01-15 03:49:56 +00:00
InForm/examples/TicTacToe/TicTacToe.frm

76 lines
2.7 KiB
Text
Raw Normal View History

2023-06-15 21:58:12 +00:00
': This form was generated by
': InForm - GUI library for QB64 - v1.5
': Fellippe Heitor, 2016-2023 - fellippe@qb64.org - @fellippeheitor
2023-06-15 21:58:12 +00:00
': https://github.com/FellippeHeitor/InForm
'-----------------------------------------------------------
SUB __UI_LoadForm
DIM __UI_NewID AS LONG, __UI_RegisterResult AS LONG
2023-06-15 21:58:12 +00:00
__UI_NewID = __UI_NewControl(__UI_Type_Form, "TicTacToe", 300, 325, 0, 0, 0)
__UI_RegisterResult = 0
2023-06-15 21:58:12 +00:00
SetCaption __UI_NewID, "Tic tac toe"
Control(__UI_NewID).Font = SetFont("segoeui.ttf?arial.ttf", 12)
Control(__UI_NewID).HasBorder = False
2023-06-15 21:58:12 +00:00
Control(__UI_NewID).CenteredWindow = True
__UI_NewID = __UI_NewControl(__UI_Type_Button, "Button1", 80, 80, 23, 29, 0)
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = False
2023-06-15 21:58:12 +00:00
Control(__UI_NewID).CanHaveFocus = True
__UI_NewID = __UI_NewControl(__UI_Type_Button, "Button2", 80, 80, 110, 29, 0)
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = False
2023-06-15 21:58:12 +00:00
Control(__UI_NewID).CanHaveFocus = True
__UI_NewID = __UI_NewControl(__UI_Type_Button, "Button3", 80, 80, 197, 29, 0)
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = False
2023-06-15 21:58:12 +00:00
Control(__UI_NewID).CanHaveFocus = True
__UI_NewID = __UI_NewControl(__UI_Type_Button, "Button4", 80, 80, 24, 123, 0)
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = False
2023-06-15 21:58:12 +00:00
Control(__UI_NewID).CanHaveFocus = True
__UI_NewID = __UI_NewControl(__UI_Type_Button, "BUtton5", 80, 80, 111, 123, 0)
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = False
2023-06-15 21:58:12 +00:00
Control(__UI_NewID).CanHaveFocus = True
__UI_NewID = __UI_NewControl(__UI_Type_Button, "Button6", 80, 80, 198, 123, 0)
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = False
2023-06-15 21:58:12 +00:00
Control(__UI_NewID).CanHaveFocus = True
__UI_NewID = __UI_NewControl(__UI_Type_Button, "Button7", 80, 80, 24, 217, 0)
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = False
2023-06-15 21:58:12 +00:00
Control(__UI_NewID).CanHaveFocus = True
__UI_NewID = __UI_NewControl(__UI_Type_Button, "Button8", 80, 80, 111, 217, 0)
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = False
2023-06-15 21:58:12 +00:00
Control(__UI_NewID).CanHaveFocus = True
__UI_NewID = __UI_NewControl(__UI_Type_Button, "Button9", 80, 80, 198, 217, 0)
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = False
2023-06-15 21:58:12 +00:00
Control(__UI_NewID).CanHaveFocus = True
END SUB
SUB __UI_AssignIDs
TicTacToe = __UI_GetID("TicTacToe")
Button1 = __UI_GetID("Button1")
Button2 = __UI_GetID("Button2")
Button3 = __UI_GetID("Button3")
Button4 = __UI_GetID("Button4")
BUtton5 = __UI_GetID("BUtton5")
Button6 = __UI_GetID("Button6")
Button7 = __UI_GetID("Button7")
Button8 = __UI_GetID("Button8")
Button9 = __UI_GetID("Button9")
END SUB