mirror of
https://github.com/FellippeHeitor/InForm.git
synced 2025-01-15 03:49:56 +00:00
56 lines
2 KiB
Text
56 lines
2 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
|
|
|
|
$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
|