mirror of
https://github.com/FellippeHeitor/InForm.git
synced 2025-01-15 03:49:56 +00:00
57 lines
2.1 KiB
Text
57 lines
2.1 KiB
Text
': This form was generated by
|
|
': InForm - GUI library for QB64 - Beta version 8
|
|
': Fellippe Heitor, 2016-2018 - fellippe@qb64.org - @fellippeheitor
|
|
': https://github.com/FellippeHeitor/InForm
|
|
'-----------------------------------------------------------
|
|
SUB __UI_LoadForm
|
|
|
|
DIM __UI_NewID AS LONG
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Form, "Stopwatch", 806, 215, 0, 0, 0)
|
|
SetCaption __UI_NewID, "Stopwatch"
|
|
Control(__UI_NewID).Stretch = False
|
|
Control(__UI_NewID).Font = SetFont("arial.ttf", 12)
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Label, "TimeLB", 780, 94, 13, 10, 0)
|
|
SetCaption __UI_NewID, "00:00:00,000"
|
|
Control(__UI_NewID).Stretch = False
|
|
Control(__UI_NewID).Font = SetFont("COUR.TTF", 78)
|
|
Control(__UI_NewID).BorderColor = _RGB32(0, 0, 0)
|
|
Control(__UI_NewID).HasBorder = True
|
|
Control(__UI_NewID).Align = __UI_Center
|
|
Control(__UI_NewID).VAlign = __UI_Middle
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Button, "StartBT", 80, 23, 278, 116, 0)
|
|
__UI_DefaultButtonID = __UI_NewID
|
|
SetCaption __UI_NewID, "Start"
|
|
Control(__UI_NewID).Stretch = False
|
|
Control(__UI_NewID).CanHaveFocus = True
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Button, "LapBT", 80, 23, 363, 116, 0)
|
|
SetCaption __UI_NewID, "Lap"
|
|
Control(__UI_NewID).Stretch = False
|
|
Control(__UI_NewID).CanHaveFocus = True
|
|
Control(__UI_NewID).Disabled = True
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Button, "StopBT", 80, 23, 448, 116, 0)
|
|
SetCaption __UI_NewID, "Reset"
|
|
Control(__UI_NewID).Stretch = False
|
|
Control(__UI_NewID).CanHaveFocus = True
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_ListBox, "ListBox1", 249, 58, 278, 149, 0)
|
|
Control(__UI_NewID).Stretch = False
|
|
Control(__UI_NewID).Font = SetFont("COUR.TTF", 12)
|
|
Control(__UI_NewID).HasBorder = True
|
|
Control(__UI_NewID).CanHaveFocus = True
|
|
Control(__UI_NewID).AutoScroll = True
|
|
|
|
END SUB
|
|
|
|
SUB __UI_AssignIDs
|
|
Stopwatch = __UI_GetID("Stopwatch")
|
|
TimeLB = __UI_GetID("TimeLB")
|
|
StartBT = __UI_GetID("StartBT")
|
|
LapBT = __UI_GetID("LapBT")
|
|
StopBT = __UI_GetID("StopBT")
|
|
ListBox1 = __UI_GetID("ListBox1")
|
|
END SUB
|