1
1
Fork 0
mirror of https://github.com/FellippeHeitor/InForm.git synced 2025-01-15 11:59:34 +00:00
InForm/examples/ThemePreview/ThemePreview.frm

72 lines
2.8 KiB
Text
Raw Normal View History

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