': 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 $RESIZE:ON DIM __UI_NewID AS LONG, __UI_RegisterResult AS LONG __UI_NewID = __UI_NewControl(__UI_Type_Form, "InFormPaint", 721, 300, 0, 0, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "InFormPaint" Control(__UI_NewID).Font = SetFont("arial.ttf", 12) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanResize = True __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox1", 635, 301, 86, 0, 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_Button, "CircleBT", 32, 32, 8, 8, 0) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_Button, "SquareBT", 32, 32, 47, 8, 0) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_Button, "SquareFilledBT", 32, 32, 8, 46, 0) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_Button, "CopyBT", 32, 32, 8, 188, 0) __UI_RegisterResult = 0 ToolTip(__UI_NewID) = "Copy image to clipboard" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True END SUB SUB __UI_AssignIDs InFormPaint = __UI_GetID("InFormPaint") PictureBox1 = __UI_GetID("PictureBox1") CircleBT = __UI_GetID("CircleBT") SquareBT = __UI_GetID("SquareBT") SquareFilledBT = __UI_GetID("SquareFilledBT") CopyBT = __UI_GetID("CopyBT") END SUB