New WinBlitz3D beta

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Picklesworth

Okay, that works nicely, thanks. However, the program still closes even if the secondary window is closed. I guess you'll fix that later?

It's so fun to have new functions to play with :D

Include "WinBlitz3D_Include.bb"

; create gui window.
Global GUIwindow = CreateWindow("Main window",0,0,1024,768,0,0)
Global GUIwindow2 = CreateWindow("Secondary window",612,530,400,200,0,0)
apiSetParent GUIwindow2,GUIwindow

Global Lable = CreateLabel("",0,0,256,25,GUIwindow2)

Global listview = CreateListView("listview",30,30,300,150,GUIwindow2,0)
ListViewStyle(listview,0)

For add_listview_items = 0 To 4
	AddListViewColumn(listview,add_listview_items,"Column "+add_listview_items)
Next

For loop = 0 To 4
	For loop1 = 0 To 10
		AddListViewItem(listview,loop,loop1,"Column "+loop+" , Item "+loop1)
	Next
Next

; loop until user close's window.
While events <> $803

	events = WaitEvent()
	
	Select events

		Case $1001
			MenuSelected = EventData()
			Notify "Menu Event, You Selected Menu "+MenuSelected
				
		Case $401
			GadgetSelected = EventSource()
			Notify "Gadget Event, Pointer "+GadgetSelected	
	
	End Select
			
Wend
Notify "UnInitializing GUI"
End