Snippet - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|639\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Text and GUI's

mike_g	Created : 16 December 2006 Dropdown Menu
A dropdown menu function with a little demo prog: Graphics 1024, 768 SetBuffer BackBuffer() ;----------------------------------------------------------------------------------------------------- ;********************!!! GLOBALS NEEDED IN PROGRAM !!! ***************************************** Global menuopen, listlength, x_select ;Menu variables Global sublength, y_substart, parentnum ;Submenu variables Global inputstring$ ;Selected action Const menu_fields = 10 ;Set array dimensions Const list_fields = 10 Const sub_fields = 10 Dim menus$(menu_fields, list_fields, sub_fields) ;Create the array Global dropdown_font_1 = LoadFont(verdana ,16 , True, False,False) ;First font is for titles Global dropdown_font_2 = LoadFont(verdana ,16 , False, False,False) ;Second font for list items ;************************************************************************************************* ;----------------------------------------------------------------------------------------------------- Global demofont = LoadFont(verdana ,30 , True, False,False) inputstring$ = "Nothing yet" ;Declare Menu Titles menus$(0,0,0) = "File" menus$(1,0,0) = "Options" menus$(2,0,0) = "Preferences" menus$(3,0,0) = "Graphics" menus$(4,0,0) = "Sound" menus$(5,0,0) = "Controls" menus$(8,0,0) = "Other Things" ;Name items on menu lists menus$(0,1,0) = "New" menus$(0,2,0) = "Save" menus$(0,3,0) = "Save As" menus$(0,4,0) = "Load" menus$(0,5,0) = "Quit" menus$(1,1,0) = "Option 1" menus$(1,2,0) = "Option 2" menus$(1,3,0) = "Option 3" menus$(1,4,0) = "Option 4" menus$(1,5,0) = "Option 5" menus$(1,6,0) = "Option 6" menus$(1,7,0) = "Option 7" menus$(1,8,0) = "Option 8" menus$(1,9,0) = "Option 9" menus$(2,1,0) = "Preference 1" menus$(2,2,0) = "Preference 2" menus$(3,1,0) = "Nice" menus$(3,2,0) = "Not So Nice" menus$(3,3,0) = "Bad" menus$(4,1,0) = "On" menus$(4,2,0) = "Off" menus$(5,1,0) = "Cofigure" menus$(8,1,0) = "This Thing" menus$(8,2,0) = "That Thing" menus$(8,3,0) = "Something" menus$(8,4,0) = "Nothing" menus$(8,5,0) = "Everything" ;Name items in sub lists menus$(0,1,1) = "Big Thing" menus$(0,1,2) = "Medium Thing" menus$(0,1,3) = "Small Thing" menus$(0,1,4) = "Other Thing" menus$(0,3,1) = "This" menus$(0,3,2) = "That" menus$(0,3,3) = "Whatever" menus$(1,3,1) = "Woohoo" menus$(1,3,2) = "Somethings" menus$(1,3,3) = "Here" menus$(1,3,4) = "Meso" menus$(1,3,5) = "Clever" menus$(1,8,1) = "Sub List 1" menus$(1,8,2) = "Sub List 2" menus$(1,8,3) = "Sub List 3" menus$(1,8,4) = "Sub List 4" menus$(1,8,5) = "Sub List 5" ;------------------------------------------------------------------------------------------------------- ;************************** MAIN LOOP ********************************************************** ;------------------------------------------------------------------------------------------------------- While Not KeyHit(1) Cls DROPDOWNMENU(1024, 20) Color 255, 255, 255: Rect MouseX(), MouseY(), 3, 3, 1 SetFont demofont: Color 100, 100, 100 :Text 330, 500, "You have selected: "+inputstring$ Flip Wend ;------------------------------------------------------------------------------------------------------- ;************************** FUNCTION ************************************************************* ;------------------------------------------------------------------------------------------------------- ;"BAR_WIDTH" SHOULD BE GRAPHICS X RESOLUTION UNLESS YOU WANT THE BAR TO ONLY SPAN PART OF THE SCREEN ;"BAR_HEIGHT" DETERMINES THE HEIGHT OF THE BAR, FONT SIZES SHOULD BE SET APPROPRIATELY ;THE BAR IS DIVIDED INTO AN AMOUNT OF FIELDS DETERMINED BY THE "MENU_FIELDS" CONSTANT ;THE MAXIMUM NUMBER OF ITEMS ON THE MENU LISTS IS THE "LIST_FIELDS" CONSTANT -1 FOR THE TITLE Function DROPDOWNMENU(bar_width, bar_height) field_width = bar_width / menu_fields x_pos = x_select * field_width list_height = listlength * bar_height ;Draw Menu Bar Color 50, 50, 60 :Rect 0, 0, bar_width, bar_height, 1 Color 150, 150, 200 :Rect 0, 0, bar_width, bar_height, 0 ;Draw menu bar titles SetFont dropdown_font_1 Color 100, 100, 100 For i = 0 To 100 Text 6+(ifield_width), 2, menus$(i,0,0) If i = menu_fields Then Exit Next ;IF THE CURSOR IS OVER THE MENUBAR If MouseY() < bar_height And MouseX() < bar_width listlength = 0 x_select = (MouseX() / field_width) If menus$(x_select, 0,0) <> "" For i = 1 To 100 If menus$(x_select, i,0) <> "" Then listlength = listlength +1 If i = list_fields Then Exit Next x_pos = x_select field_width list_height = listlength * bar_height Color 50, 50, 60 :Rect x_pos, bar_height-1, field_width, list_height+1 Color 150, 150, 200 :Rect x_pos, 0, field_width, bar_height+list_height, 0 Color 100, 100, 100 SetFont dropdown_font_2 For i = 1 To 100 Text x_pos+4, (ibar_height), menus$(x_select, i, 0) If menus$(x_select, i, 1) <> "" SetFont dropdown_font_1 Text (x_pos+field_width-10), (ibar_height), ">" SetFont dropdown_font_2 EndIf If i = list_fields Then Exit Next menuopen = 1 EndIf ;ELSE IF THE MENU IS OPENED AND CURSOR MOVED DOWN OVER THE LIST Else If menuopen > 0 And MouseX() > x_pos And MouseX() < (x_pos+field_width) And MouseY() < (list_height+bar_height) Color 50, 50, 60 :Rect x_pos, bar_height-1, field_width, list_height+1 Color 150, 150, 200 :Rect x_pos, 0, field_width, bar_height+list_height,0 Color 100, 100, 100 SetFont dropdown_font_2 For i = 1 To 100 Text x_pos+4, (ibar_height), menus$(x_select, i, 0) If menus$(x_select, i, 1) <> "" SetFont dropdown_font_1 Text (x_pos+field_width-10), (ibar_height), ">" SetFont dropdown_font_2 EndIf If i = list_fields Then Exit Next ;HIGHLIGHT ITEM ON LIST THAT CURSOR IS OVER y_select = (MouseY()/bar_height) :parentnum = y_select Color 100, 100, 100 :Rect x_pos+1, (y_selectbar_height), field_width-2, bar_height-1 Color 50, 50, 60 :Text x_pos+4, (y_selectbar_height), menus$(x_select, y_select,0) ;IF MOUSEHIT INPUT ACTION If MouseHit(1) Then inputstring$ = menus$(x_select, y_select,0) ;IF THERE IS A SUB MENU UNDER SELECTED ENTRY THEN DISPLAY IT If menus$(x_select, y_select, 1) <> "" sublength = 0 For i = 1 To 100 If menus$(x_select, y_select, i) <> "" sublength = sublength + 1 y_substart = ((y_selectbar_height)+(ibar_height)-bar_height) EndIf If i = sub_fields Then Exit Next y_substart = y_substart - (sublengthbar_height)+bar_height Color 50, 50, 60 :Rect (x_pos+field_width), y_substart, field_width, (sublengthbar_height) Color 150, 150, 200 :Rect (x_pos+field_width), y_substart, field_width, (sublengthbar_height),0 Color 50, 50, 60 :Rect (x_pos+field_width)-1, y_substart+1, 2, bar_height-2 Color 100, 100, 100 For i = 1 To 100 If menus$(x_select, y_select, i) <> "" Text (x_pos+field_width+4), (y_substart+(ibar_height)-bar_height), menus$(x_select, y_select, i) EndIf If i = sub_fields Then Exit Next menuopen = 2 Else menuopen = 1 EndIf ;ELSE IF MENU OPEN AND CURSOR IS OVER A SUB LIST Else If menuopen=2 And MouseX()>=(x_pos+field_width-1) And MouseX()<(x_pos+(field_width2)) And MouseY() > y_substart And MouseY() < (y_substart+(sublengthbar_height)) ;DRAW PARENT LIST Color 50, 50, 60 :Rect x_pos, bar_height-1, field_width, list_height+1 Color 150, 150, 200 :Rect x_pos, 0, field_width, bar_height+list_height,0 Color 100, 100, 100 SetFont dropdown_font_2 For i = 1 To 100 Text x_pos+4, (ibar_height), menus$(x_select, i, 0) If menus$(x_select, i, 1) <> "" SetFont dropdown_font_1 Text (x_pos+field_width-10), (ibar_height), ">" SetFont dropdown_font_2 EndIf If i = list_fields Then Exit Next ;DRAW SUBLIST Color 50, 50, 60 :Rect (x_pos+field_width), y_substart, field_width, (sublengthbar_height) Color 150, 150, 200 :Rect (x_pos+field_width), y_substart-1, field_width, (sublengthbar_height)+1,0 Color 50, 50, 60 :Rect (x_pos+field_width)-1, y_substart+1, 2, bar_height-2 Color 100, 100, 100 For i = 1 To 100 If menus$(x_select, parentnum, i) <> "" Text (x_pos+field_width+4), (y_substart+(ibar_height)-bar_height), menus$(x_select, parentnum, i) EndIf If i = sub_fields Then Exit Next ;HIGHLIGHT SELECTED ITEM ON SUBLIST y_select = ((MouseY()-y_substart)/bar_height) Color 100, 100, 100 :Rect x_pos+field_width+1, ((y_selectbar_height)+y_substart), field_width-2, bar_height-1 Color 50, 50, 60 :Text x_pos+field_width+4, ((y_select*bar_height)+y_substart), menus$(x_select, parentnum,y_select+1) ;IF MOUSEHIT INPUT ACTION If MouseHit(1) Then inputstring$ = menus$(x_select, parentnum,y_select+1) ;ELSE RESET GLOBALS Else menuopen = 0 :listlength = 0 :x_select = 0 :sublength = 0 EndIf End Function --v

Comments
Saturday, 16 December 2006, 17:31
garand	Thats awesome.
Saturday, 16 December 2006, 21:15
magicman	not bad, not bad at all!
Sunday, 17 December 2006, 05:49
mike_g	Yes agent smith having a 3 dimensional array here is wastes memory. And it would get much worse if I added extra sublists. The method you suggested would be better and not waste memory but I cant see how it would be simpler code. Still I might have a go at improoving it like you said. If possible an example would be a help. @Garand and Magicman: Glad you guys like it
Tuesday, 19 December 2006, 20:11
mike_g	Thanks. I'll have a look thorough the code when I finished writing this. To be honest what I made was just the first thing that came to mind that worked. I think I got a rough idea of what youre getting at. I'm not so good with the code speak if you know what i mean. Anyway I got a few improovements I can think of that I could do to this function, so hopefully I'll have an update sometime soon. Cheers.

Dropdown Menu

Comments