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