Title : VisualB for quickgui
Author : churchaxe
Posted : 1+ years ago
Description : For people who like the quickgui system by wickedrush, here is a graphical editor/form designer. You can place/resize buttons and everything, set properties etc, save/reload
the forms/windows and export all the stuff into BlitzBasic code.
Edit:
I've been reported that about 1 or 2 functions are missing...
if so, please add the following code to either quickgui.bb or the main-.bb-file:
Function gui_getMode(name)
For a.gui_gadget=Each gui_gadget
If a
um=name Then Return amode
Next
End Function
Function gui_setMode(name,md)
For a.gui_gadget=Each gui_gadget
If a
um=name Then amode=md
Next
End Function
I've made a few fixes in the quickgui.bb for my own personal use, but I left them out for this version, which uses the original and unmodified files of quickgui (version 1.08)
delivered by wickedrush. One little warning: beware of pressing the del-key in an activated and empty input-gadget. This causes an error in gui_handleinput
(at least on my computer...)
As far as it is my own code it's free for use and whatever you wanna do with it - at your own risk 
You also need these 2 files:
quickgui.bb (which is the actual gui system)
quickGui_fileRequestor.bb (file open/save dialogs, this is also part of the quickgui package)
<a href="codearcs9950.html?code=229" target="_blank">http://www.blitzbasic.com/codearcs/codearcs.php?code=229[/url]
Note that this app needs at least 1024x768 display size, otherwise it won't show the bottom parts of the control window. For those people who have 1024x768, it's best
to run it with Graphics 1024, 768, 32, 1 (fullscreen). If your display is 1280x1024 run it at 1024x768/windowed. 800x600 is very bad whether windowed or fullscreen.
If you get lost in too big windows, remember: F1=help and ESC=quit... 
Note also that it uses the SystemProperty("APPDIR") as a starting point, which means that if you run it from the IDE it will put its settings-file "VisualB.ini" in your Blitz...in folder.
If you run it as an .exe it'll use the directory the visualb.exe actually is in. Code : [code=blitzbasic]Graphics 1024, 768, 32, 2
SetBuffer BackBuffer()
Include "quickgui.bb" ;put in correct path
Include "quickgui_filerequestor.bb"
FreeFont gui_font
gui_font = LoadFont("Arial", 12, True)
SetFont gui_font
gui_usepointer = True
ClsColor 128, 128, 128
Global act ;selected gadget in form=window under construction
Global ctrlpos
Global cyclic_ids
Global dir_app$ = SystemProperty("APPDIR")
Global dir_img$ = dir_app
Global dir_open$ = dir_app
Global dir_snd$ = dir_app
Global endprog
Global exp_fulapp
Global exp_gadselect
Global exp_modal
Global fatmark
Global form
Global formih
Global formimg$
Global frmfile$
Global gadsel
Global mx, my
Global newwidth, newheight
Global posx, posy
Global wait
Type gad
Field id
Field noclick
Field rightclick
Field inputgadget
Field container_for
Field slider_in
Field vertical
Field ni$, nih
Field di$, dih
Field oi$, oih
Field os$, osh
Field ds$, dsh
End Type
If LoadINI() Then msgbox("if you need some HELP please press F1", 0, "First start...")
AppTitle frmfile + " - VisualB"
While Not endprog
mx = MouseX()
my = MouseY()
Cls
ShowPointer
gadsel = gui_update(0, wait)
g.gad = GetGad(gadsel)
If g <> Null ;gadget in form selected
act = gadsel
FillCtrl()
ElseIf gadsel > 0 ;gadget in CtrlWin selected
Flip
EndIf
If act <> 0 And KeyDown(56) ;test slider movement
g = GetGad(act)
If (gslider_in <> 0)
tmp$ = gui_handleSlider(act, form, act, gslider_in, gvertical, True)
Color 255, 255, 0
Text 230, 30, "slider value = " + tmp
FillCtrl
EndIf
EndIf
Color 0, 0, 0
Text 230, 0, "mouse: x = " + mx + " y = " + my
;red marker for selected item
If Not gui_gethandle(1000)
Color 255, 0, 0
If act > 0
rx = gui_getx(act) + gui_getwinx(form)
rw = gui_getw(act)
Else
rx = gui_getwinx(form)
rw = gui_getwinw(form)
EndIf
If gui_gethandle(1)
If ctrlpos = 0
If rx < 227
rw = rw - 227 + rx
rx = 227
EndIf
ElseIf rx + rw > ctrlpos
rw = ctrlpos - rx
EndIf
EndIf
If act > 0
Rect rx, gui_gety(act) + gui_getwiny(form), rw, gui_geth(act), False
If fatmark Then Rect rx + 1, gui_gety(act) + gui_getwiny(form) + 1, rw - 2, gui_geth(act) - 2, False
Else
Rect rx, gui_getwiny(form), rw, gui_getwinh(form), False
If fatmark Then Rect rx + 1, gui_getwiny(form) + 1, rw - 2, gui_getwinh(form) - 2, False
EndIf
Color 0, 0, 0
EndIf
enteringtext = False
For a.gui_gadget = Each gui_gadget
If amode And 2048
enteringtext = True
Exit
EndIf
Next
If Not enteringtext Then GetuserInput()
Flip
Wend
SaveINI()
End
Function ApplyAll()
If act <> 0
g.gad = GetGad(act)
align = GetAlign(3)
gui_settext(act, gui_gettext(2), align)
;types
tmp1$ = gui_gettext(16)
tmp2$ = gui_gettext(17)
tmp3$ = gui_gettext(18)
gui_settypes(act, Int(tmp1), Int(tmp2), Int(tmp3))
x = gui_gettext(23)
y = gui_gettext(24)
width = gui_gettext(25)
height = gui_gettext(26)
Select Int(tmp1) ;fixed height for radiobtns and checkboxes
Case 13, 14
gui_setsize(act, width, 13)
gui_settext(26, "13")
Case 15, 16
gui_setsize(act, width, 12)
gui_settext(26, "12")
Default
gui_setsize(act, width, height)
End Select
gui_setposition(act, x, y)
SetGadID()
;set slider/container
tmp1 = gui_gettext(34)
If tmp1 <> ""
g2.gad = GetGad(Int(tmp1))
If g2 <> Null
If g2id <> act
If g2slider_in <> 0
MsgBox("Gadget " + g2id + " is already a slider in " + g2slider_in, 0, "Setting container...")
If Not(gui_getmode(34) And 2048)
gui_setmode(34, gui_getmode(34) + 2048)
gui_textcursorpos = 0
gui_settext(34, "")
EndIf
ElseIf g2container_for <> 0 And (g2container_for <> gid)
MsgBox("Gadget " + g2id + " is already a container for " + g2container_for, 0, "Setting container...")
If Not(gui_getmode(34) And 2048)
gui_setmode(34, gui_getmode(34) + 2048)
gui_textcursorpos = 0
gui_settext(34, "")
EndIf
Else
g3.gad = GetGad(gslider_in)
If g3 <> Null
g3container_for = 0
g3
oclick = False
EndIf
gslider_in = g2id
If gvertical
gui_settext(33, "vertical")
Else
gui_settext(33, "horizontal")
EndIf
g2
oclick = True
g2container_for = act
EndIf
Else
If gslider_in <> 0
gui_settext(34, gslider_in)
Else
gui_settypes(32, 15)
gui_settext(34, "")
EndIf
EndIf
Else
MsgBox("There's no gadget number " + tmp1 + " in Form " + form + ".", 0, "Setting container...")
If gslider_in <> 0
gui_settext(34, gslider_in)
Else
gui_settypes(32, 15)
gui_settext(34, "")
EndIf
EndIf
EndIf
Else ;form
align = GetAlign(form)
SetWinText(form, gui_gettext(2), align)
;type
tmp1$ = gui_gettext(16)
For a.gui_gadget = Each gui_gadget
If a
um = 0 And awindownum = form Then a yp = Int(tmp1)
Next
x = gui_gettext(23)
y = gui_gettext(24)
width = gui_gettext(25)
height = gui_gettext(26)
gui_setwinxy(form, x, y)
gui_setwinsize(form, width, height)
EndIf
;find/goto gadget
tmp1 = gui_gettext(55)
If tmp1 <> ""
If Int(tmp1) = form
gui_settext(55, "")
act = 0
FillCtrl()
Return
EndIf
For g.gad = Each gad
If gid = Int(tmp1)
act = gid
gui_settext(55, "")
FillCtrl()
Return
EndIf
Next
If g = Last gad Or g = Null
MsgBox("There's no gadget number " + tmp1 + " in Form " + form + ".", 0, "Goto Gadget...")
gui_settext(55, "")
EndIf
EndIf
;change filename
tmp1$ = gui_gettext(57)
If tmp1 <> "unnamed"
If Lower(Right(tmp1, 4)) <> ".vbf"
If Instr(tmp1, ".") Then tmp1 = Left(tmp1, Instr(tmp1, ".") - 1)
tmp1 = tmp1 + ".vbf"
Else
tmp1 = tmp1
EndIf
If frmfile <> tmp1
frmfile = tmp1
saveform(frmfile)
AppTitle frmfile + " - VisualB"
EndIf
gui_settext(57, tmp1, 1)
EndIf
;change to new FormID
tmp1$ = gui_gettext(49)
If Int(tmp1) <> form
SetFormID(Int(tmp1))
EndIf
gui_redrawwindow(form)
gui_redrawwindow(1)
End Function
Function CtrlWin()
If gui_gethandle(1) Then gui_freewindow(1)
gui_makewindow(1, 226, 768, 0, 1)
gui_makegadget(1, 1, 1, 27, 29, 15, 5, 8, "text", 1)
gui_makegadget(1, 2, 27, 27, 195, 15, 261, 2, "texttext", 1)
gui_makegadget(1, 3, 99, 6, 122, 15, 1, 1, "alignment", 1)
gui_makegadget(1, 4, 4, 70, 42, 15, 5, 8, "modes", 1)
gui_makegadget(1, 5, 5, 90, 55, 12, 5, 15, "noclick", 2)
gui_makegadget(1, 6, 5, 105, 67, 12, 5, 15, "nosunken", 2)
gui_makegadget(1, 7, 5, 120, 66, 12, 5, 15, "rightclick", 2)
gui_makegadget(1, 8, 5, 135, 57, 12, 5, 15, "shadow", 2)
gui_makegadget(1, 9, 5, 150, 46, 12, 5, 15, "ghost", 2)
gui_makegadget(1, 10, 5, 165, 81, 12, 5, 15, "autobrighten", 2)
gui_makegadget(1, 11, 5, 180, 45, 12, 5, 15, "input", 2)
gui_makegadget(1, 12, 160, 71, 42, 15, 5, 8, "types", 2)
gui_makegadget(1, 13, 132, 91, 42, 15, 5, 8, "normal", 2)
gui_makegadget(1, 14, 132, 114, 42, 15, 5, 8, "over", 2)
gui_makegadget(1, 15, 132, 137, 42, 15, 5, 8, "down", 2)
gui_makegadget(1, 16, 176, 91, 25, 15, 261, 2, "16", 0)
gui_makegadget(1, 17, 176, 114, 25, 15, 261, 2, "15", 0)
gui_makegadget(1, 18, 176, 137, 25, 15, 261, 2, "11", 0)
gui_makegadget(1, 19, 5, 210, 40, 14, 5, 8, "X", 2)
gui_makegadget(1, 20, 5, 229, 40, 14, 5, 8, "Y", 2)
gui_makegadget(1, 21, 5, 248, 40, 14, 5, 8, "width", 2)
gui_makegadget(1, 22, 5, 267, 40, 14, 5, 8, "height", 2)
gui_makegadget(1, 23, 50, 210, 35, 15, 261, 2, "xval", 0)
gui_makegadget(1, 24, 50, 229, 35, 15, 261, 2, "yval", 0)
gui_makegadget(1, 25, 50, 248, 35, 15, 261, 2, "wval", 0)
gui_makegadget(1, 26, 50, 267, 35, 15, 261, 2, "hval", 0)
gui_makegadget(1, 27, 110, 190, 110, 15, 1, 1, "compress IDs now", 0)
gui_makegadget(1, 28, 142, 248, 64, 15, 1, 1, "duplicate", 0)
gui_makegadget(1, 29, 142, 267, 64, 15, 1, 1, "delete", 0)
gui_makegadget(1, 30, 1, 6, 42, 15, 5, 8, "gadget", 1)
gui_makegadget(1, 31, 41, 6, 46, 15, 261, 2, "gadID", 0)
gui_makegadget(1, 32, 1, 306, 108, 12, 5, 15, "slider in container", 2)
gui_makegadget(1, 33, 163, 306, 56, 15, 1, 1, "vertical", 0)
gui_makegadget(1, 34, 110, 306, 46, 15, 261, 2, "containerID", 0)
gui_makegadget(1, 35, 6, 359, 45, 15, 5, 8, "images", 1)
gui_makegadget(1, 36, 6, 379, 25, 15, 5, 8, "ni", 1)
gui_makegadget(1, 37, 6, 399, 25, 15, 5, 8, "oi", 1)
gui_makegadget(1, 38, 6, 419, 25, 15, 5, 8, "di", 1)
gui_makegadget(1, 39, 6, 445, 46, 15, 5, 8, "sounds", 1)
gui_makegadget(1, 40, 6, 465, 25, 15, 5, 8, "os", 1)
gui_makegadget(1, 41, 6, 485, 25, 15, 5, 8, "ds", 1)
gui_makegadget(1, 42, 21, 379, 200, 15, 1, 1, "nival", 0)
gui_makegadget(1, 43, 21, 399, 200, 15, 1, 1, "oival", 0)
gui_makegadget(1, 44, 21, 419, 200, 15, 1, 1, "dival", 0)
gui_makegadget(1, 45, 21, 465, 200, 15, 1, 1, "osval", 0)
gui_makegadget(1, 46, 21, 485, 200, 15, 1, 1, "dsval", 0)
gui_makegadget(1, 47, 142, 229, 64, 15, 1, 1, "insert", 0)
gui_makegadget(1, 48, 3, 520, 32, 12, 5, 8, "form", 0)
gui_makegadget(1, 49, 38, 518, 50, 15, 261, 2, "formID", 0)
gui_makegadget(1, 50, 100, 518, 50, 15, 1, 1, "new", 0)
gui_makegadget(1, 51, 160, 518, 50, 15, 1, 1, "open", 0)
gui_makegadget(1, 52, 100, 538, 50, 15, 1, 1, "save", 0)
gui_makegadget(1, 53, 160, 598, 50, 15, 1, 1, "export", 0)
gui_makegadget(1, 54, 1, 52, 79, 12, 5, 8, "goto", 0)
gui_makegadget(1, 55, 80, 50, 46, 15, 261, 2, "", 0)
gui_makegadget(1, 56, 4, 562, 52, 12, 5, 8, "filename", 1)
gui_makegadget(1, 57, 53, 561, 166, 15, 261, 2, "filenameval", 1)
gui_makegadget(1, 58, 156, 746, 64, 15, 1, 1, "quit", 0)
gui_makegadget(1, 59, 5, 598, 103, 12, 5, 15, "long gadgetIDs", 2)
gui_makegadget(1, 60, 5, 623, 201, 13, 5, 13, "full application", 2)
gui_makegadget(1, 61, 36, 638, 136, 13, 5, 13, "without selector", 2)
gui_makegadget(1, 62, 36, 654, 137, 13, 5, 13, "select / case selector", 2)
gui_makegadget(1, 63, 36, 670, 137, 13, 5, 13, "if / then / else selector", 2)
gui_makegadget(1, 64, 5, 719, 202, 13, 5, 13, "form and gadget code only", 2)
gui_makegadget(1, 65, 119, 686, 53, 12, 5, 15, "modal", 2)
gui_makegadget(1, 66, 1, 326, 108, 15, 5, 8, "container for slider", 0)
gui_makegadget(1, 67, 110, 326, 46, 15, 5, 8, "sliderID", 0)
gui_makegadget(1, 68, 110, 170, 110, 12, 5, 15, "cyclic IDs", 2)
gui_makegadget(1, 69, 38, 538, 50, 15, 1, 1, "reload", 0)
gui_makegadget(1, 70, 142, 50, 64, 15, 1, 1, "IDs info", 0)
gui_makegadget(1, 71, 7, 746, 64, 15, 1, 1, "help", 0)
gui_makegadget(1, 72, 160, 538, 50, 15, 1, 1, "save as", 0)
gui_settiptext(2, "F2")
gui_settiptext(28, "Ctrl/Shift+D")
gui_settiptext(29, "Ctrl+X")
gui_settiptext(33, "horizontal/vertical")
gui_settiptext(47, "Ins")
gui_settiptext(50, "Ctrl+N")
gui_settiptext(51, "Ctrl+O")
gui_settiptext(52, "Ctrl+S")
gui_settiptext(53, "Ctrl+E")
gui_settiptext(55, "F3")
gui_settiptext(58, "Alt+F4")
gui_settiptext(69, "Ctrl+Z")
gui_settiptext(70, "Ctrl+I")
gui_settiptext(71, "F1")
gui_drawwindow(1, ctrlpos, 0)
If exp_fulapp = True
gui_settypes(60, 14)
gui_settypes(64, 13)
If exp_modal
gui_settypes(65, 16)
Else
gui_settypes(65, 15)
EndIf
If exp_gadselect = 0
gui_settypes(61, 14)
gui_settypes(62, 13)
gui_settypes(63, 13)
ElseIf exp_gadselect = 1
gui_settypes(61, 13)
gui_settypes(62, 14)
gui_settypes(63, 13)
Else
gui_settypes(61, 13)
gui_settypes(62, 13)
gui_settypes(63, 14)
EndIf
Else
gui_settypes(60, 13)
gui_settypes(64, 14)
gui_settypes(65, 15)
gui_settypes(61, 13)
gui_settypes(62, 13)
gui_settypes(63, 13)
EndIf
If cyclic_ids Then gui_settypes(68, 16)
FillCtrl()
gui_drawwindow(1, ctrlpos, 0)
End Function
Function Export()
If Instr(frmfile, ".")
expfile$ = dir_open + Left(frmfile, Instr(frmfile, ".") - 1) + ".bb"
Else
expfile$ = dir_open + frmfile + ".bb"
EndIf
fileh = WriteFile(expfile)
WriteLine(fileh, ";created by VisualB")
If exp_fulapp ;sample app code
WriteLine(fileh, "Graphics 1024, 768, 32, 2")
WriteLine(fileh, "SetBuffer BackBuffer()")
WriteLine(fileh, "Include " + Chr(34) + "quickGui.bb" + Chr(34) + " ;complete with correct path")
WriteLine(fileh, "")
WriteLine(fileh, "FreeFont gui_font")
WriteLine(fileh, "gui_font = LoadFont(" + Chr(34) + "Arial" + Chr(34) + ", 12, True)")
WriteLine(fileh, "SetFont gui_font")
WriteLine(fileh, "gui_usepointer = True")
WriteLine(fileh, "Global debugtext$")
If exp_gadselect > 0
WriteLine(fileh, "Global gui_wait")
WriteLine(fileh, "Global gadsel")
WriteLine(fileh, "")
EndIf
If Not exp_modal Then WriteLine(fileh, "CreateWindow()")
WriteLine(fileh, "")
WriteLine(fileh, "While Not KeyHit(1) ;mainloop")
WriteLine(fileh, " Cls")
If exp_gadselect > 0
WriteLine(fileh, " gadsel = gui_update(0, gui_wait)")
Else
WriteLine(fileh, " gadsel = gui_update()")
EndIf
If exp_modal = False
For g.gad = Each gad
If gslider_in <> 0
If actline = False
WriteLine(fileh, " If gadsel Then act = gadsel")
actline = True
EndIf
If gui_gettype(59) = 16
exp_ID$ = Str(form) + Str(gid - form)
exp_ID2$ = Str(form) + Str(gslider_in - form)
Else
exp_ID = gid
exp_ID2 = gslider_in
EndIf
WriteLine(fileh, " If act = " + exp_ID + " Then debugtext = gui_HandleSlider(act, " + form + ", " + exp_ID + ", " + exp_ID2 + ", " + gvertical + ", True)")
EndIf
Next
WriteLine(fileh, "")
If exp_gadselect > 0 Then WriteLine(fileh, " HandleGuiInput()")
WriteLine(fileh, " If debugtext <> " + Chr(34) + Chr(34))
WriteLine(fileh, " Color 255, 0, 0")
WriteLine(fileh, " Text 0, 0, debugtext")
WriteLine(fileh, " EndIf")
WriteLine(fileh, "")
ElseIf exp_modal
WriteLine(fileh, " Color 255, 255, 255")
WriteLine(fileh, " If retval Then t$ = " + Chr(34) + " again" + Chr(34))
WriteLine(fileh, " Text 0, 0, " + Chr(34) + "hit SPACE to start window function" + Chr(34) + " + t + " + Chr(34) + ", ESC To Exit program" + Chr(34))
WriteLine(fileh, " If KeyHit(57)")
WriteLine(fileh, " FlushKeys")
WriteLine(fileh, " retval = CreateWindow()")
WriteLine(fileh, " EndIf")
WriteLine(fileh, "")
WriteLine(fileh, " If retval")
WriteLine(fileh, " Color 255, 255, 0")
WriteLine(fileh, " Text 0, 30, " + Chr(34) + "returned value = " + Chr(34) + " + retval")
WriteLine(fileh, " EndIf")
WriteLine(fileh, "")
EndIf
WriteLine(fileh, " Flip")
WriteLine(fileh, "Wend")
WriteLine(fileh, "End")
WriteLine(fileh, "")
If exp_gadselect
WriteLine(fileh, "Function HandleGUIInput()")
If exp_gadselect = 1
WriteLine(fileh, ";gadget selector type: select/case")
WriteLine(fileh, " Select gadsel")
For g.gad = Each gad
If Not g
oclick
If gui_gettype(59) = 16
exp_ID$ = Str(form) + Str(gid - form)
WriteLine(fileh, " Case " + exp_ID)
WriteLine(fileh, " debugtext = " + Chr(34) + "gadget " + Chr(34) + " + " + exp_ID + " + " + Chr(34) + " selected" + Chr(34))
Else
WriteLine(fileh, " Case " + gid)
WriteLine(fileh, " debugtext = " + Chr(34) + "gadget " + Chr(34) + " + " + gid + " + " + Chr(34) + " selected" + Chr(34))
EndIf
EndIf
Next
WriteLine(fileh, " End Select")
WriteLine(fileh, "")
ElseIf exp_gadselect = 2
WriteLine(fileh, ";gadget selector type: if/then/else")
For g.gad = Each gad
If gui_gettype(59) = 16
exp_ID$ = Str(form) + Str(gid - form)
If g = First gad
WriteLine(fileh, " If gadsel = " + exp_ID)
WriteLine(fileh, " debugtext = " + Chr(34) + "gadget " + Chr(34) + " + " + exp_ID + " + " + Chr(34) + " selected" + Chr(34))
ElseIf Not g
oclick
WriteLine(fileh, " ElseIf gadsel = " + exp_ID)
WriteLine(fileh, " debugtext = " + Chr(34) + "gadget " + Chr(34) + " + " + exp_ID + " + " + Chr(34) + " selected" + Chr(34))
EndIf
Else
If g = First gad
WriteLine(fileh, " If gadsel = " + gid)
WriteLine(fileh, " debugtext = " + Chr(34) + "gadget " + Chr(34) + " + " + gid + " + " + Chr(34) + " selected" + Chr(34))
ElseIf Not g
oclick
WriteLine(fileh, " ElseIf gadsel = " + gid)
WriteLine(fileh, " debugtext = " + Chr(34) + "gadget " + Chr(34) + " + " + gid + " + " + Chr(34) + " selected" + Chr(34))
EndIf
EndIf
Next
WriteLine(fileh, " EndIf")
EndIf
WriteLine(fileh, " If MouseDown(1)")
WriteLine(fileh, " gui_wait = True")
WriteLine(fileh, " Else")
WriteLine(fileh, " gui_wait = False")
WriteLine(fileh, " EndIf")
WriteLine(fileh, "End Function")
WriteLine(fileh, "")
EndIf
WriteLine(fileh, "Function CreateWindow()")
If exp_modal ;modal test win
WriteLine(fileh, ";program stops until dialog is terminated")
WriteLine(fileh, ";returns 1 when ended with ESC, 2 when ended with ENTER")
WriteLine(fileh, "")
EndIf
EndIf
w_x = gui_getwinx(form)
w_y = gui_getwiny(form)
w_width = gui_getwinw(form)
w_height = gui_getwinh(form)
w_type = GetWinType(form)
WriteLine(fileh, " gui_makewindow(" + form + ", " + w_width + ", " + w_height + ", 0, " + w_type + ")")
For g.gad = Each gad ;gadgets
If gui_gettype(59) = 16
exp_ID = Str(form) + Str(gid - form)
Else
exp_ID = gid
EndIf
width = gui_getw(gid)
height = gui_geth(gid)
mode = gui_getmode(gid)
If g
oclick Then mode = mode + 2
If gightclick Then mode = mode + 8
If gInputgadget Then mode = mode + 256
nt = gui_gettype(gid)
ot = GetOverType(gid)
dt = GetDownType(gid)
ni$ = g
i
oi$ = goi
di$ = gdi
os$ = gos
ds$ = gds
WriteLine(fileh, " gui_makegadget(" + form + ", " + exp_ID + ", " + gui_getx(gid) + ", " + gui_gety(gid) + ", " + width + ", " + height + ", " + mode + ", " + nt + ", " + Chr(34) + gui_gettext(gid) + Chr(34) + ", " + GetAlign(gid) + ")")
If (ot Or dt) Then WriteLine(fileh, " gui_settypes(" + exp_ID + ", " + nt + ", " + ot + ", " + dt + ")")
If g
i <> ""
WriteLine(fileh, " nih = LoadImage(" + Chr(34) + g
i + Chr(34) + ")")
WriteLine(fileh, " If nih <> 0 Then nih = gui_givebutton(nih, " + width + ", " + height + ")")
tmp1$ = "nih"
Else
tmp1$ = Chr(34) + Chr(34)
EndIf
If goi <> ""
WriteLine(fileh, " oih = LoadImage(" + Chr(34) + goi + Chr(34) + ")")
WriteLine(fileh, " If oih <> 0 Then oih = gui_givebutton(oih, " + width + ", " + height + ")")
tmp2$ = "oih"
Else
tmp2$ = Chr(34) + Chr(34)
EndIf
If gdi <> ""
WriteLine(fileh, " dih = LoadImage(" + Chr(34) + gdi + Chr(34) + ")")
WriteLine(fileh, " If dih <> 0 Then dih = gui_givebutton(dih, " + width + ", " + height + ")")
tmp3$ = "dih"
Else
tmp3$ = Chr(34) + Chr(34)
EndIf
If g
i <> "" Or goi <> "" Or gdi <> ""
WriteLine(fileh, " gui_setimages(" + exp_ID + ", 0, 0, " + tmp1 + ", " + tmp2 + ", " + tmp3 + ")")
WriteLine(fileh, "")
EndIf
If gos <> ""
WriteLine(fileh, " osh = LoadSound(" + Chr(34) + gos + Chr(34) + ")")
tmp1$ = "osh"
Else
tmp1$ = Chr(34) + Chr(34)
EndIf
If gds <> ""
WriteLine(fileh, " dsh = LoadSound(" + Chr(34) + gds + Chr(34) + ")")
tmp2$ = "dsh"
Else
tmp2$ = Chr(34) + Chr(34)
EndIf
If gos <> "" Or gds <> ""
WriteLine(fileh, " gui_setsounds(" + exp_ID + ", " + tmp1 + ", " + tmp2 + ")")
WriteLine(fileh, "")
EndIf
Next
WriteLine(fileh, "")
WriteLine(fileh, " gui_drawwindow(" + form + ", " + w_x + ", " + w_y + ")")
If exp_modal And exp_fulapp
WriteLine(fileh, "")
WriteLine(fileh, " Repeat ;loop")
WriteLine(fileh, " Cls")
WriteLine(fileh, " Color 255, 255, 255")
WriteLine(fileh, " Text 0, 0, " + Chr(34) + "hit ESC to exit and return 1" + Chr(34))
WriteLine(fileh, " Text 0, 10, " + Chr(34) + "hit ENTER to exit and return 2" + Chr(34))
WriteLine(fileh, " gadsel = gui_update(" + form + ", gui_wait)")
For g.gad = Each gad
If gslider_in <> 0
If actline = False
WriteLine(fileh, " If gadsel Then act = gadsel")
WriteLine(fileh, "")
actline = True
EndIf
If gui_gettype(59) = 16
exp_ID$ = Str(form) + Str(gid - form)
exp_ID2$ = Str(form) + Str(gslider_in - form)
Else
exp_ID = gid
exp_ID2 = gslider_in
EndIf
WriteLine(fileh, " If act = " + exp_ID + " Then debugtext = gui_HandleSlider(act, " + form + ", " + exp_ID + ", " + exp_ID2 + ", " + gvertical + ", True)")
EndIf
Next
If exp_gadselect > 0
WriteLine(fileh, "")
WriteLine(fileh, " HandleGuiInput()")
EndIf
WriteLine(fileh, "")
WriteLine(fileh, " If debugtext <> " + Chr(34) + Chr(34))
WriteLine(fileh, " Color 255, 0, 0")
WriteLine(fileh, " Text 0, 30, debugtext")
WriteLine(fileh, " EndIf")
WriteLine(fileh, "")
WriteLine(fileh, " Flip")
WriteLine(fileh, "")
WriteLine(fileh, " If KeyHit(1)")
WriteLine(fileh, " FlushKeys")
WriteLine(fileh, " gui_freewindow(" + form + ")")
If exp_gadselect Then WriteLine(fileh, " debugtext = " + Chr(34) + Chr(34))
WriteLine(fileh, " Return 1")
WriteLine(fileh, " ElseIf KeyHit(28)")
WriteLine(fileh, " FlushKeys")
WriteLine(fileh, " gui_freewindow(" + form + ")")
If exp_gadselect Then WriteLine(fileh, " debugtext = " + Chr(34) + Chr(34))
WriteLine(fileh, " Return 2")
WriteLine(fileh, " EndIf")
WriteLine(fileh, " Forever")
EndIf
If exp_fulapp Then WriteLine(fileh, "End Function")
CloseFile(fileh)
End Function
Function FillCtrl()
gui_settext(57, frmfile, 1)
gui_settext(49, form)
If act > 0
g.gad = GetGad(act)
If gcontainer_for <> 0
gui_settext(67, gcontainer_for)
Else
gui_settext(67, "")
EndIf
If gslider_in <> 0
gui_settypes(32, 16)
gui_settext(34, gslider_in)
If gvertical
gui_settext(33, "vertical")
Else
gui_settext(33, "horizontal")
EndIf
Else
gui_settypes(32, 15)
gui_settext(33, "")
gui_settext(34, "")
EndIf
gui_settext(2, gui_gettext(act), 1)
;modes
mode = gui_getmode(act)
If g
oclick Then
gui_settypes(5, 16)
Else
gui_Settypes(5, 15)
EndIf
If mode And 4 Then
gui_settypes(6, 16)
Else
gui_settypes(6, 15)
EndIf
If gightclick Then
gui_settypes(7, 16)
Else
gui_settypes(7, 15)
EndIf
If ginputgadget Then
gui_settypes(11, 16)
Else
gui_settypes(11, 15)
EndIf
If mode And 16 Then
gui_settypes(8, 16)
Else
gui_settypes(8, 15)
EndIf
If mode And 32 Then
gui_settypes(9, 16)
Else
gui_settypes(9, 15)
EndIf
If mode And 64 Then
gui_settypes(10, 16)
Else
gui_settypes(10, 15)
EndIf
gui_settext(31, act)
ntyp = gui_gettype(act)
gui_settext(16, ntyp)
gui_settext(17, GetOverType(act))
gui_settext(18, GetDownType(act))
align = GetAlign(act)
If ntyp > 12 And ntyp < 17
tmp1$ = "right"
align = 2
Else
If align = 0
tmp1$ = "center"
ElseIf align = 1
tmp1 = "left"
ElseIf align = 2
tmp1 = "right"
EndIf
EndIf
gui_settext(3, tmp1 + " align", align)
gui_settypes(3, 1)
If g
i <> ""
gui_settext(42, g
i)
Else
gui_settext(42, "(none)")
EndIf
If goi <> ""
gui_settext(43, goi)
Else
gui_settext(43, "(none)")
EndIf
If gdi <> ""
gui_settext(44, gdi)
Else
gui_settext(44, "(none)")
EndIf
If gos <> ""
gui_settext(45, gos)
Else
gui_settext(45, "(none)")
EndIf
If gds <> ""
gui_settext(46, gds)
Else
gui_settext(46, "(none)")
EndIf
gui_settext(23, gui_getx(act))
gui_settext(24, gui_gety(act))
gui_settext(25, gui_getw(act))
gui_settext(26, gui_geth(act))
Else ;form
gui_settypes(32, 15)
gui_settext(33, "")
gui_settext(34, "")
gui_settext(67, "")
tmp1$ = GetWinText(form)
If tmp1 = ""
gui_settext(2, tmp1)
Else
gui_settext(2, tmp1, 1)
EndIf
align = GetAlign(form)
If align = 0
tmp1$ = "center"
ElseIf align = 1
tmp1 = "left"
ElseIf align = 2
tmp1 = "right"
EndIf
gui_settext(3, tmp1 + " align", align)
gui_settypes(3, 1)
gui_settypes(5, 15)
gui_settypes(6, 15)
gui_settypes(7, 15)
gui_settypes(8, 15)
gui_settypes(9, 15)
gui_settypes(10, 15)
gui_settypes(11, 15)
mode = gui_getmode(0)
If mode And 2
gui_settypes(5, 16)
ElseIf mode And 4
gui_settypes(6, 16)
ElseIf mode And 8
gui_settypes(7, 16)
ElseIf mode And 16
gui_settypes(8, 16)
ElseIf mode And 32
gui_settypes(9, 16)
ElseIf mode And 64
gui_settypes(10, 16)
ElseIf mode And 256
gui_settypes(11, 16)
EndIf
ntyp = GetWinType(form)
gui_settext(16, ntyp)
gui_settext(31, "")
gui_settext(43, "")
gui_settext(44, "")
gui_settext(45, "")
gui_settext(46, "")
If formimg <> ""
gui_settext(42, formimg)
Else
gui_settext(42, "(none)")
EndIf
gui_settext(23, gui_getwinx(form))
gui_settext(24, gui_getwiny(form))
gui_settext(25, gui_getwinw(form))
gui_settext(26, gui_getwinh(form))
gui_settext(17, "")
gui_settext(18, "")
EndIf
If gui_gethandle(1) Then gui_redrawwindow(1)
End Function
Function GetAlign(name)
For w.gui_gadget = Each gui_gadget
If w
um = name Or (wwindownum = name And w
um = 0)
Return wjustify
EndIf
Next
End Function
Function GetDownType(name)
For w.gui_gadget = Each gui_gadget
If w
um = name
Return wdown_gad_type
EndIf
Next
End Function
Function GetFreeID(num)
If num < form + 1 Then num = form + 1
g.gad = First gad
If g = Null Then Return num
Repeat
For g = Each gad
If num = gid Then Exit ;not free
If g = Last gad
Return num
EndIf
Next
num = num + 1
Forever
End Function
Function GetGad.gad(id)
For g.gad = Each gad
If gid = id Then Return g
Next
End Function
Function GetOverType(name)
For w.gui_gadget = Each gui_gadget
If w
um = name
Return wover_gad_type
EndIf
Next
End Function
Function GetUserInput()
If (MouseHit(3) Or MouseHit(2)) ;init pos for pan/scale
If act > 0
posx = mx - gui_getwinx(form) - gui_getx(act)
posy = my - gui_getwiny(form) - gui_gety(act)
Else
posx = mx - gui_getwinx(form)
posy = my - gui_getwiny(form)
EndIf
MouseXSpeed()
MouseYSpeed()
EndIf
If MouseDown(2) ;pan
If act > 0
If KeyDown(42) Or KeyDown(54) ;horiz
newx = mx - gui_getwinx(form) - posx
newy = gui_gety(act)
ElseIf KeyDown(29) Or KeyDown(157) ;vert
newx = gui_getx(act)
newy = my - gui_getwiny(form) - posy
Else ;both
newx = mx - gui_getwinx(form) - posx
newy = my - gui_getwiny(form) - posy
EndIf
gui_setposition(act, newx, newy)
Else ;form
If KeyDown(42) Or KeyDown(54)
newx = mx - posx
newy = gui_getwiny(form)
ElseIf KeyDown(29) Or KeyDown(157)
newx = gui_getwinx(form)
newy = my - posy
Else
newx = mx - posx
newy = my - posy
EndIf
gui_setwinxy(form, newx, newy)
EndIf
gui_redrawwindow(form)
FillCtrl()
ElseIf MouseDown(3) ;scale
mxspd# = MouseXSpeed()
myspd# = MouseYSpeed()
If act > 0
If KeyDown(42) Or KeyDown(54) ;width
newwidth = gui_getw(act) + mxspd
newheight = gui_geth(act)
ElseIf KeyDown(29) Or KeyDown(157) ;height
newwidth = gui_getw(act)
newheight = gui_geth(act) + myspd
Else ;both
newwidth = gui_getw(act) + mxspd
newheight = gui_geth(act) + myspd
EndIf
If newwidth < 25 Then newwidth = 25
If newheight < 10 Then newheight = 10
nt = gui_gettype(act)
Select nt ;radiobtns/checkboxes (needs fix in quickgui.bb)
Case 13, 14
newheight = 13
Case 15, 16
newheight = 12
End Select
gui_setsize(act, newwidth, newheight)
Else ;form
If KeyDown(42) Or KeyDown(54)
newwidth = gui_getwinw(form) + mxspd
newheight = gui_getwinh(form)
ElseIf KeyDown(29) Or KeyDown(157)
newwidth = gui_getwinw(form)
newheight = gui_getwinh(form) + myspd
Else
newwidth = gui_getwinw(form) + mxspd
newheight = gui_getwinh(form) + myspd
EndIf
If newwidth < 100 Then newwidth = 100
If newheight < 50 Then newheight = 50
gui_setwinsize(form, newwidth, newheight)
EndIf
gui_redrawwindow(form)
FillCtrl()
EndIf
If MouseDown(3) = False And newwidth <> 0 And newheight <> 0
If act > 0
UpdImages(GetGad(act))
gui_redrawwindow(form)
Else
UpdImages(Null)
gui_redrawwindow(form)
EndIf
newwidth = 0
newheight = 0
EndIf
If MouseDown(1) Or MouseDown(2) Or MouseDown(3)
wait = True
Else
wait = False
EndIf
If KeyHit(28) ;return
ApplyAll()
ElseIf gadsel = 58
waitformouse()
endprog = True
ElseIf KeyHit(62) ;f4
If gui_gethandle(1)
gui_freewindow(1)
Else
CtrlWin()
EndIf
ElseIf KeyHit(45) And (KeyDown(29) Or KeyDown(157)) Or gadsel = 29 ;ctrl+X
waitformouse()
If act = 0 Then Return
g.gad = GetGad(act)
FreeImage g
ih
FreeImage goih
FreeImage gdih
FreeSound gosh
FreeSound gdsh
If gcontainer_for
g2.gad = GetGad(gcontainer_for)
g2slider_in = 0
EndIf
If gslider_in
g2.gad = GetGad(gslider_in)
g2container_for = 0
EndIf
Delete g
For w.gui_gadget = Each gui_gadget
If w
um = act
Delete w.gui_gadget
Exit
EndIf
Next
If cyclic_IDs Then SortIDs()
act = 0
gui_redrawwindow(form)
FillCtrl()
ElseIf KeyHit(31) And (KeyDown(29) Or KeyDown(157)) Or gadsel = 52 Or gadsel = 72 ;save
waitformouse()
tmp$ = gui_gettext(57)
If Lower(Left(tmp, 9) = "unnamed") Or gadsel = 72
gui_filter(0) = ".vbf"
tmp = gui_Filerequestor("Save file as...", dir_open, "", GraphicsWidth()/2 - 225, GraphicsHeight()/2 - 160)
If tmp <> ""
For position = Len(tmp) - 1 To 1 Step - 1
If Mid(tmp, position, 1) = ""
path$ = Left(tmp, position)
Exit
EndIf
Next
If Lower(Right(tmp, 4)) <> ".vbf" Then tmp = tmp + ".vbf"
dir_open = path
SaveForm(Right(tmp, Len(tmp) - Len(path)))
EndIf
ElseIf tmp <> ""
If Lower(Right(tmp, 4)) <> ".vbf" Then tmp = tmp + ".vbf"
SaveForm(tmp)
EndIf
ElseIf KeyHit(24) And (KeyDown(29) Or KeyDown(157)) Or gadsel = 51 ;open
waitformouse()
FlushKeys
gui_filter(0) = ".vbf"
tmp$ = gui_filerequestor("Open file...", dir_open, "", GraphicsWidth()/2 - 225, GraphicsHeight()/2 - 160)
If tmp <> ""
For position = Len(tmp) - 1 To 1 Step - 1
If Mid(tmp, position, 1) = ""
path$ = Left(tmp, position)
Exit
EndIf
Next
dir_open = path
LoadForm(Right(tmp, Len(tmp) - Len(path)))
EndIf
ElseIf KeyHit(32) And (KeyDown(29) Or KeyDown(42)) Or gadsel = 28 ;dup gad, shift=horiz, ctrl=vert
If act = 0 Then Return
oldgad.gad = GetGad(act)
width = gui_getw(act)
height = gui_geth(act)
If KeyDown(42)
x = gui_getx(act) + width + 5
y = gui_gety(act)
Else
x = gui_getx(act)
y = gui_gety(act) + height + 5
EndIf
mode = gui_getmode(act)
nt = gui_gettype(act)
ot = GetOverType(act)
dt = GetDownType(act)
align = GetAlign(act)
g.gad = New gad
gid = GetFreeID(form + 1)
g
oclick = oldgad
oclick
gightclick = oldgadightclick
ginputgadget = oldgadinputgadget
g
i = oldgad
i
goi = oldgadoi
gdi = oldgaddi
gos = oldgados
gds = oldgadds
gui_makegadget(form, gid, x, y, width, height, mode, 1, gid, align)
gui_settypes(gid, nt, ot, dt)
act = gid
UpdImages(g)
UpdSounds(g)
gui_redrawwindow(form)
FillCtrl()
waitformouse()
ElseIf KeyHit(49) And (KeyDown(29) Or KeyDown(157)) Or gadsel = 50 ;new form
waitformouse()
For g.gad = Each gad
FreeImage g
ih
FreeImage goih
FreeImage gdih
FreeSound gosh
FreeSound gdsh
Delete g
Next
frmfile = "unnamed"
gui_freewindow(form)
form = 100
gui_makewindow(form, 400, 300, 0, 1)
gui_drawwindow(form, 260, 60)
act = 0
AppTitle frmfile + " - VisualB"
CtrlWin()
FillCtrl()
ElseIf KeyHit(210) Or gadsel = 47 ;ins-new gad
g.gad = New gad
gid = GetFreeID(form + 1)
gui_makegadget(form, gid, 50, 50, 60, 25, 1, 1, gid)
act = gid
FillCtrl()
gui_redrawwindow(form)
waitformouse()
ElseIf gadsel = 27 ;compress IDs
waitformouse()
retval = MsgBox("Gadget IDs will be changed. Continue?", 1, "Sort and compress gadget IDs...")
If retval = 1
SortIDs()
EndIf
ElseIf gadsel = 0 And MouseHit(1) And mx>gui_getwinx(form) And mx<gui_getwinx(form)+gui_getwinw(form) And my>gui_getwiny(form) And my<gui_getwiny(form)+gui_getwinh(form) And KeyDown(56) = False
;Lclick: activate form
act = 0
FillCtrl()
ElseIf KeyHit(60) ;F2 edit text
FlushKeys
If Not(gui_getmode(2) And 2048)
gui_settext(2, "", GetAlign(2))
gui_setmode(2, gui_getmode(2) + 2048)
gui_textcursorpos = 0
EndIf
ElseIf KeyHit(59) Or gadsel = 71 ;F1 help
waitformouse()
txt$ = "Ins - adds new gadget at (form-) position x=50, y=50" + Chr(31) + "LMB - selects item. MMB - resizes, RMB - moves selected item." + Chr(31) + "Shift - limits resizing/moving to horizontal only, "
txt = txt + "Ctrl - limits to vertical" + Chr(31) + "Enter - applies changes made in control window" + Chr(31) + Chr(31) + "Some hotkeys can be retrieved by holding the mouse over a button for about "
txt = txt + "two secs..." + Chr(31) + Chr(31) + "F1 - displays this help" + Chr(31) + "F2 - edit gadget text" + Chr(31) + "F3 - find/goto gadget" + Chr(31) + "F4 - show/hide control window"
txt = txt + Chr(31) + "F5 - left/right position of control window" + Chr(31) + "F6 - slim/fat gadget marker" + Chr(31) + "Alt+F4 - ends program" + Chr(31) + "Tab/Shift+Tab - jumps from item To item"
txt = txt + Chr(31) + "Alt+drag - tests slider movement" + Chr(31) + Chr(31) + "SPECIAL THANKS TO THE PEOPLE OF WICKEDRUSH SOFTWARE FOR THE WORK AND POWER THEY PUT IN QUICKGUI!"
MsgBox(txt, 0, "Help...")
ElseIf KeyHit(1)
endprog = True
ElseIf KeyHit(61) ;F3 goto
FlushKeys
If Not(gui_getmode(55) And 2048)
gui_setmode(55, gui_getmode(55) + 2048)
gui_textcursorpos = 0
EndIf
ElseIf KeyHit(63) ;F5 left/right position
If gui_gethandle(1)
If ctrlpos = 0
ctrlpos = GraphicsWidth() - 227
Else
ctrlpos = 0
EndIf
CtrlWin()
EndIf
ElseIf KeyHit(64)
fatmark = Not fatmark
ElseIf KeyHit(23) And (KeyDown(29) Or KeyDown(157)) Or gadsel = 70 ;ctrl+i gad info
waitformouse()
For g.gad = Each gad
gadcount = gadcount + 1
Next
tmp1$ = gadcount + " gadgets" + Chr(31) + "Used IDs: "
For g.gad = Each gad
If tmp1 = ""
tmp1 = gid
Else
tmp1$ = tmp1 + " " + gid
EndIf
Next
For g.gad = Each gad
If gid > max Then max = gid
Next
tmp1 = tmp1 + Chr(31) + Chr(31) + "Free:"
For i = form + 1 To max
free = GetFreeID(i)
If free = i
tmp1 = tmp1 + " " + i
EndIf
Next
If Right(tmp1, 1) = ":" Then tmp1 = tmp1 + " (none)"
MsgBox(tmp1, 0, "Info...")
ElseIf KeyHit(15) ;Tab
If act <> 0
g.gad = GetGad(act)
If KeyDown(42) ;Lshift previous gad
If g = First gad
g = Last gad
Else
g = Before g
EndIf
Else ;next gad
If g = Last gad
g = First gad
Else
g = After g
EndIf
EndIf
act = gid
Else
If KeyDown(42)
g = Last gad
Else
g = First gad
EndIf
If g <> Null
act = gid
Else
act = 0
EndIf
EndIf
FillCtrl()
ElseIf gadsel = 42 Or gadsel = 43 Or gadsel = 44 ;load image
tmp1 = gadsel
waitformouse()
If act <> 0 Or tmp1 = 42
gui_filter(0) = ".bmp"
gui_filter(1) = ".jpg"
tmp2$ = gui_filerequestor("Load image...", dir_img, "", GraphicsWidth()/2 - 225, GraphicsHeight()/2 - 160)
FlushMouse()
Else
Return
EndIf
If act <> 0
g.gad = GetGad(act)
If tmp1 = 42 ;normalimg
g
i = tmp2
ElseIf tmp1 = 43 ;overimg
goi = tmp2
ElseIf tmp1 = 44 ;downimg
gdi = tmp2
EndIf
UpdImages(g)
ElseIf tmp1 = 42
formimg = tmp2
UpdImages(Null)
EndIf
;checkout path...
If tmp2 <> ""
For position = Len(tmp2) - 1 To 1 Step - 1
If Mid(tmp2, position, 1) = ""
path$ = Left(tmp2, position)
Exit
EndIf
Next
dir_img = path
EndIf
gui_redrawwindow(form)
FillCtrl()
ElseIf act <> 0 And (gadsel = 45 Or gadsel = 46) ;load sound
waitformouse()
tmp1 = gadsel
gui_filter(0) = ".wav"
tmp2$ = gui_filerequestor("Load sound...", dir_snd, "", GraphicsWidth()/2 - 225, GraphicsHeight()/2 - 160)
FlushMouse()
g.gad = GetGad(act)
If tmp1 = 45 ;oversnd
gos = tmp2
ElseIf tmp1 = 46 ;downsnd
gds = tmp2
EndIf
If tmp2 <> ""
For position = Len(tmp2) - 1 To 1 Step - 1
If Mid(tmp2, position, 1) = ""
path$ = Left(tmp2, position)
Exit
EndIf
Next
dir_snd = path
EndIf
UpdSounds(g)
FillCtrl()
ElseIf gadsel = 3 ;align left/center/right (right needs fix in quickgui)
If act > 0
align = GetAlign(act)
align = align + 1
If align > 2 Then align = 0
gui_settext(act, gui_gettext(act), align)
Else
align = GetAlign(form)
align = align + 1
If align > 2 Then align = 0
SetWinText(form, gui_gettext(2), align)
EndIf
gui_redrawwindow(form)
FillCtrl()
waitformouse()
;gad-modes (left out 128)
ElseIf gadsel = 5 And act > 0 ;2
g.gad = GetGad(act)
If gui_gettype(5) = 15
gui_settypes(5, 16)
g
oclick = True
Else
gui_settypes(5, 15)
g
oclick = False
EndIf
ApplyAll()
waitformouse()
ElseIf gadsel = 6 And act > 0 ;4
mode = gui_getmode(act)
If gui_gettype(6) = 15
gui_settypes(6, 16)
If Not(mode And 4) Then mode = mode + 4
Else
gui_settypes(6, 15)
If mode And 4 Then mode = mode - 4
EndIf
gui_setmode(act, mode)
ApplyAll()
waitformouse()
ElseIf gadsel = 7 And act > 0 ;8
g.gad = GetGad(act)
If gui_gettype(7) = 15
gui_settypes(7, 16)
gightclick = True
Else
gui_settypes(7, 15)
gightclick = False
EndIf
ApplyAll()
waitformouse()
ElseIf gadsel = 8 And act > 0 ;16
mode = gui_getmode(act)
If gui_gettype(
= 15
gui_settypes(8, 16)
If Not(mode And 16) Then mode = mode + 16
Else
gui_settypes(8, 15)
If mode And 16 Then mode = mode - 16
EndIf
gui_setmode(act, mode)
ApplyAll()
waitformouse()
ElseIf gadsel = 9 And act > 0 ;32
mode = gui_getmode(act)
If gui_gettype(9) = 15
gui_settypes(9, 16)
If Not(mode And 32) Then mode = mode + 32
Else
gui_settypes(9, 15)
If mode And 32 Then mode = mode - 32
EndIf
gui_setmode(act, mode)
ApplyAll()
waitformouse()
ElseIf gadsel = 10 And act > 0 ;64
mode = gui_getmode(act)
If gui_gettype(10) = 15
gui_settypes(10, 16)
If Not(mode And 64) Then mode = mode + 64
Else
gui_settypes(10, 15)
If mode And 64 Then mode = mode - 64
EndIf
gui_setmode(act, mode)
ApplyAll()
waitformouse()
ElseIf gadsel = 11 And act > 0 ;256
g.gad = GetGad(act)
If gui_gettype(11) = 15
gui_settypes(11, 16)
ginputgadget = True
Else
gui_settypes(11, 15)
ginputgadget = False
EndIf
ApplyAll()
waitformouse()
ElseIf KeyHit(18) And (KeyDown(29) Or KeyDown(157)) Or gadsel = 53 ;ctrl-e
waitformouse()
export()
ElseIf gadsel = 60 ;sample app code
waitformouse()
gui_settypes(60, 14)
gui_settypes(64, 13)
If exp_modal
gui_settypes(65, 16)
Else
gui_settypes(65, 15)
EndIf
If exp_gadselect = 0
gui_settypes(61, 14)
ElseIf exp_gadselect = 1
gui_settypes(62, 14)
Else
gui_settypes(63, 14)
EndIf
exp_fulapp = True
gui_redrawwindow(1)
ElseIf gadsel = 64 ;no app code
waitformouse()
gui_settypes(64, 14)
gui_settypes(60, 13)
gui_settypes(61, 13)
gui_settypes(62, 13)
gui_settypes(63, 13)
gui_settypes(65, 15)
exp_fulapp = False
gui_redrawwindow(1)
ElseIf gadsel = 61 ;no selector
waitformouse()
gui_settypes(60, 14)
gui_settypes(64, 13)
gui_settypes(61, 14)
gui_settypes(62, 13)
gui_settypes(63, 13)
If exp_modal
gui_settypes(65, 16)
Else
gui_settypes(65, 15)
EndIf
exp_gadselect = 0
exp_fulapp = True
gui_redrawwindow(1)
ElseIf gadsel = 62 ;select/case
waitformouse()
gui_settypes(60, 14)
gui_settypes(64, 13)
gui_settypes(61, 13)
gui_settypes(62, 14)
gui_settypes(63, 13)
If exp_modal
gui_settypes(65, 16)
Else
gui_settypes(65, 15)
EndIf
exp_gadselect = 1
exp_fulapp = True
gui_redrawwindow(1)
ElseIf gadsel = 63 ;if/then/else
waitformouse()
gui_settypes(60, 14)
gui_settypes(64, 13)
gui_settypes(61, 13)
gui_settypes(62, 13)
gui_settypes(63, 14)
If exp_modal
gui_settypes(65, 16)
Else
gui_settypes(65, 15)
EndIf
exp_gadselect = 2
exp_fulapp = True
gui_redrawwindow(1)
ElseIf gadsel = 65 ;modal
waitformouse()
If gui_gettype(65) = 15
gui_settypes(65, 16)
gui_settypes(60, 14)
gui_settypes(64, 13)
If exp_gadselect = 0
gui_settypes(61, 14)
ElseIf exp_gadselect = 1
gui_settypes(62, 14)
Else
gui_settypes(63, 14)
EndIf
exp_fulapp = True
exp_modal = True
Else
gui_settypes(65, 15)
exp_modal = False
EndIf
gui_redrawwindow(1)
ElseIf gadsel = 59 ;long IDs, export only
waitformouse()
If gui_gettype(59) = 15
gui_settypes(59, 16)
Else
gui_settypes(59, 15)
EndIf
gui_redrawwindow(1)
ElseIf gadsel = 32 ;slidergad
FlushKeys
If act
g.gad = GetGad(act)
waitformouse()
If gcontainer_for <> 0
g2.gad = GetGad(gcontainer_for)
MsgBox("Gadget " + act + " is already a container for " + g2id, 0, "Make slider gadget...")
Return
EndIf
If gui_gettype(32) = 15
gui_settypes(32, 16)
If Not(gui_getmode(34) And 2048)
gui_setmode(34, gui_getmode(34) + 2048) ;container-ID
gui_textcursorpos = 0
gui_settext(34, "")
EndIf
Else
If gslider_in <> 0
g2.gad = GetGad(gslider_in)
g2container_for = 0
EndIf
gslider_in = 0
gvertical = False
gui_settext(34, "")
gui_settypes(32, 15)
gui_settext(33, "")
EndIf
gui_redrawwindow(1)
EndIf
ElseIf gadsel = 33 ;vert/horiz slider
If act
g.gad = GetGad(act)
waitformouse()
If gslider_in
If gui_gettext(33) = "vertical"
gui_settext(33, "horizontal")
gvertical = False
Else
gui_settext(33, "vertical")
gvertical = True
EndIf
Else
gui_settext(33, "")
EndIf
gui_redrawwindow(1)
EndIf
ElseIf gadsel = 68
waitformouse()
If cyclic_ids ;starting at form + 1, no gaps in between, e.g. 2001-2002-2003
cyclic_ids = False
gui_settypes(68, 15)
Else ;noncyclic=IDs only have to be unique, e.g. 2002-2007-2011
retval = MsgBox("Activating cyclic ID-handling will line up gadget IDs with no gaps in between. " + Chr(31) + "Continue?", 1, "Make IDs cyclic...")
If retval = 1
cyclic_ids = True
gui_settypes(68, 16)
SortIDs()
EndIf
EndIf
gui_redrawwindow(1)
ElseIf KeyHit(21) And (KeyDown(29) Or KeyDown(157)) Or gadsel = 69 ;ctrl-z reload
waitformouse()
LoadForm(frmfile)
EndIf
End Function
Function GetWinText$(name)
For w.gui_gadget = Each gui_gadget
If wwindownum = name And w
um = 0
Return w extstr$
EndIf
Next
End Function
Function GetWinType(name)
For w.gui_gadget = Each gui_gadget
If w
um = 0 And wwindownum = name
Return w yp
EndIf
Next
End Function
Function LoadForm(fn$)
If fn <> "tempfile" Then frmfile = fn
If FileType(dir_open + fn) = 0
CtrlWin()
Return
EndIf
For g.gad = Each gad
FreeImage g
ih
FreeImage goih
FreeImage gdih
FreeSound gosh
FreeSound gdsh
Delete g
Next
gui_freewindow(form)
act = 0
file = ReadFile(dir_open + fn)
While Not Eof(file)
zeile$ = ReadLine(file)
separatorposition = Instr(zeile, "=")
wert$ = Mid(zeile, separatorposition + 1, -1)
Select Trim(Mid(zeile, 1, separatorposition - 1))
Case "cyclic_ids"
cyclic_ids = wert
Case "ctrlpos"
ctrlpos = wert
Case "form"
form = wert
If form < 100 Then form = 100
Case "w_x"
w_x = wert
Case "w_y"
w_y = wert
Case "w_width"
w_width = wert
Case "w_height"
w_height = wert
Case "w_type"
w_type = wert
gui_makewindow(form, w_width, w_height, 0, w_type)
Case "w_img"
formimg = wert
If formimg <> "" Then UpdImages(Null)
Case "w_text"
txt$ = wert
Case "w_align"
align = wert
SetWinText(form, txt, align)
Case "gadget"
id = wert
Case "noclick"
noclick = wert
Case "rightclick"
rightclick = wert
Case "inputgadget"
inputgadget = wert
Case "slider_in"
slider_in = wert
Case "vertical"
vertical = wert
Case "x"
x = wert
Case "y"
y = wert
Case "width"
width = wert
Case "height"
height = wert
Case "mode"
mode = wert
Case "nt"
nt = wert
Case "ot"
ot = wert
Case "dt"
dt = wert
Case "text"
txt$ = wert
Case "align"
align = wert
Case "ni"
ni$ = wert
If ni <> "" And Instr(ni, "") = 0 Then ni = dir_app + ni
Case "oi"
oi$ = wert
If oi <> "" And Instr(oi, "") = 0 Then oi = dir_app + oi
Case "di"
di$ = wert
If di <> "" And Instr(di, "") = 0 Then di = dir_app + di
Case "os"
os$ = wert
If os <> "" And Instr(os, "") = 0 Then os = dir_app + os
Case "ds"
ds$ = wert
If ds <> "" And Instr(ds, "") = 0 Then ds = dir_app + ds
gui_makegadget(form, id, x, y, width, height, mode, nt, txt, align)
gui_settypes(id, nt, ot, dt)
g.gad = New gad
g
oclick = noclick
gightclick = rightclick
ginputgadget = inputgadget
gslider_in = slider_in
gvertical = vertical
gid = id
g
i = ni
goi = oi
gdi = di
gos = os
gds = ds
If g
i <> "" Or goi <> "" Or gdi <> "" Then UpdImages(g)
If gos <> "" Or gds <> "" Then UpdSounds(g)
End Select
Wend
gui_drawwindow(form, w_x, w_y)
CloseFile(file)
For g.gad = Each gad
If gslider_in
tmpgad.gad = GetGad(gslider_in)
tmpgad
oclick = True
tmpgadcontainer_for = gid
EndIf
Next
CtrlWin()
AppTitle frmfile + " - VisualB"
End Function
Function LoadINI()
If FileType(dir_app + "visualb.ini") = 0
firststart = True
file = WriteFile(dir_app + "visualb.ini") ;new ini
WriteLine(file, "dir_app=" + dir_app)
WriteLine(file, "dir_open=" + dir_app)
WriteLine(file, "dir_img=" + dir_img)
WriteLine(file, "dir_snd=" + dir_snd)
WriteLine(file, "exp_fulapp=" + exp_fulapp)
WriteLine(file, "exp_modal=" + exp_modal)
WriteLine(file, "exp_gadselect=" + exp_gadselect)
WriteLine(file, "fatmark=" + fatmark)
WriteLine(file, "lastform=")
CloseFile(file)
EndIf
file = ReadFile(dir_app + "visualb.ini")
While Not Eof(file)
zeile$ = ReadLine(file)
separator = Instr(zeile, "=")
Wert$ = Mid(zeile, separator + 1, -1)
Select Trim(Mid(zeile, 1, separator - 1))
Case "dir_app"
dir_app = wert
Case "dir_open"
dir_open = wert
Case "dir_img"
dir_img = wert
Case "dir_snd"
dir_snd = wert
Case "exp_fulapp"
exp_fulapp = wert
Case "exp_modal"
exp_modal = wert
Case "exp_gadselect"
exp_gadselect = wert
Case "fatmark"
fatmark = wert
Case "lastform"
If wert = "" Or FileType(dir_open + wert) = 0
frmfile = "unnamed"
form = 100
gui_makewindow(form, 400, 300, 0, 1)
gui_drawwindow(form, 260, 60)
act = 0
FillCtrl()
Else
frmfile = wert
EndIf
End Select
Wend
CloseFile(file)
LoadForm(frmfile)
Return firststart
End Function
Function MsgBox$(msg$, typ=0, title$="Message")
;types 0=Ok, 1=Ok/Cancel, 2=Yes/No/Cancel
If gui_Gethandle(1000) Then gui_freewindow(1000)
;limit title
If Len(title) > 150 Then title = Left(title, 140) + "..."
;min width
If typ = 1
If width < 210 Then width = 210
ElseIf typ = 2
If width < 310 Then width = 310
Else
If width < 100 Then width = 100
EndIf
;temp subdiv
originalmsg$ = msg
j = 1
pos = Instr(msg, Chr(31))
While pos
While pos > 150
For i = 150 To 1 Step -1
pos = Instr(msg, " ", i)
If pos < 150 Then Exit
Next
tmp$ = Left(msg, pos)
If width < StringWidth(tmp) Then width = StringWidth(tmp)
msg = Right(msg, Len(msg) - pos)
pos = Instr(msg, Chr(31))
j = j + 1
Wend
tmp = Left(msg, pos - 1)
If width < StringWidth(tmp) Then width = StringWidth(tmp)
msg = Right(msg, Len(msg) - pos)
pos = Instr(msg, Chr(31))
j = j + 1
Wend
If msg <> ""
While Len(msg) > 150
For i = 150 To 1 Step -1
pos = Instr(msg, " ", i)
If pos < 150 Then Exit
Next
tmp = Left(msg, pos)
If width < StringWidth(tmp) Then width = StringWidth(tmp)
msg = Right(msg, Len(msg) - pos)
j = j + 1
Wend
If msg <> ""
If width < StringWidth(msg) Then width = StringWidth(msg)
EndIf
EndIf
If width < StringWidth(title) Then width = StringWidth(title)
If width > GraphicsWidth() * .78 Then width = GraphicsWidth() * .78
height = j * StringHeight(tmp) * 1.5 + 65
gui_makewindow(1000, width + 16, height, 0, 1)
gui_makegadget(1000, 1001, 2, 2, width + 13, 18, 7, 7, title, 1)
gui_settypes(1001, 7, 0, 0)
If typ = 0
gui_makegadget(1000, 1003, width/2 - 35, height - 30, 82, 20, 1, 1, "Ok", 0)
gui_settypes(1003, 1, 0, 0)
ElseIf typ = 1
gui_makegadget(1000, 1003, width/2 - 80, height - 30, 82, 20, 1, 1, "Ok", 0)
gui_settypes(1003, 1, 0, 0)
gui_makegadget(1000, 1004, width/2 + 15, height - 30, 82, 20, 1, 1, "Cancel", 0)
gui_settypes(1004, 1, 0, 0)
Else
gui_makegadget(1000, 1003, width/2 - 130, height - 30, 82, 20, 1, 1, "Yes", 0)
gui_settypes(1003, 1, 0, 0)
gui_makegadget(1000, 1005, width/2 - 33, height - 30, 82, 20, 1, 1, "No", 0)
gui_settypes(1005, 1, 0, 0)
gui_makegadget(1000, 1004, width/2 + 65, height - 30, 82, 20, 1, 1, "Cancel", 0)
gui_settypes(1004, 1, 0, 0)
EndIf
;actual subdiv
msg = originalmsg
j = 1
pos = Instr(msg, Chr(31))
While pos
While pos > 150
For i = 150 To 1 Step -1
pos = Instr(msg, " ", i)
If pos < 150 Then Exit
Next
tmp = Left(msg, pos)
gui_makegadget(1000, 1010 + j, 4, 10 + j * 15, width + 10, 15, 7, 8, tmp, 1)
msg = Right(msg, Len(msg) - pos)
pos = Instr(msg, Chr(31))
j = j + 1
Wend
tmp = Left(msg, pos - 1)
gui_makegadget(1000, 1010 + j, 4, 10 + j * 15, width + 10, 15, 7, 8, tmp, 1)
msg = Right(msg, Len(msg) - pos)
pos = Instr(msg, Chr(31))
j = j + 1
Wend
If msg <> ""
While Len(msg) > 150
For i = 150 To 1 Step -1
pos = Instr(msg, " ", i)
If pos < 150 Then Exit
Next
tmp = Left(msg, pos)
gui_makegadget(1000, 1010 + j, 4, 10 + j * 15, width + 10, 15, 7, 8, tmp, 1)
msg = Right(msg, Len(msg) - pos)
j = j + 1
Wend
If msg <> ""
gui_makegadget(1000, 1010 + j, 4, 10 + j * 15, width + 10, 15, 7, 8, msg, 1)
EndIf
EndIf
gui_drawwindow(1000, GraphicsWidth()/2 - width/2, GraphicsHeight()/2 - height/2)
Repeat
Cls
gadsel = gui_update(1000)
Flip
If gadsel=1003 Or gadsel=1004 Or gadsel=1005 Or KeyHit(28) Or KeyHit(1)
FlushKeys
FlushMouse
waitformouse
gui_freewindow(1000)
If gadsel = 1003 Or KeyDown(28) ;ok-yes-ENTER
Return 1
ElseIf gadsel = 1004 Or KeyDown(1) ;cancel-ESC
Return 0
ElseIf gadsel = 1005 ;no
Return 2
EndIf
EndIf
Forever
End Function
Function SaveForm(fn$)
If fn <> "tempfile" Then frmfile = fn
file = WriteFile(dir_open + fn)
WriteLine(file, "cyclic_ids=" + cyclic_ids)
WriteLine(file, "ctrlpos=" + ctrlpos)
WriteLine(file, "form=" + form)
WriteLine(file, "w_x=" + gui_getwinx(form))
WriteLine(file, "w_y=" + gui_getwiny(form))
WriteLine(file, "w_width=" + gui_getwinw(form))
WriteLine(file, "w_height=" + gui_getwinh(form))
WriteLine(file, "w_type=" + GetWinType(form))
WriteLine(file, "w_img=" + formimg)
WriteLine(file, "w_text=" + GetWinText(form))
WriteLine(file, "w_align=" + GetAlign(form))
For g.gad = Each gad
WriteLine(file, "gadget=" + gid)
WriteLine(file, "noclick=" + g
oclick)
WriteLine(file, "rightclick=" + gightclick)
WriteLine(file, "inputgadget=" + ginputgadget)
WriteLine(file, "slider_in=" + gslider_in)
WriteLine(file, "vertical=" + gvertical)
WriteLine(file, "x=" + gui_getx(gid))
WriteLine(file, "y=" + gui_gety(gid))
WriteLine(file, "width=" + gui_getw(gid))
WriteLine(file, "height=" + gui_geth(gid))
WriteLine(file, "mode=" + gui_getmode(gid))
WriteLine(file, "nt=" + gui_gettype(gid))
WriteLine(file, "ot=" + GetOverType(gid))
WriteLine(file, "dt=" + GetDownType(gid))
WriteLine(file, "text=" + gui_gettext(gid))
WriteLine(file, "align=" + GetAlign(gid))
WriteLine(file, "ni=" + g
i)
WriteLine(file, "oi=" + goi)
WriteLine(file, "di=" + gdi)
WriteLine(file, "os=" + gos)
WriteLine(file, "ds=" + gds)
Next
CloseFile(file)
AppTitle frmfile + " - VisualB"
gui_settext(57, frmfile, 1)
gui_redrawwindow(1)
End Function
Function SaveINI()
file = WriteFile(dir_app + "visualb.ini")
WriteLine(file, "dir_app=" + dir_app)
WriteLine(file, "dir_open=" + dir_open)
WriteLine(file, "dir_img=" + dir_img)
WriteLine(file, "dir_snd=" + dir_snd)
WriteLine(file, "exp_fulapp=" + exp_fulapp)
WriteLine(file, "exp_modal=" + exp_modal)
WriteLine(file, "exp_gadselect=" + exp_gadselect)
WriteLine(file, "fatmark=" + fatmark)
If frmfile = "unnamed"
WriteLine(file, "lastform=")
Else
WriteLine(file, "lastform=" + frmfile)
EndIf
CloseFile(file)
End Function
Function SetFormID(nf)
;1000 used for MsgBox, 1-99 for CtrlWin
If nf = 1000 Or nf = 1001 Or nf < 100
MsgBox(nf + " can't be used as new form ID. Values < 100, and 1000/1001 are reserved. Going back to " + form, 0, "Change form ID...")
nf = form
EndIf
act = 0
For g.gad = Each gad
oldid = gid ;save old ID
gid = gid - form ;remove form-offset
gid = gid + nf ;add new form-offset
;ch
