': 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, "ThemeImagePreview", 300, 300, 0, 0, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Theme image preview" Control(__UI_NewID).Font = SetFont("arial.ttf", 12) Control(__UI_NewID).HasBorder = False __UI_NewID = __UI_NewControl(__UI_Type_ContextMenu, "ContextMenu1", 22, 22, 10, 268, 0) __UI_RegisterResult = 0 __UI_NewID = __UI_NewControl(__UI_Type_Label, "FileLB", 46, 23, 10, 10, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "File:" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList1", 230, 23, 61, 10, 0) __UI_RegisterResult = 0 AddItem __UI_NewID, "scrollhbuttons.bmp" AddItem __UI_NewID, "scrollhthumb.bmp" AddItem __UI_NewID, "scrollhtrack.bmp" AddItem __UI_NewID, "menucheckmark.bmp" AddItem __UI_NewID, "slidertrack.png" AddItem __UI_NewID, "frame.png" AddItem __UI_NewID, "arrows.png" AddItem __UI_NewID, "scrolltrack.png" AddItem __UI_NewID, "scrollthumb.png" AddItem __UI_NewID, "scrollbuttons.png" AddItem __UI_NewID, "radiobutton.png" AddItem __UI_NewID, "progresstrack.png" AddItem __UI_NewID, "progresschunk.png" AddItem __UI_NewID, "button.png" AddItem __UI_NewID, "checkbox.png" AddItem __UI_NewID, "notfound.png" AddItem __UI_NewID, "sliderdown.png" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox1", 278, 252, 11, 38, 0) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = False Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).ContextMenuID = __UI_GetID("ContextMenu1") Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_MenuItem, "ContextMenu1Copy", 72, 18, 0, 4, __UI_GetID("ContextMenu1")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "&Copy" Control(__UI_NewID).HasBorder = False __UI_RegisterResult = RegisterKeyCombo("Ctrl+C", __UI_NewID) END SUB SUB __UI_AssignIDs ThemeImagePreview = __UI_GetID("ThemeImagePreview") ContextMenu1 = __UI_GetID("ContextMenu1") FileLB = __UI_GetID("FileLB") DropdownList1 = __UI_GetID("DropdownList1") PictureBox1 = __UI_GetID("PictureBox1") ContextMenu1Copy = __UI_GetID("ContextMenu1Copy") END SUB