QB64/InForm
QB64/InForm
1
1
Fork 0
mirror of https://github.com/FellippeHeitor/InForm.git synced 2025-01-15 11:59:34 +00:00
Code Issues Releases Wiki Activity

Resizes the Open dialog (UiEditor).

Browse source
This commit is contained in:
FellippeHeitor 2018-05-15 11:31:39 -03:00
parent 3c51f7716f
commit 80cc69d1f7
2 changed files with 18 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
InForm/UiEditor.bas
View file

@ -527,7 +527,7 @@ SUB __UI_Click (id AS LONG)
Control(FileList).LastVisibleItem = 0 'Reset it so it's recalculated
Control(DialogBG).Left = 0: Control(DialogBG).Top = 0
Control(OpenFrame).Left = 68: Control(OpenFrame).Top = 122
Control(OpenFrame).Left = 18: Control(OpenFrame).Top = 40
OpenDialogOpen = True
Caption(StatusBar) = "Select a form file to load..."
__UI_Focus = FileNameTextBox

35
InForm/UiEditor.frm
View file

@ -47,11 +47,10 @@ SUB __UI_LoadForm
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Value = 8
__UI_NewID = __UI_NewControl(__UI_Type_Frame, "OpenFrame", 463, 289,-600,-600, 0)
__UI_NewID = __UI_NewControl(__UI_Type_Frame, "OpenFrame", 563, 497, -600, -600, 0)
SetCaption __UI_NewID, "Open"
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).Value = 10
__UI_NewID = __UI_NewControl(__UI_Type_Frame, "ZOrdering", 463, 289,-600,-600, 0)
SetCaption __UI_NewID, "Z-Ordering"
Control(__UI_NewID).HasBorder = True
@ -544,47 +543,47 @@ SUB __UI_LoadForm
Control(__UI_NewID).BackStyle = __UI_Transparent
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "FileNameTextBox", 363, 23, 89, 16, __UI_GetID("OpenFrame"))
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "FileNameTextBox", 463, 23, 89, 16, __UI_GetID("OpenFrame"))
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
__UI_NewID = __UI_NewControl(__UI_Type_Label, "PathLB", 437, 23, 15, 44, __UI_GetID("OpenFrame"))
__UI_NewID = __UI_NewControl(__UI_Type_Label, "PathLB", 535, 23, 15, 44, __UI_GetID("OpenFrame"))
SetCaption __UI_NewID, "Path: C:\QB64"
Control(__UI_NewID).BackStyle = __UI_Transparent
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_Label, "FilesLB", 200, 23, 25, 75, __UI_GetID("OpenFrame"))
__UI_NewID = __UI_NewControl(__UI_Type_Label, "FilesLB", 200, 23, 25, 72, __UI_GetID("OpenFrame"))
SetCaption __UI_NewID, "Files:"
Control(__UI_NewID).BackStyle = __UI_Transparent
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_ListBox, "FileList", 200, 150, 25, 99, __UI_GetID("OpenFrame"))
__UI_NewID = __UI_NewControl(__UI_Type_ListBox, "FileList", 256, 355, 25, 99, __UI_GetID("OpenFrame"))
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
__UI_NewID = __UI_NewControl(__UI_Type_Label, "PathsLB", 200, 23, 242, 75, __UI_GetID("OpenFrame"))
__UI_NewID = __UI_NewControl(__UI_Type_Label, "PathsLB", 200, 23, 296, 72, __UI_GetID("OpenFrame"))
SetCaption __UI_NewID, "&Paths:"
Control(__UI_NewID).BackStyle = __UI_Transparent
Control(__UI_NewID).VAlign = __UI_Middle
__UI_NewID = __UI_NewControl(__UI_Type_ListBox, "DirList", 200, 150, 242, 99, __UI_GetID("OpenFrame"))
__UI_NewID = __UI_NewControl(__UI_Type_ListBox, "DirList", 256, 355, 296, 99, __UI_GetID("OpenFrame"))
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
__UI_NewID = __UI_NewControl(__UI_Type_Button, "OpenBT", 80, 23, 274, 255, __UI_GetID("OpenFrame"))
SetCaption __UI_NewID, "Open"
Control(__UI_NewID).CanHaveFocus = True
__UI_NewID = __UI_NewControl(__UI_Type_Button, "CancelBT", 80, 23, 362, 255, __UI_GetID("OpenFrame"))
SetCaption __UI_NewID, "&Cancel"
Control(__UI_NewID).CanHaveFocus = True
__UI_NewID = __UI_NewControl(__UI_Type_CheckBox, "ShowOnlyFrmbinFilesCB", 200, 23, 25, 255, __UI_GetID("OpenFrame"))
__UI_NewID = __UI_NewControl(__UI_Type_CheckBox, "ShowOnlyFrmbinFilesCB", 200, 23, 25, 461, __UI_GetID("OpenFrame"))
SetCaption __UI_NewID, "Show only compatible files"
Control(__UI_NewID).BackStyle = __UI_Transparent
Control(__UI_NewID).Value = -1
Control(__UI_NewID).CanHaveFocus = True
__UI_NewID = __UI_NewControl(__UI_Type_Button, "OpenBT", 80, 23, 382, 461, __UI_GetID("OpenFrame"))
SetCaption __UI_NewID, "Open"
Control(__UI_NewID).CanHaveFocus = True
__UI_NewID = __UI_NewControl(__UI_Type_Button, "CancelBT", 80, 23, 470, 461, __UI_GetID("OpenFrame"))
SetCaption __UI_NewID, "&Cancel"
Control(__UI_NewID).CanHaveFocus = True
__UI_NewID = __UI_NewControl(__UI_Type_ListBox, "ControlList", 379, 222, 25, 24, __UI_GetID("ZOrdering"))
Control(__UI_NewID).Font = SetFont("cour.ttf", 12)
Control(__UI_NewID).HasBorder = True