TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 22nd Jun 2007 00:32

Modified: 1st Jan 1970 01:00

Author: SunDawg

Summary

Simple buttons that are easy to code.

Full Description

This is a short program showcasing how to make a 3 state button. Those states being normal, hover, and pressed. With this code, you can easily see how to tell if the button is pressed, how to change the button when pressed, and how to abort the buttons action if the mouse is released off of the button. Just like any other button in linux or windows!

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

global clicked

global hover

global press

cls

while clicked<>1

ink RGB(0, 0, 255),RGB(0, 0, 160)

box screen width()/2-50, screen height()/2-12, screen width()/2+50, screen height()/2+12

if mousein(screen width()/2-50, screen width()/2+50, screen height()/2-12, screen height()/2+12)=1

ink RGB(255,0,0),RGB(0, 0, 160)

box screen width()/2-48, screen height()/2-10, screen width()/2+48, screen height()/2+10

endif

if mousein(screen width()/2-50, screen width()/2+50, screen height()/2-12, screen height()/2+12)=0

ink RGB(0, 128, 255),RGB(0, 0, 160)

box screen width()/2-48, screen height()/2-10, screen width()/2+48, screen height()/2+10

endif

if mousein(screen width()/2-50, screen width()/2+50, screen height()/2-12, screen height()/2+12)=1

if mouseclick()=1

while mouseclick()=1

ink RGB(255, 255, 0),RGB(0, 0, 160)

box screen width()/2-48, screen height()/2-10, screen width()/2+48, screen height()/2+10

ink RGB(0, 0, 0),RGB(0,0,160)

center text screen width()/2, screen height()/2-7, "Ok"

endwhile

if mousein(screen width()/2-50, screen width()/2+50, screen height()/2-12, screen height()/2+12)=1

clicked=1

endif

ink RGB(0,0,0), RGB(0, 0, 160)

center text screen width()/2, screen height()/2-8, "Ok"

endwhile

end

function mousein(left,right,top,bottom)

hover=0

if mousex()>left then if mousex()<right then if mousey()>top then if mousey()<bottom then hover=1

CodeBase - Simple buttons

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	SunDawg
CodeBase Entries:	6