Hey Keith,

Thanks for the code. I’ll give it a test run and see how it works.

Appreciate,
John...

> I'm starting to think "Psychiatrist", but with only a picture and an 
> enterable area on the form, this will beep if the mouse is moving and the 
> spacebar is down. 
> 
> Form Method:================== 
> C_BOOLEAN(vMMoved) 
> Case of 
> : (Form event=On Load) 
> $svg:=SVG_New 
> SVG_New_rect ($svg;10;10;1010;1010) 
> vPic:=SVG_Export_to_picture ($svg) 
> CONVERT PICTURE(vPic;".png") 
> 
> : (Form event=On Mouse Move) 
> vMMoved:=True 
> : (Form event=On Timer) 
> $s:=Keystroke 
> 
> If ($s=" ") 
> HIGHLIGHT TEXT(v;1;1000) 
> POST KEY(Backspace key) 
> If (vMMoved) 
> BEEP 
> vMMoved:=False 
> End if 
> 
> End if       
> End case 
> 
> 
> Object Method:================== 
> Case of 
> : (Form event=On Mouse Enter)  // maybe jump to a special hidden text field? 
> SET TIMER(1) 
> 
> : (Form event=On Mouse Leave)  // and go back to the old field 
> SET TIMER(0) 
> End case 
**********************************************************************
4D Internet Users Group (4D iNUG)
FAQ:  http://lists.4d.com/faqnug.html
Archive:  http://lists.4d.com/archives.html
Options: http://lists.4d.com/mailman/options/4d_tech
Unsub:  mailto:[email protected]
**********************************************************************

Reply via email to