On Dec 4, 2006, at 4:55 PM, Joe Lertola wrote:

> In my old PG program I was able to check the position of the cursor  
> during  _oNull events, and change the cursor if it went over color  
> swatches. I can't seem to figure out what the equivalent event is  
> in a normal FB event loop.

You don't need null events for this. Cursor movement generates its  
own events and the FB runtime passes these cursor events to our code  
fn DoDialog (i.e. the target of ON DIALOG FN xxxxxx (which many folks  
code as FN DoDialog)). Here is a quick & dirty example with a few of  
the events noted just to give you an idea. The names _SunSummary,  
_MonSummary are names of non-static edit fields in my program, so  
they would need to be changed to field names existing in the target  
program.

Brian S.


LOCAL FN DoDialog
dim AS long action,reference

action = dialog(0)
reference = dialog(action)

select action

case  _wndActivate

case  _wndClose
    dispatch your window close fn here

case _btnClick
    dispatch button clicks

case _cursOverEF
cursor _kThemeIBeamCursor,_themeCursorStatic

// ... Pointing hand over buttons ...
case _cursOverBtn
	select reference'reference is button id

		case _SunSummary,_MonSummary,_TueSummary,¬
		_WedSummary,_ThuSummary,_FriSummary,¬
		_SatSummary,_EditDayNoteOnList,¬
		_DayNotesText,_targetStrForSearch,_scrollView'list of  non-static  
edit text fields
cursor _kThemeIBeamCursor,_themeCursorStatic
case else
cursor _kThemePointingHandCursor,_themeCursorStatic
end select
// ... Arrow over everything else
case _cursOverNothing
cursor _kThemeArrowCursor,_themeCursorStatic
case _cursEvent
cursor _kThemeArrowCursor,_themeCursorStatic'when the cursor is moved  
off the window
end select
end fn