TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Miscellaneous

Version: 1.1

Information

Uploaded: 26th Feb 2010 15:07

Modified: 26th Feb 2010 17:13

Author: Hawkblood

Summary

A simple menu GUI utility.

Full Description

Sorry. EXE was too big to fit into 500KB so I excluded it. Just compile and have fun.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem ***** Included Source File *****

global MenusInitialized as boolean =0

global TextWidthConstant as integer

global MouseScroll as integer

type MENUDRAG

DragValue as integer

Draging as integer

MX as integer

MY as integer

Button as integer

endtype

type MENUITEMTYPE

ID$ as string

Caption$ as string

LocationX as integer

LocationY as integer

SizeX as integer

SizeY as integer

Style as integer 	`0=push button, 1=toggle button, 2=list, 3=dropdown list, 4=label

Group as integer

State as integer

Selection as integer

Image as integer

SpriteNum as integer

ShowListStart as integer

Color as DWORD

endtype

type GROUPTYPE

Caption$ as string

Image as integer

SizeX as integer

SizeY as integer

Show as boolean

Movable as boolean

endtype

function InitMenu(MaxMenuItems as integer , MaxEntries as integer ,StartImageNumber as integer ,MaxGroups as integer )

TextWidthConstant=10

MouseScroll=0

global FirstImageNumber as integer =StartImageNumber

global MaxNumberOfGroups as integer =MaxGroups

global MaxNumberOfEntries as integer =MaxEntries

global MaxNumberOfMenuItems as integer =MaxMenuItems

global MenuImageStart as integer =StartImageNumber	`**************** may not need this

global dim StringList$(MaxMenuItems,MaxEntries) as string

global dim NumberOfEntries(MaxMenuItems) as integer

global dim Group(MaxGroups) as GROUPTYPE

global dim GroupPriorityList(MaxGroups+1) as integer

global NumberInPriorityList as integer =0

global TopGroup as integer =0

global GroupDraging as MENUDRAG

global NumberOfMenuItems as integer =0

global MClick as integer =0

for i=0 to MaxGroups

Group(i).Image=StartImageNumber

Group(i).Show=0

Group(i).Movable=1

inc StartImageNumber

next i

global dim MenuItem(MaxMenuItems) as MENUITEMTYPE

for i=0 to MaxMenuItems

MenuItem(i).SpriteNum=StartImageNumber

MenuItem(i).Group=-1

MenuItem(i).Color=rgb(100,100,100)

NumberOfEntries(i)=0

inc StartImageNumber

next i

global ButtonImage as integer =StartImageNumber

load image "MenuItemsbutton.jpg",ButtonImage

inc StartImageNumber

global ArrowImage as integer =StartImageNumber

load image "MenuItemsdownarrow.jpg",ArrowImage

sprite ArrowImage,0,0,ArrowImage

size sprite ArrowImage,10,10

hide sprite ArrowImage

inc StartImageNumber

global ToggleOnImage as integer =StartImageNumber

load image "MenuItemsToggleOn.jpg",ToggleOnImage

inc StartImageNumber

global ToggleOffImage as integer =StartImageNumber

load image "MenuItemsToggleOff.jpg",ToggleOffImage

inc StartImageNumber

MenusInitialized=1

global LastImageNumber as integer =StartImageNumber

endfunction StartImageNumber

function DestroyMenus()

if MenusInitialized=0 then exitfunction

`destroy all images and sprites

for i=FirstImageNumber to LastImageNumber

if image exist(i) then DELETE IMAGE i

if sprite exist(i) then delete sprite i

next i

undim StringList$()

undim Group()

undim MenuItem()

undim NumberOfEntries()

undim GroupPriorityList()

`destroy all menuitems and group items

endfunction

function ShowGroup(GroupNumber as integer )

if MenusInitialized=0 then exitfunction

Group(GroupNumber).Show=1

`	show sprite Group(GroupNumber).Image

endfunction

function HideGroup(GroupNumber as integer )

if MenusInitialized=0 then exitfunction

Group(GroupNumber).Show=0

`	hide sprite Group(GroupNumber).Image

endfunction

function SetGroupLocation(GroupNumber as integer ,LocX as integer ,LocY as integer )

if MenusInitialized=0 then exitfunction

sprite Group(GroupNumber).Image,LocX,LocY,Group(GroupNumber).Image

endfunction

function SetGroupSize(GroupNumber as integer ,SX as integer ,SY as integer )

if MenusInitialized=0 then exitfunction

Group(GroupNumber).SizeX=SX

Group(GroupNumber).SizeY=SY

size sprite Group(GroupNumber).Image,SX,SY

endfunction

function SetGroupCaption(GroupNumber as integer ,Caption$ as string )

if MenusInitialized=0 then exitfunction

Group(GroupNumber).Caption$=Caption$

endfunction

function SetGroupMovability(GroupNumber as integer ,Movable as boolean )

if MenusInitialized=0 then exitfunction

Group(GroupNumber).Movable=Movable

endfunction

function SetGroupImage(GroupNumber as integer ,FileName$ as string ,SX as integer ,SY as integer )

if MenusInitialized=0 then exitfunction

if GroupNumber<=MaxNumberOfGroups

load image FileName$,Group(GroupNumber).Image

sprite Group(GroupNumber).Image,0,0,Group(GroupNumber).Image

ShowGroup(GroupNumber)

hide sprite Group(GroupNumber).Image

Group(GroupNumber).SizeX=SX

Group(GroupNumber).SizeY=SY

size sprite Group(GroupNumber).Image,SX,SY

TopGroup=GroupNumber

GroupPriorityList(NumberInPriorityList)=GroupNumber `this will put the newest one on top

inc NumberInPriorityList

endif

endfunction

function SetGroupToTop(GroupNumber as integer )

if MenusInitialized=0 then exitfunction

for i=0 to NumberInPriorityList-1

if GroupPriorityList(i)=-1

GroupPriorityList(i)=GroupPriorityList(i+1)

GroupPriorityList(i+1)=-1

endif

next i

GroupPriorityList(NumberInPriorityList-1)=GroupNumber

endfunction

function CheckMenus()

`must size sprite to 1,1 to do the check so the collision works correctly

SX=SPRITE SCALE X(MouseSprite)

SY=SPRITE SCALE Y(MouseSprite)

size sprite MouseSprite,1,1

OverButton as integer

OverButton=0

InGroup as integer

InGroup=0

if mouseclick()=1

inc MClick

if MClick>100 then MClick=100

else

MClick=0

endif

`check input

MouseScroll=-MOUSEMOVEZ()/10

if MouseScroll<>0

`check the topmenu for any open scrollers

for b=0 to NumberOfMenuItems-1

if MenuItem(b).Group=TopGroup and (MenuItem(b).Style=2 or MenuItem(b).Style=3)

if MenuItem(b).State=1

if sprite collision(MouseSprite,MenuItem(b).SpriteNum)=1

MenuItem(b).ShowListStart=MenuItem(b).ShowListStart+MouseScroll

if MenuItem(b).ShowListStart<0 then MenuItem(b).ShowListStart=0

endif

next b

endif

if MClick>0

for i=NumberInPriorityList-1 to 0 step -1

if GroupPriorityList(i)=TopGroup

`check to see if it's within the group area

if sprite collision(MouseSprite,Group(GroupPriorityList(i)).Image)=1

InGroup=1

`************************ check menu items ***********************

for b=0 to NumberOfMenuItems-1

if MenuItem(b).Style=4 then inc b

if b>NumberOfMenuItems-1 then exit

if sprite collision(MouseSprite,MenuItem(b).SpriteNum)=1 and MenuItem(b).Group=TopGroup

OverButton=1

GroupDraging.DragValue=0

if MenuItem(b).Style=0 `regular push-and-release button

inc MenuItem(b).State

if MenuItem(b).State>100 then MenuItem(b).State=100

endif

if MenuItem(b).Style=1 and MClick=1 `"toggle button"

MenuItem(b).State=1-MenuItem(b).State

endif

if MenuItem(b).Style=2 or MenuItem(b).Style=3 `"list" or "dropdown"

MLX=mousex()-MenuItem(b).LocationX-sprite x(Group(TopGroup).Image)

MLY=mousey()-MenuItem(b).LocationY-sprite y(Group(TopGroup).Image)

if MenuItem(b).Style=3 and MLY<20 and MClick=1 `check for bring list down

MenuItem(b).State=1-MenuItem(b).State

endif

if MenuItem(b).Style=2 or MenuItem(b).State=1

if (MClick=1 or MClick>50)

if MLX<MenuItem(b).SizeX and MLX>MenuItem(b).SizeX-11

if MLY>19 and MLY<30

dec MenuItem(b).ShowListStart

if MenuItem(b).ShowListStart<0 then MenuItem(b).ShowListStart=0

endif

if MLY>MenuItem(b).SizeY-11 and MLY<MenuItem(b).SizeY

inc MenuItem(b).ShowListStart

if MenuItem(b).ShowListStart>NumberOfEntries(b) then MenuItem(b).ShowListStart=NumberOfEntries(b)

endif

if MLX<MenuItem(b).SizeX and MLX>MenuItem(b).SizeX-11 and MLY>29 and MLY<MenuItem(b).SizeY-10 `on the slider

s# as float

s#=(MenuItem(b).SizeY-40)

s#=s#/NumberOfEntries(b)

MenuItem(b).ShowListStart=(MLY-30)/s#

if MenuItem(b).ShowListStart<0 then MenuItem(b).ShowListStart=0

endif

if MLX>0 and MLX<MenuItem(b).SizeX-11 and MLY>20 and MLY<MenuItem(b).SizeY

MenuItem(b).Selection=MenuItem(b).ShowListStart+(MLY-20)/TEXT SIZE()

if MenuItem(b).Selection>MenuItem(b).ShowListStart+((MenuItem(b).SizeY-20)/TEXT SIZE())-1 then MenuItem(b).Selection=MenuItem(b).ShowListStart+((MenuItem(b).SizeY-20)/TEXT SIZE())-1

if  MenuItem(b).Style=3 and MenuItem(b).State=1

MenuItem(b).State=0

MenuItem(b).Caption$=FIRST TOKEN$(StringList$(b,MenuItem(b).Selection),"&&")

endif

GroupDraging.Button=b

endif

next b

`****************************************************************

if OverButton=0 `clicked on group area

inc GroupDraging.DragValue

if GroupDraging.DragValue>100 then GroupDraging.DragValue=100

if GroupDraging.DragValue>5 `drag

MX=mousex()-GroupDraging.MX

MY=mousey()-GroupDraging.MY

sprite Group(GroupPriorityList(i)).Image,MX,MY,Group(GroupPriorityList(i)).Image

else `not draging yet

if Group(GroupPriorityList(i)).Movable=1

GroupDraging.DragValue=6

GroupDraging.MX=mousex()-sprite x(Group(GroupPriorityList(i)).Image)

GroupDraging.MY=mousey()-sprite y(Group(GroupPriorityList(i)).Image)

else GroupDraging.DragValue=0

endif

else `not in the top group

if sprite collision(MouseSprite,Group(GroupPriorityList(i)).Image)=1 and InGroup=0 and Group(GroupPriorityList(i)).Show=1

`make this one on top

TopGroup=GroupPriorityList(i)

GroupPriorityList(i)=-1

SetGroupToTop(TopGroup)

goto OutOfLoop `this jump is to ensure that no other groups get pushed to the top

endif

next i

else

GroupDraging.DragValue=0

endif

OutOfLoop:

`*************************************************************  render groups  **************************************************

for i=0 to NumberInPriorityList-1

if Group(GroupPriorityList(i)).Show=1

`show the group sprite

paste sprite Group(GroupPriorityList(i)).Image,sprite x(Group(GroupPriorityList(i)).Image),sprite y(Group(GroupPriorityList(i)).Image)

`show the group caption

center text sprite x(Group(GroupPriorityList(i)).Image)+Group(GroupPriorityList(i)).SizeX/2,sprite y(Group(GroupPriorityList(i)).Image)+5,Group(GroupPriorityList(i)).Caption$

for m=0 to NumberOfMenuItems-1

if MenuItem(m).Group=GroupPriorityList(i)

`show the menu items within group

MX=sprite x(Group(GroupPriorityList(i)).Image)+MenuItem(m).LocationX

MY=sprite y(Group(GroupPriorityList(i)).Image)+MenuItem(m).LocationY

if MenuItem(m).Style<2

if MenuItem(m).State>0

if MenuItem(m).Style=0 then SET SPRITE DIFFUSE MenuItem(m).SpriteNum,100,100,255

if m=GroupDraging.Button

if mouseclick()=0 and MenuItem(m).Style=0

MenuItem(m).State=0

GroupDraging.Button=-1

endif

if MenuItem(m).State=0 then SET SPRITE DIFFUSE MenuItem(m).SpriteNum,255,255,255

endif

if MenuItem(m).Style=3

if MenuItem(m).State=1

size sprite MenuItem(m).SpriteNum,MenuItem(m).SizeX,MenuItem(m).SizeY

else

size sprite MenuItem(m).SpriteNum,MenuItem(m).SizeX,20

endif

if MenuItem(m).Style<4

sprite MenuItem(m).SpriteNum,MX,MY,MenuItem(m).Image

paste sprite MenuItem(m).SpriteNum,MX,MY

endif

if MenuItem(m).Style=2

box MX,MY,MX+MenuItem(m).SizeX,MY+20,MenuItem(m).Color,MenuItem(m).Color,MenuItem(m).Color,MenuItem(m).Color

EndList=MenuItem(m).ShowListStart+((MenuItem(m).SizeY-20)/TEXT SIZE())-1

if EndList>NumberOfEntries(m)-1

EndList=NumberOfEntries(m)-1

MenuItem(m).ShowListStart=EndList-(((MenuItem(m).SizeY-20)/TEXT SIZE())-1)

if MenuItem(m).ShowListStart<0 then MenuItem(m).ShowListStart=0

endif

`show the listed strings

for e=MenuItem(m).ShowListStart to EndList

S$ as string

S$=left$(FIRST TOKEN$(StringList$(m,e),"&&"),(MenuItem(m).SizeX)/TextWidthConstant)

if len(S$)<len(FIRST TOKEN$(StringList$(m,e),"&&")) then S$=S$+".."

if e=MenuItem(m).Selection then box MX+5,MY+(e-MenuItem(m).ShowListStart)*TEXT SIZE()+20,MX+MenuItem(m).SizeX-10,MY+((e-MenuItem(m).ShowListStart)+1)*TEXT SIZE()+20,rgb(100,100,100),rgb(150,150,150),rgb(100,100,100),rgb(150,150,150)

text MX+5,MY+(e-MenuItem(m).ShowListStart)*TEXT SIZE()+20,S$

next e

`show scroll bar stuff (must be within the menuitem area....

box MX+MenuItem(m).SizeX-10,MY+20,MX+MenuItem(m).SizeX,MY+MenuItem(m).SizeY,rgb(100,100,150),rgb(100,100,150),rgb(100,100,150),rgb(100,100,150)

flip sprite ArrowImage

paste sprite ArrowImage,MX+MenuItem(m).SizeX-10,MY+20

flip sprite ArrowImage

paste sprite ArrowImage,MX+MenuItem(m).SizeX-10,MY+MenuItem(m).SizeY-10

`show the position of scroller

LX=MX+MenuItem(m).SizeX-10

YV# as float

YV#=MenuItem(m).ShowListStart

YV#=YV#/NumberOfEntries(m)

YV#=YV#*(MenuItem(m).SizeY-40)

LY=MY+30+YV#

YV#=(EndList-MenuItem(m).ShowListStart)+1

YV#=YV#/NumberOfEntries(m)

YV#=YV#*(MenuItem(m).SizeY-40)

box LX,LY,LX+10,LY+YV#

endif

if MenuItem(m).Style=3

box MX,MY,MX+MenuItem(m).SizeX,MY+20,MenuItem(m).Color,MenuItem(m).Color,MenuItem(m).Color,MenuItem(m).Color

paste sprite ArrowImage,MX+MenuItem(m).SizeX-10,MY+5

if MenuItem(m).State=1

EndList=MenuItem(m).ShowListStart+((MenuItem(m).SizeY-20)/TEXT SIZE())-1

if EndList>NumberOfEntries(m)-1

EndList=NumberOfEntries(m)-1

MenuItem(m).ShowListStart=EndList-(((MenuItem(m).SizeY-20)/TEXT SIZE())-1)

if MenuItem(m).ShowListStart<0 then MenuItem(m).ShowListStart=0

endif

`show the listed strings

for e=MenuItem(m).ShowListStart to EndList

S$ as string

S$=left$(FIRST TOKEN$(StringList$(m,e),"&&"),(MenuItem(m).SizeX)/TextWidthConstant)

if len(S$)<len(FIRST TOKEN$(StringList$(m,e),"&&")) then S$=S$+".."

text MX+5,MY+(e-MenuItem(m).ShowListStart)*TEXT SIZE()+20,S$

next e

`show scroll bar stuff (must be within the menuitem area....

box MX+MenuItem(m).SizeX-10,MY+20,MX+MenuItem(m).SizeX,MY+MenuItem(m).SizeY,rgb(100,100,150),rgb(100,100,150),rgb(100,100,150),rgb(100,100,150)

flip sprite ArrowImage

paste sprite ArrowImage,MX+MenuItem(m).SizeX-10,MY+20

flip sprite ArrowImage

paste sprite ArrowImage,MX+MenuItem(m).SizeX-10,MY+MenuItem(m).SizeY-10

`show the position of scroller

LX=MX+MenuItem(m).SizeX-10

YV# as float

YV#=MenuItem(m).ShowListStart

YV#=YV#/NumberOfEntries(m)

YV#=YV#*(MenuItem(m).SizeY-40)

LY=MY+30+YV#

YV#=(EndList-MenuItem(m).ShowListStart)+1

YV#=YV#/NumberOfEntries(m)

YV#=YV#*(MenuItem(m).SizeY-40)

box LX,LY,LX+10,LY+YV#

endif

if MenuItem(m).Style=4 `label

box MX,MY,MX+MenuItem(m).SizeX,MY+MenuItem(m).SizeY,MenuItem(m).Color,MenuItem(m).Color,MenuItem(m).Color,MenuItem(m).Color

endif

`show the text for each menu item

if MenuItem(m).Style=1

if MenuItem(m).State=1

paste image ToggleOnImage,MX+2,MY+2

else paste image ToggleOffImage,MX+2,MY+2

endif

MX=MX+8

endif

center text MX+MenuItem(m).SizeX/2,MY+2,MenuItem(m).Caption$

endif

next m

endif

next i

`restore sprite size

size sprite MouseSprite,32,32

endfunction

function MakeMenuItem(ID$ as string ,Caption$ as string ,X as integer ,Y as integer SX as integer ,SY as integer ,Style as integer ,Group as integer )

`fill in the data

MenuItem(NumberOfMenuItems).ID$=ID$

MenuItem(NumberOfMenuItems).Caption$=Caption$

MenuItem(NumberOfMenuItems).LocationX=X

MenuItem(NumberOfMenuItems).LocationY=Y

MenuItem(NumberOfMenuItems).SizeX=SX

MenuItem(NumberOfMenuItems).SizeY=SY

MenuItem(NumberOfMenuItems).Style=Style

MenuItem(NumberOfMenuItems).Group=Group

MenuItem(NumberOfMenuItems).State=0

MenuItem(NumberOfMenuItems).Selection=-1

MenuItem(NumberOfMenuItems).Image=-1

`	MenuItem(NumberOfMenuItems).SpriteNum is already set

if MenuItem(NumberOfMenuItems).Style<2 `simple button

MenuItem(NumberOfMenuItems).SizeX=len(Caption$)*TextWidthConstant

MenuItem(NumberOfMenuItems).SizeY=20

if Style=1 then MenuItem(NumberOfMenuItems).SizeX=MenuItem(NumberOfMenuItems).SizeX+16

sprite MenuItem(NumberOfMenuItems).SpriteNum,SX+sprite x(Group(Group).Image),SY+sprite y(Group(Group).Image),ButtonImage

MenuItem(NumberOfMenuItems).Image=ButtonImage

size sprite MenuItem(NumberOfMenuItems).SpriteNum,MenuItem(NumberOfMenuItems).SizeX,MenuItem(NumberOfMenuItems).SizeY

hide sprite MenuItem(NumberOfMenuItems).SpriteNum `this is needed for proper operation

endif

if MenuItem(NumberOfMenuItems).Style=2 `list

MenuItem(NumberOfMenuItems).SizeX=SX

MenuItem(NumberOfMenuItems).SizeY=SY

sprite MenuItem(NumberOfMenuItems).SpriteNum,SX+sprite x(Group(Group).Image),SY+sprite y(Group(Group).Image),ButtonImage

MenuItem(NumberOfMenuItems).Image=ButtonImage

MenuItem(NumberOfMenuItems).State=1 `ALLWAYS SHOWING OPEN

size sprite MenuItem(NumberOfMenuItems).SpriteNum,MenuItem(NumberOfMenuItems).SizeX,MenuItem(NumberOfMenuItems).SizeY

hide sprite MenuItem(NumberOfMenuItems).SpriteNum `this is needed for proper operation

SET SPRITE DIFFUSE MenuItem(NumberOfMenuItems).SpriteNum,100,100,100

endif

if MenuItem(NumberOfMenuItems).Style=3 `dropdown

MenuItem(NumberOfMenuItems).SizeX=SX

MenuItem(NumberOfMenuItems).SizeY=SY

sprite MenuItem(NumberOfMenuItems).SpriteNum,SX+sprite x(Group(Group).Image),SY+sprite y(Group(Group).Image),ButtonImage

MenuItem(NumberOfMenuItems).Image=ButtonImage

size sprite MenuItem(NumberOfMenuItems).SpriteNum,MenuItem(NumberOfMenuItems).SizeX,20

hide sprite MenuItem(NumberOfMenuItems).SpriteNum `this is needed for proper operation

SET SPRITE DIFFUSE MenuItem(NumberOfMenuItems).SpriteNum,100,100,100

endif

inc NumberOfMenuItems

endfunction

function AddEntryToMenuItem(ID$ as string ,EntryString$ as string )

for i=0 to NumberOfMenuItems

if ID$=MenuItem(i).ID$ and NumberOfEntries(i)<MaxNumberOfEntries

StringList$(i,NumberOfEntries(i))=EntryString$

MenuItem(i).ShowListStart=0

inc NumberOfEntries(i)

endif

next i

endfunction

function SetMenuItemSelection(ID$ as string ,Selection as integer )

for i=0 to NumberOfMenuItems

if ID$=MenuItem(i).ID$ and Selection<NumberOfEntries(i) then MenuItem(i).Selection=Selection

next i

endfunction

function ColorMenuItem(ID$ as string ,r as byte ,g as byte ,b as byte )

for i=0 to NumberOfMenuItems

if ID$=MenuItem(i).ID$ then MenuItem(i).Color=rgb(r,g,b)

next i

endfunction

function ColorAllMenuItems(r as byte ,g as byte ,b as byte )

for i=0 to NumberOfMenuItems

MenuItem(i).Color=rgb(r,g,b)

next i

endfunction

function GetMenuItemState(ID$ as string )

State as boolean

State=0

for i=0 to NumberOfMenuItems

if ID$=MenuItem(i).ID$ then State=MenuItem(i).State

next i

endfunction State

function ClearMenuItemEntries(ID$ as string )

for i=0 to NumberOfMenuItems

if ID$=MenuItem(i).ID$

for e=0 to NumberOfEntries(i)

StringList$(i,e)=""

next e

NumberOfEntries(i)=0

endif

next i

endfunction

Download

Please login to download

Comments

No comments yet.

CodeBase - Menu Utility

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Hawkblood
CodeBase Entries:	3