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 Keith - CDI > On Oct 21, 2016, at 5:31 PM, truegold <[email protected]> wrote: > > Hi Jeremy, > > Yes and I know how to do use that command. I was just describing my scenario > I was attempting to implement. Setting the cursor is the easy part. > > Appreciate, > John... > >> Have you looked at the “SET CURSOR” command in v15? >> >> http://doc.4d.com/4Dv15R5/4D/15-R5/SET-CURSOR.301-2937487.en.html >> <http://doc.4d.com/4Dv15R5/4D/15-R5/SET-CURSOR.301-2937487.en.html> >> >> >>> On Oct 21, 2016, at 3:41 PM, truegold <[email protected]> wrote: >>> >>> When the space bar is pressed I want the cursor to change to a little hand >>> and then as I move the mouse the diagram moves (actually scrolls) around. > ********************************************************************** > 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] > ********************************************************************** ********************************************************************** 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] **********************************************************************
