TheGameCreators - CodeBase - Create simple Windows style buttons

Return to the CodeBase listing

Category: Basic 2D

Version: 1.0

Information

Uploaded: 17th Mar 2007 16:17

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

Create simple Windows style buttons(3D) with some already built functions

Full Description

Functions that help you easily draw and control your buttons for your Graphical User Interface. See the Remarks on top of the source code for help. No change is required in the functions. The buttons are orthogonal with many ready to use variables like position,size,color,text,and more. For creating something different than this you must change the drawing code in functions DrawButton and DrawButtonPressed(if not more). I hope this code is helpful to anyone.<br /> <br /> In my computer the code was working great...<br /> Sorry if that doesn't apply to others...(I have felt let down by many other codes i have tested from THE CODEBASE)

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem Project: ButtonCreator

Rem Created: 27/3/2005 11:09:00 Ã¬Ã¬

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

REM       TO ADD MORE BUTTONS

REM  1) increase the DIM button number (line 37) to as many buttons you like,

REM

REM  2) put your individual parameters for your new button like x,y position

REM     color,shadowcolor,text and textcolor. (line 39)

REM

REM  3) make a new DrawButton call with the button's parameters after

REM     the LOAD IMAGE command (line 56),

REM     (see the function DrawButton for help with the parameters)

REM

REM  4) make a new ControlButton call with the button's parameters AND

REM     button number (that's why we increased the dim number) into the

REM     main REPEAT-UNTIL loop (line 61).

REM     (for help with the parameters see the function ControlButton)

REM

REM     Check out the 3 buttons that are already there for help

type buttontype

clicked as integer

released as integer

x as integer

y as integer

buttonheight as integer

buttoncolor as integer

shadowcolor as integer

text$ as string

textcolor as integer

endtype

dim button(3) as buttontype

REM  Your Buttons Parameters

REM =========================

buttonthickness = 2

buttonwidth = 100

buttonheight = 40

buttoncolor = RGB(192,192,192)

shadowcolor = RGB(128,128,128)

text$ = "EXIT"

textcolor = RGB(0,0,0)

button(1).x = 100 : button(1).y = 300

button(2).x = 250 : button(2).y = 300

button(3).x = 400 : button(3).y = 300

load bitmap "images\metal.bmp",0

for i = 1 to 3

DrawButton(button(i).x,button(i).y,button(i).x+buttonwidth,button(i).y+buttonheight,buttonthickness,buttoncolor,shadowcolor,text$,textcolor)

next i

repeat

for i = 1 to 3

Button(i).released = controlbutton(button(i).x,button(i).y,button(i).x+buttonwidth,button(i).y+buttonheight,buttonthickness,buttoncolor,shadowcolor,text$,textcolor,i)

next i

until Button(3).released = 1

Function DrawButton(x1,y1,x2,y2,buttonheight,buttoncolor,shadowcolor,text$,textcolor)

ink shadowcolor,0

box x1,y1,x2+buttonheight,y2+buttonheight

ink buttoncolor,0

box x1,y1,x2,y2

ink buttoncolor,0

line x2,y2,x2+buttonheight,y2+buttonheight

ink textcolor,0

center text (x1+x2)/2,(y1+y2-text height(text$))/2,text$

endfunction

Function DrawButtonPressed(x1,y1,x2,y2,buttonheight,buttoncolor,shadowcolor,text$,textcolor)

ink shadowcolor,0

box x1,y1,x2+buttonheight,y2+buttonheight

ink buttoncolor,0

box x1+buttonheight,y1+buttonheight,x2+buttonheight,y2+buttonheight

ink textcolor,0

center text ((x1+x2)/2)+buttonheight,(y1+y2-text height(text$))/2+buttonheight,text$

endfunction

Function ControlButton(x1,y1,x2,y2,buttonheight,buttoncolor,shadowcolor,text$,textcolor,buttonnumber)

if (mousex() > x1) and (mousex() < x2)

xin=1

else

xin=0

endif

if (mousey() > y1) and (mousey() < y2)

yin=1

else

yin=0

endif

if (xin=1) and (yin=1)

mousein=1

else

mousein=0

endif

if (mouseclick() = 1) and mousein = 1 and button(buttonnumber).clicked=0

button(buttonnumber).clicked = 1

DrawButtonPressed(x1,y1,x2,y2,buttonheight,buttoncolor,shadowcolor,text$,textcolor)

endif

if mousein = 0 and button(buttonnumber).clicked=1

button(buttonnumber).clicked = 0

DrawButton(x1,y1,x2,y2,buttonheight,buttoncolor,shadowcolor,text$,textcolor)

endif

if (button(buttonnumber).clicked = 1) and (mousein = 1) and (mouseclick() = 0)

DrawButton(x1,y1,x2,y2,buttonheight,buttoncolor,shadowcolor,text$,textcolor)

Button(buttonnumber).released = 1

Button(buttonnumber).clicked=0

else

Button(buttonnumber).released = 0

endif

k = Button(buttonnumber).released

endfunction k

Download

Please login to download

Comments

No comments yet.

Author Name:	Anonymous Coder
CodeBase Entries:	2

CodeBase - Create simple Windows style buttons

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments