TheGameCreators - CodeBase - basic 2D button subroutine with draw, hover and select

Category: Basic 2D

Version: 1.0

Information

Uploaded: 6th Sep 2008 04:20

Modified: 1st Jan 1970 01:00

Author: dark nooby

Summary

This routine is designed to be modified and pasted into existing projects but probably needs some further integrating and speed enhancing done to it.

Full Description

The first section of the code is only there to show what variables i used.<br /> The second section is the main loop and only there to demonstrate how the routine works within the program.<br /> The third section contains the actual subroutine that gets copied and pasted.<br /> <br /> your criticisms are welcome as i am a dark basic beginner and need all the help i can get

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem this show variables and prerequisites to the subroutine

rem

x = 0 : y = 0 : xscale = 50 : yscale = 50 : rem used for button position and size

mousepx = 0 : mousepy = 0 : rem used for mouse pointer position and testing purposes

colorflag = 0 : rem not used this time around :(

selection = 0 : rem used to store which button was clicked by mouse

buttontrace = 0 : rem used with selection variable to store which button was clicked

buttonname$ = " "  : textwidth = 0 : textheight = 0 : rem used to center text on the button

sync on

rem main loop used for testing this routine

if buttontrace = 8 then cls

rem plot mouse co-ordinates

mousepx = mousex()

mousepy = mousey()

rem display menu

buttontrace = 1 :buttonname$ = "10": x = 5 : y = 300 : gosub drawbutton

buttontrace = 2 :buttonname$ = "2": x = 5 : y = 375 : gosub drawbutton

buttontrace = 3 :buttonname$ = "300": x = 110 : y = 300 : gosub drawbutton

buttontrace = 4 :buttonname$ = "4": x = 110 : y = 375 : gosub drawbutton

buttontrace = 5 :buttonname$ = "5": x = 210 : y = 300 : gosub drawbutton

buttontrace = 6 :buttonname$ = "6": x = 210 : y = 375 : gosub drawbutton

buttontrace = 7 :buttonname$ = "7": x = 310 : y = 300 : gosub drawbutton

buttontrace = 8 :buttonname$ = "8000": x = 310 : y = 375 : gosub drawbutton

set cursor 0,0 : ink rgb(250,250,250),0

print "x = ";mousepx;"     y = ";mousepy

sync

if escapekey() = 1 then end

loop

rem =========================================================================

rem                  this is the actual routine!!!!!!!!

rem =========================================================================

rem draw button then check for hover and mouseclick

drawbutton:

textwidth = text width(buttonname$)

textwidth = int(xscale/2)-(textwidth/2)

textheight = text height(buttonname$)

textheight = int(yscale/2)-(textheight/2)

if mousepx > x and mousepy > y and mousepx < x+xscale and mousepy < y+yscale

ink rgb(0,250,0),0

box x,y,x + xscale, y + yscale

ink 0,rgb(0,250,0)

text x + textwidth ,y + textheight,buttonname$

if mouseclick() = 1

ink rgb(250,0,0),0

box x,y,x + xscale, y + yscale

ink 0,rgb(250,0,0)

text x + textwidth ,y + textheight,buttonname$

selection = buttontrace

endif

else

ink rgb(250,250,250),0

box x,y,x + xscale, y + yscale

ink 0,rgb(250,250,250)

text x + textwidth ,y + textheight,buttonname$

endif

return

Download

Please login to download

Comments

No comments yet.

Author Name:	dark nooby
CodeBase Entries:	1

CodeBase - basic 2D button subroutine with draw, hover and select

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments