InForm/examples/Fireworks2/Fireworks.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, "BabyYoureAFirework", 810, 663, 0, 0, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Baby, you're a firework"
    Control(__UI_NewID).Font = SetFont("arial.ttf?InForm/resources/NotoMono-Regular.ttf", 12)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).CenteredWindow = True

    __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "Canvas", 800, 600, 5, 5, 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, "MaxFireworksLB", 86, 23, 5, 612, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Max fireworks:"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle

    __UI_NewID = __UI_NewControl(__UI_Type_TrackBar, "MaxFireworksTrackBar", 120, 40, 95, 612, 0)
    __UI_RegisterResult = 0
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).Min = 1
    Control(__UI_NewID).Max = 20
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).Interval = 1

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "MaxParticlesLB", 86, 23, 235, 612, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Max particles:"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle

    __UI_NewID = __UI_NewControl(__UI_Type_TrackBar, "MaxParticlesTrackBar", 250, 40, 325, 612, 0)
    __UI_RegisterResult = 0
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).Min = 1
    Control(__UI_NewID).Max = 150
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).Interval = 30

    __UI_NewID = __UI_NewControl(__UI_Type_CheckBox, "ShowTextCB", 87, 23, 590, 620, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Show text:"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).Value = -1
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YourTextHereTB", 129, 23, 676, 620, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Your text here"
    Text(__UI_NewID) = "Happy New Year!"
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "HappyNewYearLB", 800, 78, 5, 527, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Happy New Year!"
    Control(__UI_NewID).Font = SetFont("cyberbit.ttf?times.ttf?arial.ttf?InForm/resources/NotoMono-Regular.ttf", 48)
    Control(__UI_NewID).ForeColor = _RGB32(255, 255, 255)
    Control(__UI_NewID).BackStyle = __UI_Transparent
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).Align = __UI_Center
    Control(__UI_NewID).VAlign = __UI_Middle

END SUB

SUB __UI_AssignIDs
    BabyYoureAFirework = __UI_GetID("BabyYoureAFirework")
    Canvas = __UI_GetID("Canvas")
    MaxFireworksLB = __UI_GetID("MaxFireworksLB")
    MaxFireworksTrackBar = __UI_GetID("MaxFireworksTrackBar")
    MaxParticlesLB = __UI_GetID("MaxParticlesLB")
    MaxParticlesTrackBar = __UI_GetID("MaxParticlesTrackBar")
    ShowTextCB = __UI_GetID("ShowTextCB")
    YourTextHereTB = __UI_GetID("YourTextHereTB")
    HappyNewYearLB = __UI_GetID("HappyNewYearLB")
END SUB