mirror of
https://github.com/FellippeHeitor/InForm.git
synced 2025-01-15 11:59:34 +00:00
91 lines
3.4 KiB
Text
91 lines
3.4 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, "BIN2INCLUDE", 589, 324, 0, 0, 0)
|
||
|
|
__UI_RegisterResult = 0
|
||
|
|
SetCaption __UI_NewID, "BIN2INCLUDE"
|
||
|
|
Control(__UI_NewID).Font = SetFont("segoeui.ttf", 12)
|
||
|
|
Control(__UI_NewID).HasBorder = False
|
||
|
|
Control(__UI_NewID).CenteredWindow = True
|
||
|
|
|
||
|
|
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "SelectedFileTB", 567, 23, 11, 10, 0)
|
||
|
|
__UI_RegisterResult = 0
|
||
|
|
SetCaption __UI_NewID, "Selected File"
|
||
|
|
Control(__UI_NewID).HasBorder = True
|
||
|
|
Control(__UI_NewID).CanHaveFocus = True
|
||
|
|
Control(__UI_NewID).Disabled = True
|
||
|
|
Control(__UI_NewID).BorderSize = 1
|
||
|
|
|
||
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Button, "OpenBT", 80, 23, 11, 78, 0)
|
||
|
|
__UI_RegisterResult = 0
|
||
|
|
SetCaption __UI_NewID, "Open"
|
||
|
|
Control(__UI_NewID).HasBorder = False
|
||
|
|
Control(__UI_NewID).CanHaveFocus = True
|
||
|
|
|
||
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Button, "CONVERTBT", 80, 23, 96, 78, 0)
|
||
|
|
__UI_RegisterResult = 0
|
||
|
|
SetCaption __UI_NewID, "Convert"
|
||
|
|
Control(__UI_NewID).HasBorder = False
|
||
|
|
Control(__UI_NewID).CanHaveFocus = True
|
||
|
|
Control(__UI_NewID).Disabled = True
|
||
|
|
|
||
|
|
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "OutputFileTB", 567, 23, 11, 38, 0)
|
||
|
|
__UI_RegisterResult = 0
|
||
|
|
SetCaption __UI_NewID, "Output File"
|
||
|
|
Control(__UI_NewID).HasBorder = True
|
||
|
|
Control(__UI_NewID).CanHaveFocus = True
|
||
|
|
Control(__UI_NewID).Disabled = True
|
||
|
|
Control(__UI_NewID).BorderSize = 1
|
||
|
|
|
||
|
|
__UI_NewID = __UI_NewControl(__UI_Type_ListBox, "ListBox1", 567, 200, 11, 114, 0)
|
||
|
|
__UI_RegisterResult = 0
|
||
|
|
Control(__UI_NewID).HasBorder = True
|
||
|
|
Control(__UI_NewID).CanHaveFocus = True
|
||
|
|
Control(__UI_NewID).BorderSize = 1
|
||
|
|
Control(__UI_NewID).AutoScroll = True
|
||
|
|
|
||
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Button, "ClearLogBT", 80, 23, 498, 78, 0)
|
||
|
|
__UI_RegisterResult = 0
|
||
|
|
SetCaption __UI_NewID, "Clear Log"
|
||
|
|
Control(__UI_NewID).HasBorder = False
|
||
|
|
Control(__UI_NewID).CanHaveFocus = True
|
||
|
|
|
||
|
|
__UI_NewID = __UI_NewControl(__UI_Type_RadioButton, "BIN2BASRB", 76, 23, 189, 78, 0)
|
||
|
|
__UI_RegisterResult = 0
|
||
|
|
SetCaption __UI_NewID, "BIN2BAS"
|
||
|
|
Control(__UI_NewID).HasBorder = False
|
||
|
|
Control(__UI_NewID).CanHaveFocus = True
|
||
|
|
|
||
|
|
__UI_NewID = __UI_NewControl(__UI_Type_RadioButton, "PIC2MEMRB", 82, 23, 270, 78, 0)
|
||
|
|
__UI_RegisterResult = 0
|
||
|
|
SetCaption __UI_NewID, "PIC2MEM"
|
||
|
|
Control(__UI_NewID).HasBorder = False
|
||
|
|
Control(__UI_NewID).CanHaveFocus = True
|
||
|
|
|
||
|
|
__UI_NewID = __UI_NewControl(__UI_Type_Button, "ResetBT", 80, 23, 413, 78, 0)
|
||
|
|
__UI_RegisterResult = 0
|
||
|
|
SetCaption __UI_NewID, "Reset"
|
||
|
|
Control(__UI_NewID).HasBorder = False
|
||
|
|
Control(__UI_NewID).CanHaveFocus = True
|
||
|
|
|
||
|
|
END SUB
|
||
|
|
|
||
|
|
SUB __UI_AssignIDs
|
||
|
|
BIN2INCLUDE = __UI_GetID("BIN2INCLUDE")
|
||
|
|
SelectedFileTB = __UI_GetID("SelectedFileTB")
|
||
|
|
OpenBT = __UI_GetID("OpenBT")
|
||
|
|
CONVERTBT = __UI_GetID("CONVERTBT")
|
||
|
|
OutputFileTB = __UI_GetID("OutputFileTB")
|
||
|
|
ListBox1 = __UI_GetID("ListBox1")
|
||
|
|
ClearLogBT = __UI_GetID("ClearLogBT")
|
||
|
|
BIN2BASRB = __UI_GetID("BIN2BASRB")
|
||
|
|
PIC2MEMRB = __UI_GetID("PIC2MEMRB")
|
||
|
|
ResetBT = __UI_GetID("ResetBT")
|
||
|
|
END SUB
|