Display menu horizontally.

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|717\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Display menu horizontally.
Mon, 13 Apr 2009, 10:04
LostUser	I want to display a menu in a "tabbulated" fashion horizontally across the screen. I can display menu's in a vertical fashion: ie: for i=1 to 10 text 10, 10+(fontheight()i), someMenu$(i) next --v But I find it difficult to replicate it horizontally. In the following example, the "Status" option should start at 30, but appears further across the screen than it should do. ; Tabbed Text ; @updated: 13 April 2009 ;-------------------------------------------------- Graphics 640,480,16,2 Dim sm_menu$(5) sm_menu$(1) = "Status" sm_menu$(2) = "Families" sm_menu$(3) = "Made Men" sm_menu$(4) = "Heat" sm_menu$(5) = "Progress" Repeat Cls Text 1,1, "X:" + MouseX() + " Y:" + MouseY() For i=1 To 5 phrase$ = sm_menu$(i) sw = StringWidth(phrase$) If (i = currentTab) Then Color 0,0,$FFCC00 Else Color 0,0,$FFFFFF End If Text 30 + (swi), 80, phrase$ Next Flip Until KeyHit(1) End --v
Mon, 13 Apr 2009, 10:29
Phoenix	; Tabbed Text ; @updated: 13 April 2009 ;-------------------------------------------------- Graphics 640,480,16,2 Dim sm_menu$(5) sm_menu$(0) = "Status" sm_menu$(1) = "Families" sm_menu$(2) = "Made Men" sm_menu$(3) = "Heat" sm_menu$(4) = "Progress" Const itemPadding = 20 Repeat Cls Text 1,1, "X:" + MouseX() + " Y:" + MouseY() lastX = 30 For i=0 To 5-1 phrase$ = sm_menu$(i) sw = StringWidth(phrase$) If (i = currentTab) Then Color 0,0,$FFCC00 Else Color 0,0,$FFFFFF End If Text lastX, 80, phrase$ lastX = lastX + sw + itemPadding Next Flip Until KeyHit(1) End --v Arrays indices start at 0. And to be able to place the items correctly you need to remember where the old ones were, hence the addition of "lastX."
Mon, 13 Apr 2009, 12:28
LostUser	Thats perfect! Thanks.