tabs on 1 window? - GameCreators Forum

Author

Message

Mugen Wizardry

User Banned

Posted: 13th May 2010 17:46

Link

hi all. im using bbbgui.

the problem is i would like the tabs all in 1 window.

Rem Project: Tabs
Rem Created: Thursday, May 13, 2010

Rem ***** Main Source File *****
`mode 640,480,32
`endif
sync on : sync rate 0

start bbb gui `"Media\Ruby.msstyles"

windows set font 7,"Arial",0,0,0,0
windows set visibility 1
windows set icon "Media\dbpro_icon.ico"

dbpro_w=get dbpro window() : set main window dbpro_w

ww2=make window(100,100,450,250,"Example window with tabs",dbpro_w, WS_OVERLAPPEDWINDOW)
tab=make tab control(20,20,200,200,TCS_FIXEDWIDTH,ww2)
w1=make window(1,23,196,174,"",tab,WS_CHILD) : tab insert item tab,"1.",0,ww2
tab set item size tab,50,20

l=make label(50,50,100,100,"First tab",ww2)
l=make label(50,50,100,100,"Second tab",ww2)
l=make label(50,50,100,100,"Third tab",ww2)
tab set selected item tab,0

set window on
window set style dbpro_w,window get style(dbpro_w)||WS_CLIPCHILDREN

make object box 1,2,2,2

do

if inkey$()="1" then tab set selected item tab,0
if inkey$()="2" then tab set selected item tab,1
if inkey$()="3" then tab set selected item tab,2

repeat
   get event
   h=event get handle()
   m=event get message()
   if h=get main window()
      if m=WM_CLOSE
         a=make message box("Are you sure you want to quit?","BBB Gui plugin",MB_YESNO)
         if a=IDYES then end bbb gui : end
      endif
   endif
until m=0

yrotate object 1,object angle y(1)+1
sync
loop

+ Code Snippet

Rem Project: Tabs
Rem Created: Thursday, May 13, 2010

Rem ***** Main Source File *****
`mode 640,480,32
`endif
sync on : sync rate 0


start bbb gui `"Media\Ruby.msstyles"

windows set font 7,"Arial",0,0,0,0
windows set visibility 1
windows set icon "Media\dbpro_icon.ico"

dbpro_w=get dbpro window() : set main window dbpro_w

ww2=make window(100,100,450,250,"Example window with tabs",dbpro_w, WS_OVERLAPPEDWINDOW)
tab=make tab control(20,20,200,200,TCS_FIXEDWIDTH,ww2)
w1=make window(1,23,196,174,"",tab,WS_CHILD) : tab insert item tab,"1.",0,ww2
tab set item size tab,50,20

l=make label(50,50,100,100,"First tab",ww2)
l=make label(50,50,100,100,"Second tab",ww2)
l=make label(50,50,100,100,"Third tab",ww2)
tab set selected item tab,0

set window on
window set style dbpro_w,window get style(dbpro_w)||WS_CLIPCHILDREN

make object box 1,2,2,2

do

if inkey$()="1" then tab set selected item tab,0
if inkey$()="2" then tab set selected item tab,1
if inkey$()="3" then tab set selected item tab,2

repeat
   get event
   h=event get handle()
   m=event get message()
   if h=get main window()
      if m=WM_CLOSE
         a=make message box("Are you sure you want to quit?","BBB Gui plugin",MB_YESNO)
         if a=IDYES then end bbb gui : end
      endif
   endif
until m=0

yrotate object 1,object angle y(1)+1
sync
loop

thanks!

Back to top

Profile

Mugen Wizardry

User Banned

Posted: 13th May 2010 20:55

Link

anyone?

Back to top

Profile

The Slayer

Forum Vice President

16

Years of Service

User Offline

Joined: 9th Nov 2009

Playing: (Hide and) Seek and Destroy on my guitar!

Posted: 13th May 2010 23:13

Link

Try this:

if check display mode(1024,768,32)=1
   set display mode 1024,768,32
else
   set display mode 640,480,32
endif
sync on : sync rate 60

start bbb gui "Media\Ruby.msstyles"

windows set font 7,"Arial",0,0,0,0

dbpro_w=get dbpro window() : set main window dbpro_w

w2=make window(100,100,450,250,"Example window with tabs",dbpro_w, WS_OVERLAPPEDWINDOW)

tab=make tab control(20,20,200,200,TCS_FIXEDWIDTH,w2)
w1=make window(2,22,195,174,"",tab,WS_CHILD) : tab insert item tab,"1.",0,w1
w2=make window(2,22,195,174,"",tab,WS_CHILD) : tab insert item tab,"2.",1,w2
w3=make window(2,22,195,174,"",tab,WS_CHILD) : tab insert item tab,"3.",2,w3
tab set item size tab,50,20

l=make label(50,50,100,100,"First tab",w1) 
l=make label(50,50,100,100,"Second tab",w2)
l=make label(50,50,100,100,"Third tab",w3)
tab set selected item tab,2

set window on
make object box 1,2,2,2

do

repeat
   get event
   h=event get handle()
   m=event get message()
   if h=get main window()
      if m=WM_CLOSE
         a=make message box("Are you sure you want to quit?","BBB Gui plugin",MB_YESNO)
         if a=IDYES then end bbb gui : end
      endif
   endif
until m=0

yrotate object 1,object angle y(1)+1
sync
loop

+ Code Snippet

if check display mode(1024,768,32)=1
   set display mode 1024,768,32
else
   set display mode 640,480,32
endif
sync on : sync rate 60


start bbb gui "Media\Ruby.msstyles"

windows set font 7,"Arial",0,0,0,0

dbpro_w=get dbpro window() : set main window dbpro_w

w2=make window(100,100,450,250,"Example window with tabs",dbpro_w, WS_OVERLAPPEDWINDOW)

tab=make tab control(20,20,200,200,TCS_FIXEDWIDTH,w2)
w1=make window(2,22,195,174,"",tab,WS_CHILD) : tab insert item tab,"1.",0,w1
w2=make window(2,22,195,174,"",tab,WS_CHILD) : tab insert item tab,"2.",1,w2
w3=make window(2,22,195,174,"",tab,WS_CHILD) : tab insert item tab,"3.",2,w3
tab set item size tab,50,20

l=make label(50,50,100,100,"First tab",w1) 
l=make label(50,50,100,100,"Second tab",w2)
l=make label(50,50,100,100,"Third tab",w3)
tab set selected item tab,2

set window on
make object box 1,2,2,2

do

repeat
   get event
   h=event get handle()
   m=event get message()
   if h=get main window()
      if m=WM_CLOSE
         a=make message box("Are you sure you want to quit?","BBB Gui plugin",MB_YESNO)
         if a=IDYES then end bbb gui : end
      endif
   endif
until m=0

yrotate object 1,object angle y(1)+1
sync
loop

Cheers

Slayer rules!!! Yeaaah, man!

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 14th May 2010 15:33

Link

um, it works, except can u make it so that it only allows for 2 windows?

not 3?

Back to top

Profile

The Slayer

Forum Vice President

16

Years of Service

User Offline

Joined: 9th Nov 2009

Playing: (Hide and) Seek and Destroy on my guitar!

Posted: 14th May 2010 17:27

Link

Quote: "can u make it so that it only allows for 2 windows?"

Do you mean 2 windows, or 2 tabs??

If it is 2 tabs that you want, then just delete the following lines:

+ Code Snippet

w3=make window(2,22,195,174,"",tab,WS_CHILD) : tab insert item tab,"3.",2,w3
l=make label(50,50,100,100,"Third tab",w3)

Cheers

Slayer rules!!! Yeaaah, man!

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 14th May 2010 17:36

Link

no mate, 2 windows ^^

like i need to be able to see buttons, etc inside the white tab window when u click a tab.

but i need the tabs themselves in the 2nd window

Back to top

Profile

The Slayer

Forum Vice President

16

Years of Service

User Offline

Joined: 9th Nov 2009

Playing: (Hide and) Seek and Destroy on my guitar!

Posted: 14th May 2010 19:51

Link

Well, in the example that I gave you, there are only 2 active windows, with 3 tabs in the second window.
So, you want buttons in the tabs of the second window, right?

Slayer rules!!! Yeaaah, man!

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 14th May 2010 19:58

Link

right, i want it in the white box.

instead of a popup window

Back to top

Profile

The Slayer

Forum Vice President

16

Years of Service

User Offline

Joined: 9th Nov 2009

Playing: (Hide and) Seek and Destroy on my guitar!

Posted: 14th May 2010 21:14

Link

Not sure if this is what you wanted, but try it out:

if check display mode(1024,768,32)=1
   set display mode 1024,768,32
else
   set display mode 640,480,32
endif
sync on : sync rate 60

start bbb gui "Media\Ruby.msstyles"

windows set font 7,"Arial",0,0,0,0

dbpro_w=get dbpro window() : set main window dbpro_w

wm1=make window(3,29,200,600,"",dbpro_w, 2)  `WS_OVERLAPPEDWINDOW

tab=make tab control(0,0,200,600,TCS_FIXEDWIDTH,wm1)
w1=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 1",0,w1
w2=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 2",1,w2
w3=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 3",2,w3
tab set selected item tab,0
tab set item size tab,50,20

`This command creates a button with text
b1=make button(20,20,100,20,"button 1",w2)

set window on
make object box 1,2,2,2

do

repeat
   get event
   h=event get handle()
   m=event get message()
   if h=get main window()
      if m=WM_CLOSE
         a=make message box("Are you sure you want to quit?","BBB Gui plugin",MB_YESNO)
         if a=IDYES then end bbb gui : end
      endif
   endif
until m=0

yrotate object 1,object angle y(1)+1
sync
loop

+ Code Snippet

if check display mode(1024,768,32)=1
   set display mode 1024,768,32
else
   set display mode 640,480,32
endif
sync on : sync rate 60

start bbb gui "Media\Ruby.msstyles"

windows set font 7,"Arial",0,0,0,0

dbpro_w=get dbpro window() : set main window dbpro_w

wm1=make window(3,29,200,600,"",dbpro_w, 2)  `WS_OVERLAPPEDWINDOW

tab=make tab control(0,0,200,600,TCS_FIXEDWIDTH,wm1)
w1=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 1",0,w1
w2=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 2",1,w2
w3=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 3",2,w3
tab set selected item tab,0
tab set item size tab,50,20

`This command creates a button with text
b1=make button(20,20,100,20,"button 1",w2)

set window on
make object box 1,2,2,2

do

repeat
   get event
   h=event get handle()
   m=event get message()
   if h=get main window()
      if m=WM_CLOSE
         a=make message box("Are you sure you want to quit?","BBB Gui plugin",MB_YESNO)
         if a=IDYES then end bbb gui : end
      endif
   endif
until m=0

yrotate object 1,object angle y(1)+1
sync
loop

Hope it helped?

Cheers

Slayer rules!!! Yeaaah, man!

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 14th May 2010 21:55

Link

something like this:

if check display mode(1024,768,32)=1
   set display mode 1024,768,32
else
   set display mode 640,480,32
endif
sync on : sync rate 60

start bbb gui "Media\Ruby.msstyles"

windows set font 7,"Arial",0,0,0,0

dbpro_w=get dbpro window() : set main window dbpro_w

wm1=make window(3,29,200,600,"",dbpro_w, 2)  `WS_OVERLAPPEDWINDOW

tab=make tab control(0,0,200,600,TCS_FIXEDWIDTH,wm1)
w1=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 1",1,w1
tab insert item tab,"TAB 1",2,w1
tab insert item tab,"TAB 1",3,w1
`w2=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 2",1,w2
`w3=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 3",2,w3
tab set selected item tab,0
tab set item size tab,50,20

`This command creates a button with text
b1=make button(20,20,100,20,"button 1",w2)

set window on
make object box 1,2,2,2

do

repeat
   get event
   h=event get handle()
   m=event get message()
   if h=get main window()
      if m=WM_CLOSE
         a=make message box("Are you sure you want to quit?","BBB Gui plugin",MB_YESNO)
         if a=IDYES then end bbb gui : end
      endif
   endif
until m=0

yrotate object 1,object angle y(1)+1
sync
loop

+ Code Snippet

if check display mode(1024,768,32)=1
   set display mode 1024,768,32
else
   set display mode 640,480,32
endif
sync on : sync rate 60

start bbb gui "Media\Ruby.msstyles"

windows set font 7,"Arial",0,0,0,0

dbpro_w=get dbpro window() : set main window dbpro_w

wm1=make window(3,29,200,600,"",dbpro_w, 2)  `WS_OVERLAPPEDWINDOW

tab=make tab control(0,0,200,600,TCS_FIXEDWIDTH,wm1)
w1=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 1",1,w1
tab insert item tab,"TAB 1",2,w1
tab insert item tab,"TAB 1",3,w1
`w2=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 2",1,w2
`w3=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 3",2,w3
tab set selected item tab,0
tab set item size tab,50,20

`This command creates a button with text
b1=make button(20,20,100,20,"button 1",w2)

set window on
make object box 1,2,2,2

do

repeat
   get event
   h=event get handle()
   m=event get message()
   if h=get main window()
      if m=WM_CLOSE
         a=make message box("Are you sure you want to quit?","BBB Gui plugin",MB_YESNO)
         if a=IDYES then end bbb gui : end
      endif
   endif
until m=0

yrotate object 1,object angle y(1)+1
sync
loop

but for some reason, its still opening a 3rd window.. o.o

Back to top

Profile

Mugen Wizardry

User Banned

Posted: 14th May 2010 22:02

Link

like this:

Back to top

Profile

Mugen Wizardry

User Banned

Posted: 14th May 2010 22:35

Link

do u understand now?

Back to top

Profile

Brendy boy

21

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 14th May 2010 23:16

Link

you have one window with 3d rendered in it and one window which has 3 tabs in it. Where do you see 3rd window?

And in the above snipet you posted i saw that you asigned the same window handle to all 3 tabs. Is that supposed to be like that. Because if do that no matter which tab is selected there will always be the same window shown like you have only 1 tab.

"After you finish the first 90% of a project, you have to finish the other 90%." - Michael Abrash

Back to top

Profile PM Email

The Slayer

Forum Vice President

16

Years of Service

User Offline

Joined: 9th Nov 2009

Playing: (Hide and) Seek and Destroy on my guitar!

Posted: 15th May 2010 00:08

Link

@Mugen Wizardry:

If you don't want the window (that displays the tabs) to be floating outside the main window (with the spinning cube in it), than you could just reposition it everytime the main window is moved, by checking the X and Y positions of the main window.

Cheers

Slayer rules!!! Yeaaah, man!

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 15th May 2010 01:14

Link

i see the 3rd 1 after u click the tab.

i dont wanna have to reposition it though cuz that would look stupid.

isnt there ANY way i can do what i showed in the picture?

Back to top

Profile

Mugen Wizardry

User Banned

Posted: 15th May 2010 18:33

Link

is there anyway u can make it look like it does in the pic?

Back to top

Profile

The Slayer

Forum Vice President

16

Years of Service

User Offline

Joined: 9th Nov 2009

Playing: (Hide and) Seek and Destroy on my guitar!

Posted: 15th May 2010 20:58 Edited at: 15th May 2010 21:11

Link

Well, this is probably how you wanted it, right?

if check display mode(1024,768,32)=1
   set display mode 1024,768,32
else
   set display mode 640,480,32
endif
sync on : sync rate 60

start bbb gui "Media\Ruby.msstyles"

windows set font 7,"Arial",0,0,0,0

dbpro_w=get dbpro window() : set main window dbpro_w

wm1=make window(3,29,200,600,"",dbpro_w, WS_OVERLAPPEDWINDOW)

tab=make tab control(0,0,200,600,TCS_FIXEDWIDTH,wm1)
w1=make window(1200,22,200,600,"",tab,wm1) : tab insert item tab,"TAB 1",0,w1
`w2=make window(0,22,200,600,"",tab,WS_CHILD) : 
tab insert item tab,"TAB 2",1,w1
`w3=make window(0,22,200,600,"",tab,WS_CHILD) : 
tab insert item tab,"TAB 3",2,w1
tab set selected item tab,0
tab set item size tab,50,20

`This command creates a button with text
`b1=make button(20,20,100,20,"button 1",w2)
`l=make label(1,0,100,100,"First tab",w1)
`l=make label(1,0,100,100,"Second tab",w2)
`l=make label(1,0,100,100,"Third tab",w3)

set window on
make object box 1,2,2,2

do

repeat
   get event
   h=event get handle()
   m=event get message()
   if h=get main window()
      if m=WM_CLOSE
         a=make message box("Are you sure you want to quit?","BBB Gui plugin",MB_YESNO)
         if a=IDYES then end bbb gui : end
      endif
   endif
until m=0

yrotate object 1,object angle y(1)+1
sync
loop

+ Code Snippet

if check display mode(1024,768,32)=1
   set display mode 1024,768,32
else
   set display mode 640,480,32
endif
sync on : sync rate 60

start bbb gui "Media\Ruby.msstyles"

windows set font 7,"Arial",0,0,0,0

dbpro_w=get dbpro window() : set main window dbpro_w

wm1=make window(3,29,200,600,"",dbpro_w, WS_OVERLAPPEDWINDOW)  

tab=make tab control(0,0,200,600,TCS_FIXEDWIDTH,wm1)
w1=make window(1200,22,200,600,"",tab,wm1) : tab insert item tab,"TAB 1",0,w1
`w2=make window(0,22,200,600,"",tab,WS_CHILD) : 
tab insert item tab,"TAB 2",1,w1
`w3=make window(0,22,200,600,"",tab,WS_CHILD) : 
tab insert item tab,"TAB 3",2,w1
tab set selected item tab,0
tab set item size tab,50,20

`This command creates a button with text
`b1=make button(20,20,100,20,"button 1",w2)
`l=make label(1,0,100,100,"First tab",w1)
`l=make label(1,0,100,100,"Second tab",w2)
`l=make label(1,0,100,100,"Third tab",w3)

set window on
make object box 1,2,2,2

do

repeat
   get event
   h=event get handle()
   m=event get message()
   if h=get main window()
      if m=WM_CLOSE
         a=make message box("Are you sure you want to quit?","BBB Gui plugin",MB_YESNO)
         if a=IDYES then end bbb gui : end
      endif
   endif
until m=0

yrotate object 1,object angle y(1)+1
sync
loop

However, the problem now is that you can't put buttons or text on the tabs now.
The code that I just gave you is NOT how it's supposed to be done.
If I'm not mistaken, you don't want to see a difference between the tabs' color (red) and the color beneath the tabs (white), right?
Well, in that case, there are other window skins available, where those two colors are the same.

Did this help you?

Cheers

Slayer rules!!! Yeaaah, man!

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 15th May 2010 21:06

Link

thats the thing. i need to make it so it uses only 2 windows.

1 for the tabs, and the other is the main window

the thing is, i need the buttons and text in the white area of the tab when u click the tab.

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Mugen Wizardry

User Banned

Posted: 15th May 2010 21:07

Link

either that, or if theres someway u can make the 3rd window completely transparent while keeping the buttons non-transparent

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Mugen Wizardry

User Banned

Posted: 16th May 2010 18:46

Link

alright. im fed up w/ this.

can someone either tell me how i can make it so tabs work in 2 windows, or can someone please point me to a GUI that DOES have working tabs?

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

=PRoF=

23

Years of Service

User Offline

Joined: 17th Mar 2003

Location: Milton Keynes, UK

Posted: 16th May 2010 18:55

Link

I know Tabs work in BlueGUI, but I'm unsure as to whether its still available or not.

It took me some time to work out however, that you have to manually hide/appear the things you want to have on the tabs.

I dunno if this is how BBBGui does it as well.

Back to top

Profile PM Email Website

The Slayer

Forum Vice President

16

Years of Service

User Offline

Joined: 9th Nov 2009

Playing: (Hide and) Seek and Destroy on my guitar!

Posted: 16th May 2010 19:57

Link

@Mugen Wizardry:

The following example does work for me and has only 2 windows with working tabs. Here's also another skin where the difference between the tabs color and the window color is less noticable (see screenie). You must place the skinfile in the Media folder of the BBB Gui examples. If you place it somewhere else, then you must change the command 'start bbb gui "Media\Dream LH.msstyles"' accordingly.

if check display mode(1024,768,32)=1
   set display mode 1024,768,32
else
   set display mode 640,480,32
endif
sync on : sync rate 60

start bbb gui "Media\Dream LH.msstyles"

windows set font 7,"Arial",0,0,0,0

dbpro_w=get dbpro window() : set main window dbpro_w

wm1=make window(3,29,200,600,"",dbpro_w, WS_FIXEDWINDOW)

tab=make tab control(0,0,200,600,TCS_FIXEDWIDTH,wm1)
w1=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 1",0,w1
w2=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 2",1,w2
w3=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 3",2,w3
tab set selected item tab,0
tab set item size tab,50,20

`This command creates a button with text
b1=make button(20,20,100,20,"button 1",w2)

set window on
make object box 1,2,2,2

do

repeat
   get event
   h=event get handle()
   m=event get message()
   if h=get main window()
      if m=WM_CLOSE
         a=make message box("Are you sure you want to quit?","BBB Gui plugin",MB_YESNO)
         if a=IDYES then end bbb gui : end
      endif
   endif
until m=0

yrotate object 1,object angle y(1)+1
sync
loop

+ Code Snippet

if check display mode(1024,768,32)=1
   set display mode 1024,768,32
else
   set display mode 640,480,32
endif
sync on : sync rate 60

start bbb gui "Media\Dream LH.msstyles"

windows set font 7,"Arial",0,0,0,0

dbpro_w=get dbpro window() : set main window dbpro_w

wm1=make window(3,29,200,600,"",dbpro_w, WS_FIXEDWINDOW)  

tab=make tab control(0,0,200,600,TCS_FIXEDWIDTH,wm1)
w1=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 1",0,w1
w2=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 2",1,w2
w3=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 3",2,w3
tab set selected item tab,0
tab set item size tab,50,20

`This command creates a button with text
b1=make button(20,20,100,20,"button 1",w2)

set window on
make object box 1,2,2,2

do

repeat
   get event
   h=event get handle()
   m=event get message()
   if h=get main window()
      if m=WM_CLOSE
         a=make message box("Are you sure you want to quit?","BBB Gui plugin",MB_YESNO)
         if a=IDYES then end bbb gui : end
      endif
   endif
until m=0

yrotate object 1,object angle y(1)+1
sync
loop

Hope this helped?

Cheers

Slayer rules!!! Yeaaah, man!

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 16th May 2010 20:30

Link

ok, its getting there. although i still dont like the 3rd window. but now its ok..

the problem now is each of those windows that popup and move with like button1 need tabs too so u dont get stuck in the window

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Mugen Wizardry

User Banned

Posted: 17th May 2010 19:35 Edited at: 17th May 2010 19:36

Link

any ideas, slayer?

its not the colors i need help with.

its the windows having tabs too

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

The Slayer

Forum Vice President

16

Years of Service

User Offline

Joined: 9th Nov 2009

Playing: (Hide and) Seek and Destroy on my guitar!

Posted: 17th May 2010 22:11

Link

Quote: "although i still dont like the 3rd window."

When I run it, I only have two windows (the one with the spinning cube, and the window with the tabs in it).

Quote: "the problem now is each of those windows that popup"

I don't know why that happens, but if you load in a BBBGui example and replace the code with the one that I gave you (don't delete the original code, but put it in REMSTART/REMEND commands), it should run fine. Maybe you should ask Brendy Boy why this is happening and how to solve it, as he's the creator of this plugin?

Quote: "its the windows having tabs too"

I don't get it. You don't want tabs in the windows?

Cheers

Slayer rules!!! Yeaaah, man!

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 18th May 2010 01:19

Link

no, i want it to stop popping up window everytime i click a new tab..

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Brendy boy

21

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 18th May 2010 02:01

Link

Quote: "no, i want it to stop popping up window everytime i click a new tab.."

post a code so i can see what is happening.

"After you finish the first 90% of a project, you have to finish the other 90%." - Michael Abrash

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 18th May 2010 02:12

Link

if check display mode(1024,768,32)=1
   set display mode 1024,768,32
else
   set display mode 640,480,32
endif
sync on : sync rate 60

start bbb gui "Media\Dream LH.msstyles"

windows set font 7,"Arial",0,0,0,0

dbpro_w=get dbpro window() : set main window dbpro_w

wm1=make window(3,29,200,600,"",dbpro_w, WS_FIXEDWINDOW)

tab=make tab control(0,0,200,600,TCS_FIXEDWIDTH,wm1)
w1=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 1",0,w1
w2=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 2",1,w2
w3=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 3",2,w3
tab set selected item tab,0
tab set item size tab,50,20

`This command creates a button with text
b1=make button(20,20,100,20,"button 1",w2)

set window on
make object box 1,2,2,2

do

repeat
   get event
   h=event get handle()
   m=event get message()
   if h=get main window()
      if m=WM_CLOSE
         a=make message box("Are you sure you want to quit?","BBB Gui plugin",MB_YESNO)
         if a=IDYES then end bbb gui : end
      endif
   endif
until m=0

yrotate object 1,object angle y(1)+1
sync
loop

+ Code Snippet

if check display mode(1024,768,32)=1
   set display mode 1024,768,32
else
   set display mode 640,480,32
endif
sync on : sync rate 60

start bbb gui "Media\Dream LH.msstyles"

windows set font 7,"Arial",0,0,0,0

dbpro_w=get dbpro window() : set main window dbpro_w

wm1=make window(3,29,200,600,"",dbpro_w, WS_FIXEDWINDOW)  

tab=make tab control(0,0,200,600,TCS_FIXEDWIDTH,wm1)
w1=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 1",0,w1
w2=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 2",1,w2
w3=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 3",2,w3
tab set selected item tab,0
tab set item size tab,50,20

`This command creates a button with text
b1=make button(20,20,100,20,"button 1",w2)

set window on
make object box 1,2,2,2

do

repeat
   get event
   h=event get handle()
   m=event get message()
   if h=get main window()
      if m=WM_CLOSE
         a=make message box("Are you sure you want to quit?","BBB Gui plugin",MB_YESNO)
         if a=IDYES then end bbb gui : end
      endif
   endif
until m=0

yrotate object 1,object angle y(1)+1
sync
loop

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Brendy boy

21

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 18th May 2010 03:08

Link

It works the same as it works for The Slayer. One window with tabs and one window 3d rendered in it. Which window is poping out every time you click a new tab? Make a screenshot and circle that window, because i don't understand what you don't like in it, it works exactly as it should.

"After you finish the first 90% of a project, you have to finish the other 90%." - Michael Abrash

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 18th May 2010 15:16

Link

no it does not..

here's a pic.

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Brendy boy

21

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 18th May 2010 22:10

Link

Quote: "no it does not.."

Then you didn't post the right code. What i get when compile the code you posted i get something else. Post the right code. Check if you included BBB_Gui_Constants.dba file in your project and check if you used the correct constant names in your project, there could be a typo that's causing that.

"After you finish the first 90% of a project, you have to finish the other 90%." - Michael Abrash

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 18th May 2010 22:13

Link

i didnt mess with the constants.

i did include bbb constants

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Brendy boy

21

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 18th May 2010 22:16

Link

then post the right code

"After you finish the first 90% of a project, you have to finish the other 90%." - Michael Abrash

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 18th May 2010 23:25

Link

the right code is above..

its the 2nd code

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Brendy boy

21

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 19th May 2010 00:17

Link

I finally see what the problem is. You didn't study the examples well enough and didn't check the keywords.

The problem is this line:w1=make window(1200,22,200,600,"",tab,wm1) : tab insert item tab,"TAB 1",0,w1

When adding a tab item to a tab control you have to specify a child window which will be asigned to that tab. You made a mistake when creating that child window.

make window command's sintax is this:
MAKE WINDOW pos x, pos y, width, height, title, parent , style

As a parent you put varible TAB which holds tab handle ->thats's OK
As a style you put variable WM1 which is a handle to a window -> BAD, this parameter needs to be window style. To create a child window it should be WS_CHILD constant instead of wm1 variable

"After you finish the first 90% of a project, you have to finish the other 90%." - Michael Abrash

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 19th May 2010 22:46

Link

ok, this works:

if check display mode(1024,768,32)=1
   set display mode 1024,768,32
else
   set display mode 640,480,32
endif
sync on : sync rate 60

start bbb gui "Media\Dream LH.msstyles"

windows set font 7,"Arial",0,0,0,0

dbpro_w=get dbpro window() : set main window dbpro_w

wm1=make window(3,29,200,600,"",dbpro_w, WS_FIXEDWINDOW)

tab=make tab control(0,0,200,600,TCS_FIXEDWIDTH,wm1)
w1=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 1",0,w1
w2=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 2",1,w2
w3=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 3",2,w3
w4=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 4",3,w4
tab set selected item tab,0
tab set item size tab,50,20

`This command creates a button with text
b0=make button(20,20,100,20,"button 1",w1)
b1=make button(20,20,100,20,"button 2",w2)

set window on
make object box 1,2,2,2

do

repeat
position window wm1,window position x(dbpro_w),window position y(dbpro_w)
   get event
   h=event get handle()
   m=event get message()
   if h=get main window()
      if m=WM_CLOSE
         a=make message box("Are you sure you want to quit?","BBB Gui plugin",MB_YESNO)
         if a=IDYES then end bbb gui : end
      endif
   endif
until m=0

yrotate object 1,object angle y(1)+1
sync
loop

+ Code Snippet

if check display mode(1024,768,32)=1
   set display mode 1024,768,32
else
   set display mode 640,480,32
endif
sync on : sync rate 60

start bbb gui "Media\Dream LH.msstyles"

windows set font 7,"Arial",0,0,0,0

dbpro_w=get dbpro window() : set main window dbpro_w

wm1=make window(3,29,200,600,"",dbpro_w, WS_FIXEDWINDOW)  

tab=make tab control(0,0,200,600,TCS_FIXEDWIDTH,wm1)
w1=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 1",0,w1
w2=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 2",1,w2
w3=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 3",2,w3
w4=make window(0,22,200,600,"",tab,WS_CHILD) : tab insert item tab,"TAB 4",3,w4
tab set selected item tab,0
tab set item size tab,50,20

`This command creates a button with text
b0=make button(20,20,100,20,"button 1",w1)
b1=make button(20,20,100,20,"button 2",w2)

set window on
make object box 1,2,2,2

do

repeat
position window wm1,window position x(dbpro_w),window position y(dbpro_w)
   get event
   h=event get handle()
   m=event get message()
   if h=get main window()
      if m=WM_CLOSE
         a=make message box("Are you sure you want to quit?","BBB Gui plugin",MB_YESNO)
         if a=IDYES then end bbb gui : end
      endif
   endif
until m=0

yrotate object 1,object angle y(1)+1
sync
loop

Now i ask. how can i put the close button on my created window?

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Sepnon

16

Years of Service

User Offline

Joined: 7th Feb 2010

Location: Brazil

Posted: 19th May 2010 23:08 Edited at: 19th May 2010 23:11

Link

mugen, you look like a newbie asking for code

as you see, the problem wasn't the dll, but your code
try finding the problem yourself BEFORE doing this

Back to top

Profile PM Email

Brendy boy

21

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 19th May 2010 23:14

Link

set this as style: WS_OVERLAPPEDWINDOW

"After you finish the first 90% of a project, you have to finish the other 90%." - Michael Abrash

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 19th May 2010 23:43

Link

sepnon, im not even gonna bother answering u.

thanks, brendy boy

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Sorry your browser is not supported!

DarkBASIC Professional Discussion / tabs on 1 window?