[bb] DropDown Menus! by Yahfree [ 1+ years ago ]

Started by BlitzBot, June 29, 2017, 00:28:42

Previous topic - Next topic
Print
Go Down Pages1
User actions

BlitzBot

June 29, 2017, 00:28:42
Title : DropDown Menus!
Author : Yahfree
Posted : 1+ years ago

Description : Hey, first of all i'd like to thank b32, for helping me with many problems i encountered making this..

UPDATE: Better ID system, DeleteDropDown function, Visual Arrow, width support.
Ok, this dropdown system works with types, so you will need the functions, and the types above the main program (see code)

you will also need this before everything:

"Global CursorX, CursorY, CursorHit"

and this in your main loop:

"CursorX=MouseX()
CursorY=MouseY()
CursorHit=MouseHit(1)"

to create a dropdown simply use the following

DDname.DropDown=CreateDropDown(X,Y,Width,AcceptsID)

DDname.DropDown = DDname is the handle of your dropdown basicly.. later you can use this to access stuff like the current selected item (DDnamewords)

X=X of dropdown
Y= y of dropdown
Width = width of dropdown *MUST be 25 or higher
AcceptsID = ID that the dropdown accepts more later

To add stuff to your dropdown you must have the following after your graphics setup..

"Type list
   Field name$
   Field ID
End Type"

ID is the dropdown this goes into (see createdropdown's AcceptsID)

the so if you have a dropdown that accepts ID 5 and you want this item to go into that dropdown, you delclare that items ID=5.

name$ is what the user sees in the dropdown,

to create an item do the following:

"myitem.list = New list
myitem
ame="Pick ME"
myitemID=1"

you can add more fields to the List type if you want to know more about what the user picked, for example:

"Type list
   Field name$
   Field ID
   Field number
End Type"

you access these attributes like so:

"For checklist.list = Each list
If checklist
ame=DDnamewords
print checklist
umber
end if
next"
as shown above i accessed the current "words" that the dropdown is displaying uptop.

you can access all the attributes of a dropdown by a simple: DDnameattrubute

replace ddname with your dropdown handle and atributes with the attribute you want to access.

here is the dropdown type this goes above all the functions. and below that global call of Cursor stats(see above)

"Type DropDown
Field drawdrop
Field scrolly
Field shown
Field x,y
Field words$
Field Accepts
Field DropDown_ID
End Type"

other stuff:

DrawDropDowns(handle)

you could draw all dropdowns with a for-next loop like in the code example below, or you could draw them indivisualy by feeding a dropdowns handle into it.

DeleteDropDown(handle)

This deletes a dropdown specified by the handle.

Here is an example of all of the above put into one:

Code :
Code (blitzbasic) Select
Global CursorX, CursorY, CursorHit

Type DropDown
Field width
Field drawdrop
Field scrolly
Field shown
Field x,y
Field words$
Field Accepts
End Type

;-----------------------------------------------------------------
;                       CreateDropDown()
;-----------------------------------------------------------------




Function CreateDropDown.DropDown(x,y,dd_width,Accepted)



NewDD.DropDown = New DropDown
NewDDx=x
NewDDy=y
NewDDdrawdrop=False
NewDDscrolly=y+20
NewDDshown=y
NewDDAccepts=Accepted
NewDDwidth=dd_width


Return NewDD
End Function

;----------------------------------------------------------------
;              DrawDropDowns()
;----------------------------------------------------------------

Function DrawDropDowns(Creation_Info.DropDown)



drawdrop = Creation_Infodrawdrop
scrolly = Creation_Infoscrolly
shown = Creation_Infoshown
x = Creation_Infox
y = Creation_Infoy
words$ = Creation_Infowords$
number = Creation_InfoAccepts
width = Creation_Infowidth

;If you click on the button, dropdown=True
If RectsOverlap(x+width-25,y,25,20,CursorX,CursorY,5,5) And CursorHit
  If drawdrop=False
     drawdrop=True
Else
   drawdrop=False
  End If
End If



If drawdrop=True
Rect x,y,width,200,0
Line x+width,y+20,x+width-12.5,y+10
Line x+width-25,y+20,x+width-12.5,y+10


;For...Each ... should get the name of all the objects.
i=0
For checklist.list = Each list

If checklistID=number
i=i+1

;Made this For i...2 loop so the Text can loop itself...
Viewport x,y+20,125,180
   Text x,shown+(i*20),checklist
ame
Viewport 0,0,GraphicsWidth(),GraphicsHeight()

;If you click on one of the names it will put it up top.
    If RectsOverlap(x,shown+(i*20),width-25,20,CursorX,CursorY,5,5) And CursorX > x And CursorX< x+125 And CursorY > y+20 And CursorY < y+200 And MouseDown(1)
        words$=checklist
ame
        drawdrop=False
        shown=y
        scrolly=y+20
     End If


End If
Next
Rect x+width-25,y+20,25,180,False
If i>9

 


   Rect x+width-25,scrolly,25,20,True
  If RectsOverlap(x+width-25,y+20,25,180,CursorX,CursorY,5,5) And MouseDown(1)
     scrolly=MouseY()
End If




If scrolly<y+20 scrolly=y+20
If scrolly>y+180 scrolly=y+180

;The more things in the Text the faster it scrolls To compensate..
ScrollbarPos = ScrollY - y-20
ScrollbarMax = y+180- y-20
ListSize = (i - 9) * 20
shown = y - (scrollbarpos * listsize / scrollbarmax)


End If

Else

Line x+width-25,y,x+width-12.5,y+10
Line x+width,y,x+width-12.5,y+10

End If



;Draws the 3 main parts of the dropdown, with all the math from above: Main box, DD button,
Rect x,y,width,20,0
Rect x+width-25,y,25,20,0
Text x,y,words


;Takes the Creation info and Equals it to the messed with dropdown info.
Creation_Infoscrolly = scrolly
Creation_Infodrawdrop = drawdrop
Creation_Infoshown = shown
Creation_Infowords$ = words$

End Function

;-------------------------------------------------------------------------
;                          DeleteDropDown(DropDown_ID)
;-------------------------------------------------------------------------

Function DeleteDropDown(ID.Dropdown)
Delete ID
End Function

;----------------------------------------------------------------------
;             Example program
;----------------------------------------------------------------------



Graphics 300,500,16,2

SetBuffer BackBuffer()

;---------------------

Type list
   Field name$
   Field ID
End Type

For i=1 To 200

list1.list = New list
list1
ame="bah"+i
list1ID=1

Next

For i=1 To 400

list1.list = New list
list1ID=2
list1
ame="test"+i

Next

;---------------------------

dd1.DropDown=CreateDropDown(50,0,100,1) ; ID=1
dd2.DropDown=CreateDropDown(180,0,100,1) ; ID=2
dd3.DropDown=CreateDropDown(50,250,100,2) ; ID=3
dd4.DropDown=CreateDropDown(180,250,100,2) ; ID=4

;--------------------------------------
While Not KeyHit(1)
Cls

CursorX = MouseX()
CursorY = MouseY()
CursorHit = MouseHit(1)


For CheckDD.DropDown = Each DropDown
DrawDropDowns(CheckDD.DropDown)
Next

Text 0,460,"Press 2-5 to delete Dropdowns"
If KeyHit(3) DeleteDropDown(dd1)
If KeyHit(4) DeleteDropDown(dd2)
If KeyHit(5) DeleteDropDown(dd3)
If KeyHit(6) DeleteDropDown(dd4)




Delay 5
Flip
Wend

Comments :


Yo! Wazzup?(Posted 1+ years ago)

 b23? I think you mean b32.Nice Dropdowns!


Yahfree(Posted 1+ years ago)

 Haha, your right, Sorry >>b32<< :D
Print
Go Up Pages1
User actions