Anyone made a MaxGUI form generator?

BlitzMax Forums/BlitzMax Programming/Anyone made a MaxGUI form generator?

Chroma

(Posted 2005) [#1]

Just wondering if anyone had made or started a MaxGUI form generator that creates source code. That would be the bomb!

EOF	(Posted 2005) [#2]

http://members.home.nl/wdw/guide

Beaker

(Posted 2005) [#3]

GUIde is great.

bradford6

(Posted 2005) [#4]

'GUIde 1.4 BlitzMAX export
Global EditWindow:TGadget=CreateWindow("5 minute GUIDE Browser",0,00,706,580,0,3)
	Global HTML_VIEW:TGadget=CreateHTMLView(8,160,680,376,EditWindow)
		HtmlViewGo HTML_VIEW,"http://www.playerfactory.co.uk/"
	SetGadgetLayout HTML_VIEW,1,1,1,1
	Global teaTextArea0:TGadget=CreateTextArea(8,48,128,104,EditWindow,0)
	SetGadgetText teaTextArea0,"This demo was made in~n 5 minutes using GUIDE"
	SetTextAreaColor teaTextArea0,255,255,255,1
	SetTextAreaColor teaTextArea0,0,0,0,0
	SetGadgetLayout teaTextArea0,1,0,1,0
	Global urlarea:TGadget=CreateTextArea(144,128,432,24,EditWindow,0)
	SetGadgetText urlarea,"url"
	SetTextAreaColor urlarea,255,255,255,1
	SetTextAreaColor urlarea,0,0,0,0
	SetGadgetLayout urlarea,1,0,1,0
	Global back:TGadget=CreateButton("BACK",456,56,64,24,EditWindow,1)
	SetGadgetLayout back,1,0,1,0
	Global fwd:TGadget=CreateButton("forward",536,56,64,24,EditWindow,1)
	SetGadgetLayout fwd,1,0,1,0



SetGadgetFilter urlarea,filter

'-mainloop--------------------------------------------------------------

Repeat
	Select WaitEvent()
		Case EVENT_GADGETACTION						' interacted with gadget
			DoGadgetAction(EventSource())
		Case EVENT_GADGETDONE
			SetGadgetText urlarea,HtmlViewCurrentURL$( HTML_VIEW )

		Case EVENT_WINDOWCLOSE						' close gadget
			Exit
	End Select
Forever


'-gadget actions--------------------------------------------------------

Function DoGadgetAction( gadget:Object )
	Select gadget
		Case back	' user pressed button
			HtmlViewBack( HTML_VIEW )
		Case fwd	' user pressed button
			HtmlViewForward( HTML_VIEW )

	End Select
End Function



Function filter(event:TEvent,context:Object)
	Select event.id
		Case EVENT_KEYDOWN
			If event.data=13 
				HtmlViewGo( HTML_VIEW,TextAreaText(urlarea)	)
				Return 0
			EndIf
		
	End Select
	Return 1
End Function