NewsForumsCodeLogsGallerySpecsSearch

winblitz3D ListView

Blitz3D Forums/Blitz3D Programming/winblitz3D ListView

Nack(Posted 2008) [#1]
I was just messing around with winblitz3D and I tried to test out the listview gadget. I allow it to have Editable Labels. I can edit the items, however the changes doesn't stay. It just revert back to before. Wonder if anyone know what I am doing wrong.

Made with SCHNOK.
Include "WB3DStyles.bb"

;| SCHNOK! generated file
;|
;| created: 06 Mar 2008 at 22:07:41
;|
;| note:    test
;|

;gadget globals
Global win1
Global lview1

;fonts
Global gui_Project1_font1 = WB3D_OpenFont("Arial",14,0,0,0,0)
Global gui_Project1_default_font = gui_Project1_font1


;----------------------------------------------------------------------------------------
;init
Graphics3D 800,600,0,3
SetBuffer Backbuffer()
Cls


;init WinBlitz3D runtimewindow
Project1 = WB3D_InitializeGUI(SystemProperty("AppHwnd"),0,0,800,600)
WB3D_SetGadgetText Project1, "Test"
WB3D_SetQuitMessage "Test","Sure to Quit?"


;create window(s)
gui_create_win1( 50,55, Project1 )

;reveal gui
WB3D_ShowGadget Project1


;main loop
While Not KeyDown(1)

	event = WB3D_WaitEvent()

	Select event
		Case WB3D_EVENT_KEYPRESS

		Case WB3D_EVENT_MOUSEWHEEL
			;wheelmove will be < 0 when scrolled backwards or > 0 when scrolled forwards
			wheelmove =	WB3D_EventData()

		Case WB3D_EVENT_GADGET

			Select WB3D_EventSource()
				Case lview1

			End Select

		Case WB3D_EVENT_MENU
		Case WB3D_EVENT_WINDOW_CLOSE
		Case WB3D_EVENT_WINDOW_SIZE
		Case WB3D_EVENT_WINDOW_SIZEING
		Case WB3D_EVENT_WINDOW_MOVE
		Case WB3D_EVENT_WINDOW_MOVING
	End Select

Wend

;release & exit
WB3D_EndGUI()
EndGraphics()
End

;----------------------------------------------------------------------------------------

Function gui_create_win1( x, y, parent)

	win1 = WB3D_CreateWindow("New Window",x,y,327,293,parent,-2133917696)
	WB3D_Usefont win1, gui_Project1_default_font

	lview1 = WB3D_CreateListview(10,5,150,100,win1,1149240069)
	WB3D_AddListViewColumn lview1,0,"Column1",53
	WB3D_AddListViewColumn lview1,1,"Column2",93
	
	WB3D_AddListViewItem(lview1,0,0,"item1",0)
	WB3D_Usefont lview1, gui_Project1_default_font

End Function



John Blackledge(Posted 2008) [#2]
Contact Kev at http://www.winblitz3d.co.uk/forum/


Kev(Posted 2008) [#3]
cheers john, note thought winblitz3d's website/support forum is longer available.

@Nack. will send you an example that was used for beta testing winblitz3d, it contains the code to modify editable listview item labels.

kev


Nack(Posted 2008) [#4]
Yea i tried to see the forum, but it was down =[
Oh thanks kev!! I will take a look at it!

EDIT:
I got it!! just in case anyone else run into same problem. Here is what i did after looking at kev's code:
Include "WB3DStyles.bb"

;| SCHNOK! generated file
;|
;| created: 06 Mar 2008 at 22:07:41
;|
;| note:    test
;|

;gadget globals
Global win1
Global lview1

;fonts
Global gui_Project1_font1 = WB3D_OpenFont("Arial",14,0,0,0,0)
Global gui_Project1_default_font = gui_Project1_font1


;----------------------------------------------------------------------------------------
;init
Graphics3D 800,600,0,3
SetBuffer Backbuffer()
Cls


;init WinBlitz3D runtimewindow
Project1 = WB3D_InitializeGUI(SystemProperty("AppHwnd"),0,0,800,600)
WB3D_SetGadgetText Project1, "Test"
WB3D_SetQuitMessage "Test","Sure to Quit?"


;create window(s)
gui_create_win1( 50,55, Project1 )

;reveal gui
WB3D_ShowGadget Project1


;main loop
While Not KeyDown(1)

	event = WB3D_WaitEvent()

	Select event
		Case WB3D_EVENT_KEYPRESS

		Case WB3D_EVENT_MOUSEWHEEL
			;wheelmove will be < 0 when scrolled backwards or > 0 when scrolled forwards
			wheelmove =	WB3D_EventData()

		Case WB3D_EVENT_GADGET

			Select WB3D_EventSource()
				Case lview1
				
					If WB3D_EventEdited() <> 0 Then

						If WB3D_GetEditedLabel() <> "" Then
						
							WB3D_SetListviewColumnItem lview1,0,WB3D_GetEditedLabelIndex(),WB3D_GetEditedLabel()
							

						EndIf
					EndIf

			End Select

		Case WB3D_EVENT_MENU
		Case WB3D_EVENT_WINDOW_CLOSE
		Case WB3D_EVENT_WINDOW_SIZE
		Case WB3D_EVENT_WINDOW_SIZEING
		Case WB3D_EVENT_WINDOW_MOVE
		Case WB3D_EVENT_WINDOW_MOVING
	End Select

Wend

;release & exit
WB3D_EndGUI()
EndGraphics()
End

;----------------------------------------------------------------------------------------

Function gui_create_win1( x, y, parent)

	win1 = WB3D_CreateWindow("New Window",x,y,327,293,parent,-2133917696)
	WB3D_Usefont win1, gui_Project1_default_font

	lview1 = WB3D_CreateListview(10,5,150,100,win1,1149240069)
	WB3D_AddListViewColumn lview1,0,"Column1",53
	WB3D_AddListViewColumn lview1,1,"Column2",93
	
	WB3D_AddListViewItem(lview1,loop,loop1,"Column "+loop+" , Item "+loop1,0)
	WB3D_AddListViewItem(lview1,loop,loop1,"Column "+loop+" , Item 1",0)
	WB3D_Usefont lview1, gui_Project1_default_font

End Function


cheers