1
1
Fork 0
mirror of https://github.com/FellippeHeitor/InForm.git synced 2025-01-15 03:49:56 +00:00
InForm/examples/TextFetch/TextFetch.frm

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