Problem with tabs?

Blitz3D Forums/Blitz3D Programming/Problem with tabs?

Guy Fawkes (Posted 2014) [#1]

Hi all. As you may or may not know, I am currently working on my project, and I ran into a small snag. This one is a WinBlitz3D V.1.1 glitch. (At least I think it's a glitch). Anyway, I have uploaded to mediafire, all the files needed to compile this test (which are not alot, btw). I did NOT include an EXE file as to not set off any possible false positives in virus scanners. I have only included the source files which compile easily. So my problem now is this. How can I completely stop the flickering of the text field gadget when it is being updated, and how can I make it so that even though it's still automatically grabbing my camera's X/Y/Z position / rotation, it will still allow me to switch between tabs while constantly updating in the background? Here's the main source code... tabbertest.bb: AppTitle "Tabbers Test" Include "Key_Consts.bb" Include "WB3DStyles.bb" Graphics3D 800, 600, 0, 2 SetBuffer BackBuffer() SeedRnd MilliSecs() Global cam = CreateCamera() PositionEntity(cam, 0, 1, 0) CameraRange cam, 0.01, 50000.0 AmbientLight 255, 255, 255 CameraFogMode(cam, 1) CameraFogColor(cam, 51, 51, 127) CameraFogRange(cam, 10, 250) Global sky = CreateCube() EntityColor sky, 51, 51, 127 ScaleEntity sky, 10000, 10000, 10000 EntityFX sky, 1 FlipMesh sky Global ground = CreatePlane() EntityColor ground, 0, 64, 0 Global max_dummies = 99 Dim dummy(max_dummies) For x = 0 To max_dummies dummy(x) = CreateCube() old_dummy = dummy(x) PositionEntity dummy(x), Rand(-100, 100), 1, Rand(-250, 500) ScaleEntity dummy(x), Rand(1, 7), Rand(3, 9), Rand(5, 11), 1 RotateEntity dummy(x), Rand(0, 180), Rand(0, 360), Rand(0, 360) EntityColor dummy(x), Rand(0, 255), Rand(0, 255), Rand(0, 255) EntityAlpha dummy(x), Rand(0.25, 1.0) EntityFX(dummy(x), 1+16+32) EntityAutoFade(dummy(x), 100, 250) dist# = EntityDistance#(dummy(x), old_dummy) dist2# = EntityDistance#(old_dummy, dummy(x)) If dist# <= 3 Or dist2# <= 3 PositionEntity dummy(x), Rand(-200, 200), 1, Rand(-500, 1000) EndIf Next Global QUIT = 0 Global movespeed# Global turnspeed# Global move_speed# = 0.1 Global turn_speed# = -1.0 Global double_move_speed# = 3.0 Global double_turn_speed# = -1.0 Global sys_metrics_x = (api_GetSystemMetrics(0)) Global sys_metrics_y = (api_GetSystemMetrics(1)) Global winwidth = (GraphicsWidth()/4) Global winheight = (GraphicsHeight()-10) Global win_pos_x = (sys_metrics_x/2-GraphicsWidth()/2) Global win_pos_y = (sys_metrics_y/2-GraphicsHeight()/2) Global RuntimeWindow_hWnd = WB3D_InitializeGUI(SystemProperty("AppHwnd"), win_pos_x, win_pos_y, GraphicsWidth(), GraphicsHeight()) Global max_tabs = 3 Dim tab_panels(max_tabs) Global tabber = WB3D_CreateTabber(0, 0, winwidth, winheight, RuntimeWindow_hWnd, 0) For loop = 0 To max_tabs WB3D_AddGadgetItem tabber,"Tab "+loop,0,0 tab_panels(loop) = WB3D_CreateTabberPanel(0, 30, WB3D_GadgetWidth(tabber)-30, WB3D_GadgetHeight(tabber)-40, tabber) WB3D_HideGadget tab_panels(loop) Next Global txt_0_label = WB3D_CreateLabel("X:", 10, 11, 15, 20, tab_panels(0), WS_CHILD Or WS_VISIBLE Or SS_LEFT) Global txt_1_label = WB3D_CreateLabel("Y:", 10, 51, 15, 20, tab_panels(0), WS_CHILD Or WS_VISIBLE Or SS_LEFT) Global txt_2_label = WB3D_CreateLabel("Z:", 10, 91, 15, 20, tab_panels(0), WS_CHILD Or WS_VISIBLE Or SS_LEFT) Global txt_0 = WB3D_CreateEditField("", 50, 10, 125, 20, tab_panels(0), WS_CHILD Or WS_VISIBLE Or SS_LEFT Or ES_READONLY, 0) Global txt_1 = WB3D_CreateEditField("", 50, 50, 125, 20, tab_panels(0), WS_CHILD Or WS_VISIBLE Or SS_LEFT Or ES_READONLY, 0) Global txt_2 = WB3D_CreateEditField("", 50, 90, 125, 20, tab_panels(0), WS_CHILD Or WS_VISIBLE Or SS_LEFT Or ES_READONLY, 0) Global txt_3_label = WB3D_CreateLabel("Pitch:", 10, 11, 50, 20, tab_panels(1), WS_CHILD Or WS_VISIBLE Or SS_LEFT) Global txt_4_label = WB3D_CreateLabel("Yaw:", 10, 51, 50, 20, tab_panels(1), WS_CHILD Or WS_VISIBLE Or SS_LEFT) Global txt_5_label = WB3D_CreateLabel("Roll:", 10, 91, 50, 20, tab_panels(1), WS_CHILD Or WS_VISIBLE Or SS_LEFT) Global txt_3 = WB3D_CreateEditField("", 60, 10, 150, 20, tab_panels(1), WS_CHILD Or WS_VISIBLE Or SS_LEFT Or ES_READONLY, 0) Global txt_4 = WB3D_CreateEditField("", 60, 50, 150, 20, tab_panels(1), WS_CHILD Or WS_VISIBLE Or SS_LEFT Or ES_READONLY, 0) Global txt_5 = WB3D_CreateEditField("", 60, 90, 150, 20, tab_panels(1), WS_CHILD Or WS_VISIBLE Or SS_LEFT Or ES_READONLY, 0) Global txt_6_label = WB3D_CreateLabel("Other stuff 1", 10, 11, 150, 20, tab_panels(2), WS_CHILD Or WS_VISIBLE Or SS_LEFT) Global txt_7_label = WB3D_CreateLabel("Other stuff 2", 10, 31, 150, 20, tab_panels(2), WS_CHILD Or WS_VISIBLE Or SS_LEFT) Global txt_8_label = WB3D_CreateLabel("Other stuff 3", 10, 51, 150, 20, tab_panels(2), WS_CHILD Or WS_VISIBLE Or SS_LEFT) Global exit_button = WB3D_CreateButton("Exit", 10, 10, 50, 20, tab_panels(3), WS_CHILD Or WS_VISIBLE Or SS_LEFT) WB3D_ShowGadget txt_0_label WB3D_ShowGadget txt_1_label WB3D_ShowGadget txt_2_label WB3D_ShowGadget txt_3_label WB3D_ShowGadget txt_4_label WB3D_ShowGadget txt_5_label WB3D_ShowGadget txt_6_label WB3D_ShowGadget txt_7_label WB3D_ShowGadget txt_8_label WB3D_ShowGadget tab_panels(0) WB3D_ShowGadget tab_panels(1) WB3D_ShowGadget tab_panels(2) Global event api_ShowWindow(SystemProperty$("AppHWND"), 1) api_SetFocus(SystemProperty$("AppHWND")) While Not KeyDown(1) WB3D_SetGadgetText(txt_0, EntityX#(cam, 1)) WB3D_SetGadgetText(txt_1, EntityY#(cam, 1)) WB3D_SetGadgetText(txt_2, EntityZ#(cam, 1)) WB3D_AutoSetGadgetRedraw(txt_0, 1) WB3D_AutoSetGadgetRedraw(txt_1, 1) WB3D_AutoSetGadgetRedraw(txt_2, 1) event = WB3D_WaitEvent() Select event Case WB3D_EVENT_GADGET Select WB3D_EventSource() Case tabber Switch_Tabs() Case exit_button End End Select Case WB3D_EVENT_WINDOW_CLOSE Select WB3D_EventSource() Case RuntimeWindow_hWnd QUIT = 1 End Select End Select Set_Speeds() Move(cam) UpdateWorld RenderWorld Flip Wend End Function Switch_Tabs() Select WB3D_EventSource() Case tabber For loop = 1 To max_tabs If loop = WB3D_EventData()+1 WB3D_ShowGadget tab_panels(loop) Else WB3D_HideGadget tab_panels(loop) EndIf Next End Select End Function Function GDI_GetAsyncKeyState(VirtualKey, IgnoreFocus=False) If (IgnoreFocus = True) And (api_GetActiveWindow() = 0) Then Return Return (api_GetAsyncKeyState%(VirtualKey) And %1000000000000000) > 0 End Function Function KD_W() Return (GDI_GetAsyncKeyState(VK_W, 0)) End Function Function KD_UP() Return (GDI_GetAsyncKeyState(VK_UP, 0)) End Function Function KD_S() Return (GDI_GetAsyncKeyState(VK_S, 0)) End Function Function KD_DOWN() Return (GDI_GetAsyncKeyState(VK_DOWN, 0)) End Function Function KD_A() Return (GDI_GetAsyncKeyState(VK_A, 0)) End Function Function KD_LEFT() Return (GDI_GetAsyncKeyState(VK_LEFT, 0)) End Function Function KD_D() Return (GDI_GetAsyncKeyState(VK_D, 0)) End Function Function KD_RIGHT() Return (GDI_GetAsyncKeyState(VK_RIGHT, 0)) End Function Function W_UP() Return (KD_W() Or KD_UP()) End Function Function S_DOWN() Return (KD_S() Or KD_DOWN()) End Function Function A_LEFT() Return (KD_A() Or KD_LEFT()) End Function Function D_RIGHT() Return (KD_D() Or KD_RIGHT()) End Function Function CONTROL() Return (GDI_GetAsyncKeyState(VK_LEFTCTRL, 0) Or GDI_GetAsyncKeyState(VK_RIGHTCTRL, 0)) End Function Function SHIFT() Return (GDI_GetAsyncKeyState(VK_LEFTSHIFT, 0) Or GDI_GetAsyncKeyState(VK_RIGHTSHIFT, 0)) End Function Function CONTROL_SHIFT() Return (CONTROL() And SHIFT()) End Function Function Set_Speeds() If Not SHIFT() movespeed# = move_speed# turnspeed# = turn_speed# Else movespeed# = double_move_speed# turnspeed# = double_turn_speed# EndIf End Function Function Move(ent) If Not CONTROL() If W_UP() Then MoveEntity cam, 0, 0, movespeed# If S_DOWN() Then MoveEntity cam, 0, 0, -movespeed# If A_LEFT() Then TurnEntity cam, 0, -turnspeed#, 0 If D_RIGHT() Then TurnEntity cam, 0, turnspeed#, 0 ElseIf CONTROL() If W_UP() Then MoveEntity cam, 0, movespeed#, 0 If S_DOWN() Then MoveEntity cam, 0, -movespeed#, 0 If A_LEFT() Then MoveEntity cam, -movespeed#, 0, 0 If D_RIGHT() Then MoveEntity cam, movespeed#, 0, 0 EndIf End Function And here is the link to the mediafire zip file... Link: http://www.mediafire.com/download/rwazie5v2symc5w/tabbertest.zip PLEASE NOTE :: You will have to wait anywhere from 10 to 60 seconds, and you must be staring at the values of the X/Y/Z position and moving around with W/A/S/D & / or the arrow keys & sometimes stopping in order to see the values flicker. Thank You all very kindly for all your help! =) Sincerely, ~Guy Fawkes

Yue (Posted 2014) [#2]

Hi, here error on compilation. api_GetSystemMetrics not found.

Yue (Posted 2014) [#3]

Ok, flashing change solves the range of the camera on your viewing distance. The documentation shows that more Blitz3D parameter if too high can make strange errors in the program.

Yue (Posted 2014) [#4]

Change your code to this: CameraRange cam, 0.01, 5000.0 ... scaleEntity sky, 1000, 1000, 1000 In this case the value for the range of the camera is very high and problems occur with the backbuffer.   so do tests to see who can withstand the high value camera.

Guy Fawkes (Posted 2014) [#5]

@Yue, thanks for the help, but the flashing is in the actual winblitz3d gadgets (where the text fields are). I also need to be able to update the values of each text field even in the background while still being able to switch between tabs. Does that explain it a bit better? As for api_getsystemmetrics(), you have to put both DECLs files into the blitz3d/userlibs folder. :)

Yue (Posted 2014) [#6]

Ok, I thought it was the flicker of the camera when you displayed the world, in this case here I do not perceive any flicker in the fields that display the coordinates of the camera. My English is very bad, what you need to understand is that when changing tab, the text fields are not displayed, right?, If that way should be an option to know that this active tab and then hide fields text for each tab. A greeting.

Yue (Posted 2014) [#7]

Hey recommend you to use this lib, I think from my point of view is much better. http://dev-ch.com/coding/devilengines/devilgui

Guy Fawkes (Posted 2014) [#8]

The problem with DevilGUI, is that it does not allow for an infinite amount of tab pages. Otherwise, I would use it.

Yue (Posted 2014) [#9]

mmmmmmm, and BCF3.1??

Guy Fawkes (Posted 2014) [#10]

Unless you know of a way to make the amount of tabs I can create, unlimited.

Guy Fawkes (Posted 2014) [#11]

What's BCF 3.1, where do I get it, and can it create unlimited amounts of tabs & allow for the updating of each field in the background while allowing for switching between each tab?

Yue (Posted 2014) [#12]

Ok give me a moment to upload it droopbox ... so you figure it out.

Yue (Posted 2014) [#13]

Ok here: https://dl.dropboxusercontent.com/u/39767349/BCF3.1.zip I comets as you think about this lib.

Guy Fawkes (Posted 2014) [#14]

I just checked & BCF doesn't even have tabs.

Yue (Posted 2014) [#15]

The tabs can do with the buttons, hiding and showing controls assigned to that tab. I'm thinking of another lib but can not remember the name.

Guy Fawkes (Posted 2014) [#16]

If you can show me an example using any GUI that does not have the flickering values in the fields, and be able to switch between each tab while updating the fields in the background, then I will use that GUI.

Yue (Posted 2014) [#17]

Ok, one moment, i am find new libs for you.

Yue (Posted 2014) [#18]

Enjoy it here: https://app.box.com/s/2yxm72i9bytug235lwtl ;)

Guy Fawkes (Posted 2014) [#19]

Woh! that's amazing! I've never seen this GUI before! does this allow for unlimited amounts of tabs? :O Thanks ALOT, Yue!

Yue (Posted 2014) [#20]

If that allows many tabs, also has a gui editor to make the job very much easier. The truth could not remember the name but I found it on my hard drive. Enjoy it! :)

Guy Fawkes (Posted 2014) [#21]

Thanks alot, Yue! :) I REALLY appreciate the time & the effort you took to help me! :) Kudos, buddy! Kudos! :)

Rroff (Posted 2014) [#22]

IIRC BCF has some fairly big performance issues with more complex UIs unless you edit some of its core code and/or replace some of its functions to use features from fastlibs. Unfortunatly don't have enough experience with WinBlitz to help with that.