@Unseen Machine and @Mad Axeman
John, your post swooped in front of mine. I was actually commenting on Mad's, but I tested your menu and it also picks the highlighted menu option, instead of where the mouse is pointing, when the mouse is clicked. Mine and some others like the QB64 IDE prioritize the mouse position over the highlighted selection. Of course pressing Enter should always pick the highlighted selection, but the mouse? Well, I suppose it is a matter of personal preference.
Now all Mad has to do is change to...
If menu_mb1 = -1 Then
''''' menu = menu_z1 + 1
menu = menu_my - menu_py + 1 ' This will make it select the mouse position instead of the highlighted menu item.
Color menu_defc1, menu_defc2
Return
End If
However yours is graphics, and I can't apply the same text solution.
Anyway, it's a neat graphics menu! + 1. As far as the strings in UDT, like Mark mentioned, we can use variable length strings...
Type Tremendous
Pete as String
End Type
Dim me as Tremendous
I won't be completely happy until we can include fixed strings and arrays in UDTs. Actually, I didn't know fixed strings were an issue, as I haven't worked with those in any of my routines with a UDT format. +1 to Mark for that heads up!
Pete
John, your post swooped in front of mine. I was actually commenting on Mad's, but I tested your menu and it also picks the highlighted menu option, instead of where the mouse is pointing, when the mouse is clicked. Mine and some others like the QB64 IDE prioritize the mouse position over the highlighted selection. Of course pressing Enter should always pick the highlighted selection, but the mouse? Well, I suppose it is a matter of personal preference.
Now all Mad has to do is change to...
If menu_mb1 = -1 Then
''''' menu = menu_z1 + 1
menu = menu_my - menu_py + 1 ' This will make it select the mouse position instead of the highlighted menu item.
Color menu_defc1, menu_defc2
Return
End If
However yours is graphics, and I can't apply the same text solution.
Anyway, it's a neat graphics menu! + 1. As far as the strings in UDT, like Mark mentioned, we can use variable length strings...
Type Tremendous
Pete as String
End Type
Dim me as Tremendous
I won't be completely happy until we can include fixed strings and arrays in UDTs. Actually, I didn't know fixed strings were an issue, as I haven't worked with those in any of my routines with a UDT format. +1 to Mark for that heads up!
Pete
Shoot first and shoot people who ask questions, later.