mirror of
https://github.com/FellippeHeitor/InForm.git
synced 2025-01-15 11:59:34 +00:00
89 lines
3.3 KiB
Text
89 lines
3.3 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, "WordSearch", 619, 714, 0, 0, 0)
|
||
|
|
__UI_RegisterResult = 0
|
||
|
|
SetCaption __UI_NewID, "Word Search"
|
||
|
|
Control(__UI_NewID).Font = SetFont("", 16)
|
||
|
|
Control(__UI_NewID).HasBorder = False
|
||
|
|
Control(__UI_NewID).CenteredWindow = True
|
||
|
|
|
||
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Label, "FileToLoadLB", 104, 25, 30, 20, 0)
|
||
|
|
__UI_RegisterResult = 0
|
||
|
|
SetCaption __UI_NewID, "&File to load:"
|
||
|
|
Control(__UI_NewID).HasBorder = False
|
||
|
|
Control(__UI_NewID).VAlign = __UI_Middle
|
||
|
|
Control(__UI_NewID).AutoSize = True
|
||
|
|
|
||
|
|
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "FileTB", 345, 27, 134, 20, 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, "LoadBT", 100, 25, 506, 20, 0)
|
||
|
|
__UI_RegisterResult = 0
|
||
|
|
SetCaption __UI_NewID, "&Load"
|
||
|
|
Control(__UI_NewID).HasBorder = False
|
||
|
|
Control(__UI_NewID).CanHaveFocus = True
|
||
|
|
Control(__UI_NewID).Disabled = True
|
||
|
|
|
||
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Label, "ResultLB", 470, 26, 134, 54, 0)
|
||
|
|
__UI_RegisterResult = 0
|
||
|
|
Control(__UI_NewID).HasBorder = False
|
||
|
|
Control(__UI_NewID).VAlign = __UI_Middle
|
||
|
|
|
||
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Label, "WordToSearchLB", 120, 25, 17, 89, 0)
|
||
|
|
__UI_RegisterResult = 0
|
||
|
|
SetCaption __UI_NewID, "&Word to search:"
|
||
|
|
Control(__UI_NewID).HasBorder = False
|
||
|
|
Control(__UI_NewID).VAlign = __UI_Middle
|
||
|
|
Control(__UI_NewID).AutoSize = True
|
||
|
|
|
||
|
|
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "WordTB", 342, 27, 137, 88, 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, "SearchBT", 98, 26, 508, 87, 0)
|
||
|
|
__UI_RegisterResult = 0
|
||
|
|
SetCaption __UI_NewID, "&Search"
|
||
|
|
Control(__UI_NewID).ForeColor = _RGB32(0, 0, 59)
|
||
|
|
Control(__UI_NewID).HasBorder = False
|
||
|
|
Control(__UI_NewID).CanHaveFocus = True
|
||
|
|
Control(__UI_NewID).Disabled = True
|
||
|
|
|
||
|
|
__UI_NewID = __UI_NewControl(__UI_Type_ListBox, "ResultList", 594, 522, 10, 126, 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, "QUITBT", 85, 38, 520, 666, 0)
|
||
|
|
__UI_RegisterResult = 0
|
||
|
|
SetCaption __UI_NewID, "&QUIT"
|
||
|
|
Control(__UI_NewID).HasBorder = False
|
||
|
|
Control(__UI_NewID).CanHaveFocus = True
|
||
|
|
|
||
|
|
END SUB
|
||
|
|
|
||
|
|
SUB __UI_AssignIDs
|
||
|
|
WordSearch = __UI_GetID("WordSearch")
|
||
|
|
FileToLoadLB = __UI_GetID("FileToLoadLB")
|
||
|
|
FileTB = __UI_GetID("FileTB")
|
||
|
|
LoadBT = __UI_GetID("LoadBT")
|
||
|
|
ResultLB = __UI_GetID("ResultLB")
|
||
|
|
WordToSearchLB = __UI_GetID("WordToSearchLB")
|
||
|
|
WordTB = __UI_GetID("WordTB")
|
||
|
|
SearchBT = __UI_GetID("SearchBT")
|
||
|
|
ResultList = __UI_GetID("ResultList")
|
||
|
|
QUITBT = __UI_GetID("QUITBT")
|
||
|
|
END SUB
|