QB64/InForm
QB64/InForm
1
1
Fork 0
mirror of https://github.com/FellippeHeitor/InForm.git synced 2025-01-15 11:59:34 +00:00
Code Issues Releases Wiki Activity
InForm/examples/InsideOutsideTriangle/Inside-Outside Triangle.frm

194 lines
7.3 KiB
Text
Raw Normal View History

Add many examples. Add legacy MessageBox extension
2023-06-24 02:38:56 +00:00
': 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, "InsideOutsideTriangle", 780, 560, 0, 0, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Inside/Outside Triangle"
Control(__UI_NewID).Font = SetFont("segoeui.ttf", 12)
Control(__UI_NewID).HasBorder = False
__UI_NewID = __UI_NewControl(__UI_Type_Frame, "ClickFrame", 100, 74, 670, 250, 0)
__UI_RegisterResult = 0
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Align = __UI_Center
Control(__UI_NewID).Value = 2
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox1", 650, 540, 10, 10, 0)
__UI_RegisterResult = 0
Control(__UI_NewID).Stretch = True
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Align = __UI_Center
Control(__UI_NewID).VAlign = __UI_Middle
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "XLB", 20, 23, 706, 17, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, "X"
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Align = __UI_Center
Control(__UI_NewID).VAlign = __UI_Middle
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "YLB", 20, 23, 744, 17, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Y"
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Align = __UI_Center
Control(__UI_NewID).VAlign = __UI_Middle
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "Pos1LB", 20, 23, 670, 50, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, "1"
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Align = __UI_Center
Control(__UI_NewID).VAlign = __UI_Middle
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "Pos2LB", 20, 23, 670, 90, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, "2"
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Align = __UI_Center
Control(__UI_NewID).VAlign = __UI_Middle
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "Pos3LB", 20, 23, 670, 130, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, "3"
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Align = __UI_Center
Control(__UI_NewID).VAlign = __UI_Middle
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "X1LB", 32, 23, 700, 50, 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
__UI_NewID = __UI_NewControl(__UI_Type_Label, "Y1LB", 32, 23, 738, 50, 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
__UI_NewID = __UI_NewControl(__UI_Type_Label, "X2LB", 32, 23, 700, 90, 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
__UI_NewID = __UI_NewControl(__UI_Type_Label, "Y2LB", 32, 23, 738, 90, 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
__UI_NewID = __UI_NewControl(__UI_Type_Label, "X3LB", 32, 23, 700, 130, 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
__UI_NewID = __UI_NewControl(__UI_Type_Label, "Y3LB", 32, 23, 738, 130, 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
__UI_NewID = __UI_NewControl(__UI_Type_Button, "ExitBT", 80, 23, 680, 527, 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, "RestartBT", 80, 23, 680, 491, 0)
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Restart"
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).CanHaveFocus = True
__UI_NewID = __UI_NewControl(__UI_Type_Label, "InsideOutsideLB", 100, 23, 670, 410, 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
__UI_NewID = __UI_NewControl(__UI_Type_Label, "Click1LB", 80, 23, 10, 10, __UI_GetID("ClickFrame"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Click To Set"
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).Align = __UI_Center
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_Label, "Click2LB", 80, 23, 10, 36, __UI_GetID("ClickFrame"))
__UI_RegisterResult = 0
SetCaption __UI_NewID, "Vertex 1"
Control(__UI_NewID).HasBorder = False
Control(__UI_NewID).Align = __UI_Center
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox2", 20, 23, 670, 170, 0)
__UI_RegisterResult = 0
Control(__UI_NewID).Stretch = True
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Align = __UI_Center
Control(__UI_NewID).VAlign = __UI_Middle
Control(__UI_NewID).BorderSize = 1
__UI_NewID = __UI_NewControl(__UI_Type_Label, "CXLB", 32, 23, 700, 170, 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
__UI_NewID = __UI_NewControl(__UI_Type_Label, "CYLB", 32, 23, 738, 170, 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
InsideOutsideTriangle = __UI_GetID("InsideOutsideTriangle")
ClickFrame = __UI_GetID("ClickFrame")
PictureBox1 = __UI_GetID("PictureBox1")
XLB = __UI_GetID("XLB")
YLB = __UI_GetID("YLB")
Pos1LB = __UI_GetID("Pos1LB")
Pos2LB = __UI_GetID("Pos2LB")
Pos3LB = __UI_GetID("Pos3LB")
X1LB = __UI_GetID("X1LB")
Y1LB = __UI_GetID("Y1LB")
X2LB = __UI_GetID("X2LB")
Y2LB = __UI_GetID("Y2LB")
X3LB = __UI_GetID("X3LB")
Y3LB = __UI_GetID("Y3LB")
ExitBT = __UI_GetID("ExitBT")
RestartBT = __UI_GetID("RestartBT")
InsideOutsideLB = __UI_GetID("InsideOutsideLB")
Click1LB = __UI_GetID("Click1LB")
Click2LB = __UI_GetID("Click2LB")
PictureBox2 = __UI_GetID("PictureBox2")
CXLB = __UI_GetID("CXLB")
CYLB = __UI_GetID("CYLB")
END SUB
Copy permalink