InForm/examples/InsideOutsideTriangle/Inside-Outside Triangle.frm

': 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