Have a "mouse-over" on a componentTag(s): Powerscript

Suppose you have a static text on a Window. When the mouse is over it, the static text foreground color change to red. When the mouse quit the static text, the foreground color is black. 
[window mousemove event]

// just to display something
st_1.text = string(xpos) + ", " + string(ypos)

IF xpos >= st_1.X AND (xpos <= st_1.x + st_1.Width) AND &
     ypos >= st_1.y AND (ypos <= st_1.y + st_1.Height) THEN
   st_1.textcolor = 255
ELSE
   st_1.textcolor = 0
END IF

If you find this article useful, consider making a small donation
to show your support for this Web site and its content.

Written and compiled by Réal Gagnon ©1998-2012
[ home ]