MouseOver Rectangle with Fontgrab

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|634\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> MouseOver Rectangle with Fontgrab
Sat, 17 May 2008, 05:49
LostUser	I'm currently using the Fontgrab library to create some fonts for my game. In the menu's, I'd like it to have a rectangle appearing behind the text; a rollover mouse effect on the menu of choice. Now, I've got it working. But the problem is, that the rectangles are not the same width. There is a lot of white space at the end of the menu option. How do I make the rectangles the same width? I know I could specifiy a fixed width, but the problem is that the width might not be big enough. ; Note, requires the Fontgrab library ; Note, requires the mouseover function ; Repeat Cls ImgFont my1.font, (GraphicsWidth()-110), 1, "X: " + MouseX() + " Y: " + MouseY() y=0 ; adding mouse rollover affect to text For p.t_item = Each t_item y = y + 25 iW = ( my1.font\wide * (Len(p\name$) ) ) ; MouseArea(x, y, width, height) If MouseArea( 2, y, iW, 25 ) Then Color 100,100,100 ;Rect x, y, width, height, solid Rect 2, y-2, iW, 20, True Color 0,0,0 If MouseHit(1) Then RuntimeError ( p\name$ ) End If End If ImgFont(my1.font, 2, y, p\name$ ) Next Flip Until KeyDown(1) End --v Uses the Fontgrab library as seen on the following URL; https://socoder.net/index.php?topic=1075&viewpost=13689#13689 Uses the following mouseover routine; ; To make a region clickable, use the RectsOverlap command, treating the mouse position as a tiny rect of size 1,1: ; If RectsOverlap(MouseX(), MouseY(), 1, 1, x, y, width, height) Function MouseArea(x, y, width, height) Return RectsOverlap(MouseX(), MouseY(), 1, 1, x, y, width, height) End Function --v
Sat, 17 May 2008, 06:00
Jayenkai	Function imgfontWidth(ThisFont.font,st$) x=0 For n=1 To Len(st$) x=x+ThisFont\width[Asc(Mid$(st$,n,1))] Next Return x End Function --v This'll let you know the width of the string you're working with, and will calculate it based on the width of each character individually. -=-=- ''Load, Next List!''
Sat, 17 May 2008, 07:45
LostUser	Fantastic!