onMouseMove example

The following onMouseMove event handler makes a button harder to click.

function PUSHBUTTON1_onMouseMove(flags, col, row)

static jump = {|| 2 + rand( ) * 2} 

local nLeft, nTop 

// Calculate horizontal movement 

nLeft = this.left + jump( ) * sign( rand( ) - 0.5 ) 

if nLeft < 0 

nLeft = form.width - this.width - jump( ) 

elseif nLeft > form.width - this.width 

nLeft = jump( ) 

endif 

// Calculate vertical movement 

if row < this.height / 2 

nTop = this.top + jump( ) * row 

else 

nTop = this.top - jump( ) * ( this.height - row ) 

endif 

if nTop < 0 

nTop = form.height - this.height - jump( ) 

elseif nTop > form.height - this.height 

nTop = jump( ) 

endif 

this.move( nLeft, nTop )