Highlighting Function

BlitzPlus Forums/BlitzPlus Beginners Area/Highlighting Function

b32
 #1
Maybe try this then?
Open in online IDE
Graphics 800, 600, 0, 2
SetBuffer BackBuffer()

font = LoadFont("Arial", 30)
SetFont font

Type MenuItem
	Field s$
	Field x
	Field y
	Field w
	Field h
End Type

y = 200

Repeat
	
	Read i$
	If i$ = "STOP" Then Exit
	
	m.MenuItem = New MenuItem	
	m\w = StringWidth(i$)
	m\h = StringHeight(i$)
	y = y + m\h
	m\x = 400
	m\y = y
	m\s$ = i$
	
Forever

Data "New", "Load", "Save", "Play", "Exit", "STOP"

selected$ = ""
Repeat

	Cls
	
	msX = MouseX()
	msY = MouseY()	
	msH = MouseHit(1)
	
	For m.MenuItem = Each MenuItem
		If RectsOverlap(msX, msY, 1, 1, m\x, m\y, m\w, m\h) Then
			If msH Then
				selected$ = m\s$: Exit
			End If
			Color 0, 255, 0
		Else
			Color 255, 255, 255
		End If
		Text m\x, m\y, m\s$
	Next
	
	Flip
	
Until KeyHit(1) Or (selected$ <> "")

If selected$ <> "" Then RuntimeError "You chose: " + selected$