winblitz3D ListView
Blitz3D Forums/Blitz3D Programming/winblitz3D ListView
| ||
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 |
| ||
Contact Kev at http://www.winblitz3d.co.uk/forum/ |
| ||
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 |
| ||
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 |