[futurebasic] Re: [FB] IBeam & Arrow

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : October 2007 : Group Archive : Group : All Groups

From: Brian Stevens <bstevens33@...>
Date: Mon, 8 Oct 2007 19:09:31 -0700
// note: the constants used in the _cursOverBtn case are from my  
application. Your own constants corresponding to edit fields (or  
control-based EFs) should be substituted.
// this is the target for an  ON DIALOG  fn DoDialog
//Brian S.

clear local
local fn DoDialog
dim as long action,reference

'---> Get Event Info
action    = DIALOG(0)
reference = DIALOG(action)
select action'first figure out what event it was
case _wndActivate'window activated or deactivated
case _wndClick'window clicked
case _wndClose'window closed
case _wndRefresh'window needs refreshing
case _wndResized
case _wndZoomIn'zoom in event (zoom box clicked)
case _wndZoomOut'zoom out event
case _btnClick'button clicked (id = button id)
case _cntxtMenuClick
case _efClick'edit field click
case _evKey'not with edit fields (see TEKEY$)
case _userDialog'id = user defined id (see EVENT&)
'------------- Cursor events -------------------------------------
//.....edit field insertion bar for edit fields....
case _cursOverEF
cursor _kThemeIBeamCursor,_themeCursorStatic

// ... Pointing hand over buttons ...
case _cursOverBtn
select reference'reference is button id
case _SunSummary,_MonSummary,_TueSummary,¬
_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

On Oct 8, 2007, at 6:46 PM, Brian Heibert wrote:

> Standard FB event handling
> On Oct 8, 2007, at 9:46 PM, Brian Stevens wrote:
>> On Oct 8, 2007, at 6:40 PM, Brian Heibert wrote:
>>> How would I go about doing this?
>> Carbon events or standard FB event handling?
>> Brian S.
>> --
>> To unsubscribe, send ANY message to: futurebasic- 
>> unsubscribe@...
> --
> To unsubscribe, send ANY message to: futurebasic- 
> unsubscribe@...

Brian S.