BBB GUI Problems? - GameCreators Forum

Author

Message

Da_Rhyno

15

Years of Service

User Offline

Joined: 25th May 2011

Location:

Posted: 15th Oct 2011 02:16 Edited at: 15th Oct 2011 02:21

Link

Hi all! I'm trying to learn how to use BBB GUI, and right now all I'm doing is putting a button in the main DBPro window that when it's pressed comes up with a message box.

Now for some reason when it's clicked, nothing happens.

Can anyone tell me what I'm doing wrong here?

EDIT: Here's a more straightforward example.

+ Code Snippet

Rem Project: Free RPG Creator
Rem Created: Friday, October 14, 2011

Rem ***** Main Source File *****

#INCLUDE "BBBGUI_CONSTANTS.dba"

SET DISPLAY MODE 640, 480, 32
SET WINDOW TITLE "Free RPG Creator"

SYNC ON
SYNC RATE 60

START BBB GUI
WINDOWS SET FONT 7, "Arial", 0, 0, 0, 0
WINDOWS SET VISIBILITY 1
db_pro_window = GET DBPRO WINDOW() 
SET MAIN WINDOW db_pro_window
b1 = MAKE BUTTON(20, 20, 40, 40, "Click!", db_pro_window)
WINDOW SET PROPERTY b1, "id", "1"

DO
    
   a = GET CLICKED BUTTON()
   IF a = 1
      test = MAKE MESSAGE BOX("Hello there!", "", MB_OK)
   ENDIF

   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?", "", MB_YESNO)
            IF a = IDYES THEN END BBB GUI : END
         ENDIF 
      ENDIF
   UNTIL m = 0
   SYNC
LOOP

Back to top

Profile PM

zenassem

23

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 15th Oct 2011 03:01

Link

a is not going to be equal to 1. I think yo are confusing tjhe value of get clicked button() which is stored in a with property id.

let me see if ican quickly edit it
brb

Your signature has been erased by a mod please reduce it to 600 x 120.

Back to top

Profile PM Email

Brendy boy

20

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 15th Oct 2011 03:53

Link

command GET CLICKED BUTTON() returns the handle of the last clicked button and not the state of the button as you used it.

So the correct use would be:

+ Code Snippet

btnButton1=MAKE BUTTON(20, 20, 40, 40, "Click!", db_pro_window)

hButton = GET CLICKED BUTTON()
IF hButton = btnButton1
   test = MAKE MESSAGE BOX("Hello there!", "", MB_OK)
ENDIF

BBB GUI Plugin
Landscape & Map Creator

Back to top

Profile PM Email

Da_Rhyno

15

Years of Service

User Offline

Joined: 25th May 2011

Location:

Posted: 15th Oct 2011 03:58

Link

Okay, thanks Brendy boy.

This little piece of code confused me:

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
windows set icon "Media\dbpro_icon.ico"
windows set visibility 1

dbpro_w=get dbpro window() : set main window dbpro_w
w=make window(640,240,"Example window with buttons",dbpro_w)

`This command creates a button with text
b1=make button(20,20,100,20,"text button",w)
window set property b1,"id","1"

`This command creates a button with image
b2=make button(20,50,128,128,"Media\image.bmp",w)
window set property b2,"id","2"

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

a=get clicked button()
if a>0 then last$=str$(a) : last=a
text 20,20,"Last clicked button: "+last$
text 20,40,"id of last clicked button: "+window get property value$(last,"id")

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
windows set icon "Media\dbpro_icon.ico"
windows set visibility 1

dbpro_w=get dbpro window() : set main window dbpro_w
w=make window(640,240,"Example window with buttons",dbpro_w)

`This command creates a button with text
b1=make button(20,20,100,20,"text button",w)
window set property b1,"id","1"

`This command creates a button with image
b2=make button(20,50,128,128,"Media\image.bmp",w)
window set property b2,"id","2"

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

a=get clicked button()
if a>0 then last$=str$(a) : last=a
text 20,20,"Last clicked button: "+last$
text 20,40,"id of last clicked button: "+window get property value$(last,"id")



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

Back to top

Profile PM

Da_Rhyno

15

Years of Service

User Offline

Joined: 25th May 2011

Location:

Posted: 15th Oct 2011 04:02

Link

Brendy boy - I tried what you just said and it didn't work.

+ Code Snippet

Rem Project: Free RPG Creator
Rem Created: Friday, October 14, 2011

Rem ***** Main Source File *****

#INCLUDE "BBBGUI_CONSTANTS.dba"

SET DISPLAY MODE 640, 480, 32
SET WINDOW TITLE "Free RPG Creator"

SYNC ON
SYNC RATE 60

START BBB GUI
WINDOWS SET FONT 7, "Arial", 0, 0, 0, 0
WINDOWS SET VISIBILITY 1
db_pro_window = GET DBPRO WINDOW() 
SET MAIN WINDOW db_pro_window
b1 = MAKE BUTTON(20, 20, 40, 40, "Click!", db_pro_window)
WINDOW SET PROPERTY b1, "id", "1"

DO
    
   a = GET CLICKED BUTTON()
   
   IF a = b1
      test = MAKE MESSAGE BOX("Hello there!", "", MB_OK)
   ENDIF

   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?", "", MB_YESNO)
            IF a = IDYES THEN END BBB GUI : END
         ENDIF 
      ENDIF
   UNTIL m = 0
   SYNC
LOOP

Back to top

Profile PM

Brendy boy

20

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 15th Oct 2011 05:42 Edited at: 15th Oct 2011 05:43

Link

i couldn't compile the code, you areen't using the newest version of BBB gui plugin. Check the few last pages, there's somewhere newer update which isn't completed yet thats why it isn't attached to the first post of the BBB gui thread.

After changing the code to be able to compile it i realised that GET CLICKED BUTTON command has a bug -> it doesn't work if the button is on the dbpro window. You can use BBB Button_Clicked(button_handle) command instead. It will return 1 if the specified button is clicked, otherwise 0.

Here is the working code (you'll need the newset version of the BBB GUI)

+ Code Snippet

Rem Project: Free RPG Creator
Rem Created: Friday, October 14, 2011

Rem ***** Main Source File *****



SET DISPLAY MODE 640, 480, 32
SET WINDOW TITLE "Free RPG Creator"

SYNC ON
SYNC RATE 60

START BBB GUI
WINDOWS SET FONT 7, "Arial", 0, 0, 0, 0
WINDOWS SET VISIBILITY 1
db_pro_window = GET DBPRO WINDOW() 
SET MAIN WINDOW db_pro_window
b1 = BBB BUTTON_Make(20, 20, 40, 40, "Click!", db_pro_window)
WINDOW SET PROPERTY b1, "id", "1"

DO
    
   a = BBB Button_GetLastClicked()
   
   IF BBB Button_clicked(b1)
      test = BBB MessageBox("Hello there!", "", MB_OK)
   ENDIF

   REPEAT
      GET EVENT
      h = EVENT GET HANDLE()
      m = EVENT GET MESSAGE()
      IF h = GET MAIN WINDOW()
         IF m = WM_CLOSE
            a = BBB MessageBox("Are you sure you want to quit?", "", MB_YESNO)
            IF a = IDYES THEN END BBB GUI : END
         ENDIF 
      ENDIF
   UNTIL m = 0
   SYNC
LOOP

BBB GUI Plugin
Landscape & Map Creator

Back to top

Profile PM Email

Da_Rhyno

15

Years of Service

User Offline

Joined: 25th May 2011

Location:

Posted: 15th Oct 2011 05:50

Link

Thanks, so do I have to download the newer releases? Just wondering.

Back to top

Profile PM

Brendy boy

20

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 15th Oct 2011 06:06

Link

Quote: "Thanks, so do I have to download the newer releases?"

well, it is advisable but for the above code isn't necesary but then you'll have to figure out what was the syntax for BBB Button_Clicked command in the version you use. I don't have it anymore so i can't tell you. Check in the keyword file. I can only help you if you're using the newest version because that's the only version that is present on my computer

BBB GUI Plugin
Landscape & Map Creator

Back to top

Profile PM Email

Da_Rhyno

15

Years of Service

User Offline

Joined: 25th May 2011

Location:

Posted: 15th Oct 2011 06:40 Edited at: 15th Oct 2011 07:49

Link

Thanks! BTW would you recommend the BBGUI Window designer or is it not fully compatible?

EDIT I just tried BBBGUI Window Designer 1.2 with the most recent version of BBB GUI (your last download in your thread). I called GUI_Init(), and then ran the program and it crashed.

Back to top

Profile PM

Brendy boy

20

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 16th Oct 2011 01:47

Link

Quote: "would you recommend the BBBGUI Window designer or is it not fully compatible?"

if you don't get around with all the commands and parameters BBBGUI provides then Window designer is highly recomended and i believe it is fully compatible with the last version of the BBBGUI

Quote: " I just tried BBBGUI Window Designer 1.2 with the most recent version of BBB GUI (your last download in your thread). I called GUI_Init(), and then ran the program and it crashed. "

For questions about Window designer you'll have to wait for response from it's author - Admiral MH

BBB GUI Plugin
Landscape & Map Creator

Back to top

Profile PM Email

Admiral MH

15

Years of Service

User Offline

Joined: 10th Feb 2011

Location: TX, USA

Posted: 16th Oct 2011 08:26

Link

Quote: "EDIT I just tried BBBGUI Window Designer 1.2 with the most recent version of BBB GUI (your last download in your thread). I called GUI_Init(), and then ran the program and it crashed. "

Without code I don't know what could be the problem, but my guess would be that you did not include "Start BBB GUI" command at the start of your program. If that is not the problem, then you might want to post the code.

Quote: "i believe it is fully compatible with the last version of the BBBGUI"

That is correct. The program uses latest version.

As a side note, BBB GUI Windows Designer 2.0 is in development and should be ready in 1-2 months.

BBB GUI Windows Designer

Back to top

Profile PM

Da_Rhyno

15

Years of Service

User Offline

Joined: 25th May 2011

Location:

Posted: 17th Oct 2011 05:05

Link

Awesome! I'm running into issues though where the controls don't redraw...

#Include "BBBGUI_CONSTANTS.dba"

SYNC ON : SYNC RATE 60
START BBB GUI

GUI_Init()

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?", "", MB_YESNO)
            IF a = IDYES THEN END BBB GUI : END
         ENDIF
      ENDIF
   UNTIL m = 0
   SYNC  
LOOP

Rem =======================================================
Rem BBB GUI Windows Designer Code Export.
Rem Exported with Version 1.2
Rem Exported on 10/15/11 : 12:43:19 AM
Rem This is the setup function that should be called when you create your GUI.
Rem =======================================================

Function GUI_Init()

Rem =========================
Rem Menu Constants
Rem =========================

#Constant GUI_MENU_SAVE 1
#Constant GUI_MENU_EXIT 2
#Constant GUI_MENU_ABOUT 3

Rem =========================
Rem Global Variables
Rem =========================

Global Project_Window

Rem ----------
Rem Menu Globals
Rem ----------

Global GUI_Menu_Handle As Integer
Global GUI_Menu_File_Handle As Integer
Global GUI_Menu_Edit_Handle As Integer
Global GUI_Menu_Help_Handle As Integer

Rem =========================
Rem Setup Code
Rem =========================

Project_Window = Get DBPro Window()
Set Window Size 1024,768
Set Window Position 10,10
Set Window Title "FreeRPGCreator"
Window Set Style Project_Window,Window Get Style(Project_Window)||WS_OVERLAPPEDWINDOW
Set Main Window Project_Window

GUI_CreateMenu()

lbImages = Make Listbox( 4, 25, 150, 403, "Listbox", Project_Window, LBS_STANDARD )
Label4 = Make Label( 5, 3, 148, 20, "Image List", Project_Window )
btLoadImage = Make Button( 4, 433, 149, 25, "Load Image", Project_Window )
lvSpriteListView = Make Listview( 783, 410, 216, 270, 0, LVS_REPORT||LVS_SINGLESEL, Project_Window )
Listview Insert Column lvSpriteListView, 0, "Map Pieces"
Listbox7 = Make Listbox( 781, 14, 218, 397, "Listbox", Project_Window, LBS_STANDARD )

EndFunction

Function GUI_CreateMenu()

GUI_Menu_Handle = BBB Menu_Make()

Rem ----------
Rem File
Rem ----------

GUI_Menu_File_Handle = BBB Submenu_Make()
BBB Menu_AddItem GUI_Menu_Handle,MFT_STRING,"File",GUI_Menu_File_Handle

BBB Submenu_AddItem GUI_Menu_File_Handle,MFT_STRING,GUI_MENU_SAVE,"Save"
BBB Submenu_AddItem GUI_Menu_File_Handle,MFT_STRING,GUI_MENU_EXIT,"Exit"

Rem ----------
Rem Edit
Rem ----------

GUI_Menu_Edit_Handle = BBB Submenu_Make()
BBB Menu_AddItem GUI_Menu_Handle,MFT_STRING,"Edit",GUI_Menu_Edit_Handle

Rem ----------
Rem Help
Rem ----------

GUI_Menu_Help_Handle = BBB Submenu_Make()
BBB Menu_AddItem GUI_Menu_Handle,MFT_STRING,"Help",GUI_Menu_Help_Handle

BBB Submenu_AddItem GUI_Menu_Help_Handle,MFT_STRING,GUI_MENU_ABOUT,"About"

BBB Window_SetMenu Project_Window,GUI_Menu_Handle
BBB Window_RefreshMenu Project_Window

EndFunction

+ Code Snippet

#Include "BBBGUI_CONSTANTS.dba"

SYNC ON : SYNC RATE 60
START BBB GUI

GUI_Init()

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?", "", MB_YESNO)
            IF a = IDYES THEN END BBB GUI : END
         ENDIF
      ENDIF
   UNTIL m = 0
   SYNC  
LOOP



Rem =======================================================
Rem BBB GUI Windows Designer Code Export.
Rem Exported with Version 1.2
Rem Exported on 10/15/11 : 12:43:19 AM
Rem This is the setup function that should be called when you create your GUI.
Rem =======================================================


Function GUI_Init()


Rem =========================
Rem Menu Constants
Rem =========================


#Constant GUI_MENU_SAVE 1
#Constant GUI_MENU_EXIT 2
#Constant GUI_MENU_ABOUT 3


Rem =========================
Rem Global Variables
Rem =========================

Global Project_Window


Rem ----------
Rem Menu Globals
Rem ----------


Global GUI_Menu_Handle As Integer
Global GUI_Menu_File_Handle As Integer
Global GUI_Menu_Edit_Handle As Integer
Global GUI_Menu_Help_Handle As Integer


Rem =========================
Rem Setup Code
Rem =========================

Project_Window = Get DBPro Window()
Set Window Size 1024,768
Set Window Position 10,10
Set Window Title "FreeRPGCreator"
Window Set Style Project_Window,Window Get Style(Project_Window)||WS_OVERLAPPEDWINDOW
Set Main Window Project_Window


GUI_CreateMenu()

lbImages = Make Listbox( 4, 25, 150, 403, "Listbox", Project_Window, LBS_STANDARD )
Label4 = Make Label( 5, 3, 148, 20, "Image List", Project_Window )
btLoadImage = Make Button( 4, 433, 149, 25, "Load Image", Project_Window )
lvSpriteListView = Make Listview( 783, 410, 216, 270, 0, LVS_REPORT||LVS_SINGLESEL, Project_Window )
Listview Insert Column lvSpriteListView, 0, "Map Pieces"
Listbox7 = Make Listbox( 781, 14, 218, 397, "Listbox", Project_Window, LBS_STANDARD )



EndFunction



Function GUI_CreateMenu()

GUI_Menu_Handle = BBB Menu_Make()


Rem ----------
Rem File
Rem ----------

GUI_Menu_File_Handle = BBB Submenu_Make()
BBB Menu_AddItem GUI_Menu_Handle,MFT_STRING,"File",GUI_Menu_File_Handle

BBB Submenu_AddItem GUI_Menu_File_Handle,MFT_STRING,GUI_MENU_SAVE,"Save"
BBB Submenu_AddItem GUI_Menu_File_Handle,MFT_STRING,GUI_MENU_EXIT,"Exit"

Rem ----------
Rem Edit
Rem ----------

GUI_Menu_Edit_Handle = BBB Submenu_Make()
BBB Menu_AddItem GUI_Menu_Handle,MFT_STRING,"Edit",GUI_Menu_Edit_Handle


Rem ----------
Rem Help
Rem ----------

GUI_Menu_Help_Handle = BBB Submenu_Make()
BBB Menu_AddItem GUI_Menu_Handle,MFT_STRING,"Help",GUI_Menu_Help_Handle

BBB Submenu_AddItem GUI_Menu_Help_Handle,MFT_STRING,GUI_MENU_ABOUT,"About"

BBB Window_SetMenu Project_Window,GUI_Menu_Handle
BBB Window_RefreshMenu Project_Window

EndFunction

Back to top

Profile PM

Admiral MH

15

Years of Service

User Offline

Joined: 10th Feb 2011

Location: TX, USA

Posted: 17th Oct 2011 20:47

Link

Quote: "I'm running into issues though where the controls don't redraw..."

Add the WS_CLIPCHILDREN style to your project window, then the controls should draw correctly.

+ Code Snippet

Window Set Style Project_Window,Window Get Style(Project_Window)||WS_OVERLAPPEDWINDOW||WS_CLIPCHILDREN

BBB GUI Windows Designer

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / BBB GUI Problems?