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