mirror of
https://github.com/FellippeHeitor/InForm.git
synced 2025-01-15 11:59:34 +00:00
72 lines
2.8 KiB
Text
72 lines
2.8 KiB
Text
|
': 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
|