mirror of
https://github.com/FellippeHeitor/InForm.git
synced 2025-01-15 03:49:56 +00:00
118 lines
4.5 KiB
Text
118 lines
4.5 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, "frmTextFetch", 1220, 720, 0, 0, 0)
|
|
__UI_RegisterResult = 0
|
|
SetCaption __UI_NewID, "Text Fetch"
|
|
Control(__UI_NewID).Font = SetFont("consolab.ttf", 12)
|
|
Control(__UI_NewID).HasBorder = False
|
|
Control(__UI_NewID).CenteredWindow = True
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Label, "lbCWD", 1200, 20, 10, 4, 0)
|
|
__UI_RegisterResult = 0
|
|
SetCaption __UI_NewID, "Current Directory:"
|
|
Control(__UI_NewID).HasBorder = False
|
|
Control(__UI_NewID).VAlign = __UI_Middle
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Label, "lbDirs", 600, 20, 10, 30, 0)
|
|
__UI_RegisterResult = 0
|
|
SetCaption __UI_NewID, "Folders:"
|
|
Control(__UI_NewID).HasBorder = False
|
|
Control(__UI_NewID).Align = __UI_Center
|
|
Control(__UI_NewID).VAlign = __UI_Middle
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_ListBox, "ListDirs", 600, 200, 10, 50, 0)
|
|
__UI_RegisterResult = 0
|
|
Control(__UI_NewID).HasBorder = True
|
|
Control(__UI_NewID).CanHaveFocus = True
|
|
Control(__UI_NewID).BorderSize = 1
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Label, "lbFiles", 590, 20, 620, 30, 0)
|
|
__UI_RegisterResult = 0
|
|
SetCaption __UI_NewID, "Files:"
|
|
Control(__UI_NewID).HasBorder = False
|
|
Control(__UI_NewID).Align = __UI_Center
|
|
Control(__UI_NewID).VAlign = __UI_Middle
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_ListBox, "ListFiles", 590, 200, 620, 50, 0)
|
|
__UI_RegisterResult = 0
|
|
Control(__UI_NewID).HasBorder = True
|
|
Control(__UI_NewID).CanHaveFocus = True
|
|
Control(__UI_NewID).BorderSize = 1
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Label, "lbFile", 1200, 20, 10, 260, 0)
|
|
__UI_RegisterResult = 0
|
|
SetCaption __UI_NewID, "Selected File:"
|
|
Control(__UI_NewID).HasBorder = False
|
|
Control(__UI_NewID).Align = __UI_Center
|
|
Control(__UI_NewID).VAlign = __UI_Middle
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_ListBox, "ListFile", 1200, 200, 10, 280, 0)
|
|
__UI_RegisterResult = 0
|
|
Control(__UI_NewID).HasBorder = True
|
|
Control(__UI_NewID).CanHaveFocus = True
|
|
Control(__UI_NewID).BorderSize = 1
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Label, "lbTxt", 400, 20, 410, 485, 0)
|
|
__UI_RegisterResult = 0
|
|
SetCaption __UI_NewID, "Selected Text:"
|
|
Control(__UI_NewID).HasBorder = False
|
|
Control(__UI_NewID).Align = __UI_Center
|
|
Control(__UI_NewID).VAlign = __UI_Middle
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_ListBox, "ListTxt", 1200, 200, 10, 510, 0)
|
|
__UI_RegisterResult = 0
|
|
Control(__UI_NewID).HasBorder = True
|
|
Control(__UI_NewID).CanHaveFocus = True
|
|
Control(__UI_NewID).BorderSize = 1
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Button, "BtnStart", 200, 20, 210, 485, 0)
|
|
__UI_RegisterResult = 0
|
|
SetCaption __UI_NewID, "Set Selection Start Line"
|
|
Control(__UI_NewID).HasBorder = False
|
|
Control(__UI_NewID).CanHaveFocus = True
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Button, "BtnEnd", 200, 20, 815, 485, 0)
|
|
__UI_RegisterResult = 0
|
|
SetCaption __UI_NewID, "Set Selected Text End line"
|
|
Control(__UI_NewID).HasBorder = False
|
|
Control(__UI_NewID).CanHaveFocus = True
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Label, "lbStart", 150, 20, 36, 485, 0)
|
|
__UI_RegisterResult = 0
|
|
SetCaption __UI_NewID, "Start Line"
|
|
Control(__UI_NewID).HasBorder = False
|
|
Control(__UI_NewID).Align = __UI_Center
|
|
Control(__UI_NewID).VAlign = __UI_Middle
|
|
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Label, "lbEnd", 150, 20, 1038, 485, 0)
|
|
__UI_RegisterResult = 0
|
|
SetCaption __UI_NewID, "End Line"
|
|
Control(__UI_NewID).HasBorder = False
|
|
Control(__UI_NewID).Align = __UI_Center
|
|
Control(__UI_NewID).VAlign = __UI_Middle
|
|
|
|
END SUB
|
|
|
|
SUB __UI_AssignIDs
|
|
frmTextFetch = __UI_GetID("frmTextFetch")
|
|
lbCWD = __UI_GetID("lbCWD")
|
|
lbDirs = __UI_GetID("lbDirs")
|
|
ListDirs = __UI_GetID("ListDirs")
|
|
lbFiles = __UI_GetID("lbFiles")
|
|
ListFiles = __UI_GetID("ListFiles")
|
|
lbFile = __UI_GetID("lbFile")
|
|
ListFile = __UI_GetID("ListFile")
|
|
lbTxt = __UI_GetID("lbTxt")
|
|
ListTxt = __UI_GetID("ListTxt")
|
|
BtnStart = __UI_GetID("BtnStart")
|
|
BtnEnd = __UI_GetID("BtnEnd")
|
|
lbStart = __UI_GetID("lbStart")
|
|
lbEnd = __UI_GetID("lbEnd")
|
|
END SUB
|