Posted by Triuken 208.36.124.208 using Mozilla/4.51 [en] (Win98; I) on March 28, 2000 at 15:16:23:
In Reply to: I need a program posted by Michael J. Hill on March 28, 2000 at 14:19:53:
* If the cursor is not in the zone, then: Now I'll show how to do it with actual buttons.. =) #METHOD SETUPBUTTON(filename$, bnum!, x!, y!, width!, height!) * Ok.. i know this can be done easier since its a button, :UP * Erases the text "onMouseOut" Okay.. those are some basic examples. If ya need *ANY* more info, just ask. : I need a mouse-over command for buttons. I need it to display text when the mouse pointer is over certain buttons.
Thanx! Okay, this is how i usually do this:
* I'm adding comments, something i dont usually
* do. Since this is just an example, use it as a guide..
#COLORRGB(0,0,100)
#DRAWRECT(100,100,200,200)
* Draws a square on screen to help visualize the point
* click zone.
:UP
#MOUSEMOVE(x!,y!)
#IF(x!=<200)
{
#IF(x!=>100)
{
#IF(y!=>100)
{
#IF(y!=<200)
{
* All those #IF's decide whether or not the
* cursor is over the zone.
* If you want more info on this (its the most important part)
* ask me. I'll explain the format.
#COLORRGB(0,0,100)
#FONTSIZE(8)
#text_x!=x!/8
#text_y!=y!/8
* Simple equation which calculates where the text will be placed.
#TEXT(text_x!,text_y!,"Well, there ya go!")
* Draws the text where the cursor is.
#DELAY(.5)
#COLORRGB(255,255,255)
#TEXT(text_x!,text_y!,"Well, there ya go!")
#COLORRGB(0,0,100)
#DRAWRECT(100,100,200,200)
* Deletes the text, and updates the screen.
}
}
}
}
#BRANCH(:UP)
* Okay, first set up some buttons..
* I'm using a method so i can easily store
* the properties into variables.
#SETUPBUTTON("DECORTESTCOPY.JPG", 1, 10, 10, 100, 100)
{
* Uses the given values to set up the button..
#SetButton(filename$, bnum!, x!, y!, width!, height!)
* calculates the bottom right x-y values.
#x2!=x!+width!
#y2!=y!+height!
}
* but i wanna show how you can use #IF's instead.. heheh..
#MOUSEMOVE(x3!,y3!)
#IF(x3!=
#IF(x3!=>x!)
{
#IF(y3!=>y!)
{
#IF(y3!=
#COLORRGB(0,0,100)
#TEXT(25,5,"Your Cursor is Over Button1")
#BRANCH(:UP)
}
}
}
}
#COLORRGB(255,255,255)
#TEXT(25,5,"Your Cursor is Over Button1")
#BRANCH(:UP)