OpenEuphoria

RE: Fw: ListView Error

• Posted by Tony Steward <tsteward at dodo.com.au> Oct 16, 2003
• 567 views

Hello Derek,
You can not just change to functions below in v0.59.1 as you get an 
error: W32_fetch not declared.

Regs
Tony

Derek Parnell wrote:
> 
> 
> (resent - ISP was down)
> ----- Original Message ----- 
> From: "Derek Parnell" <ddparnell at bigpond.com>
> To: <EUforum at topica.com>
> Subject: Re: ListView Error
> 
> 
> ----- Original Message ----- 
> From: "Julio C. Galaret Viera" <euphoria at ured.net>
> To: "EUforum" <EUforum at topica.com>
> Sent: Wednesday, October 15, 2003 12:29 PM
> Subject: ListView Error
> 
> 
> > When rightclicking on list views column headers, programs abort 
> > displaying the following messages:
> > 
> > Win32lib.ew:22210 in function getPointerRelPost()
> > attempt to exit a function without returning a value
> > ...called from Win32lib.ew:24085 in function fDoNM_RCLICK()
> > ...called from Win32lib.ew:24175 in function fDoNotify()
> > ...
> > ...
> > ...
> > 
> > Errors can be replicated in demos supplied with Win32Lib (last version).
> > 
> > I'm running on Windows 95.
> > 
> > Bug or am I missing something?
> 
> 
> A known bug that has been fixed. The function called fDoNM_RCLICK needs 
> to be as below...
> 
> ----------------------------------------------------
> function fDoNM_RCLICK(integer id, atom hWnd, atom wParam, atom lParam) 
> ----------------------------------------------------
>     sequence xy
>     atom keys
>     integer lRealId
> 
>     lRealId = W32_fetch( lParam, NMHDR_idFrom )                     
>     if lRealId != 0 then
>         lRealId = getId( W32_fetch( lParam, NMHDR_hwndFrom ) )
>     else
>         lRealId = id
>     end if        
>     xy = getPointerRelPos(lRealId)
>     keys = getKeyMasks(0)
>     VOID = invokeHandler( lRealId, w32HMouse, {WM_RBUTTONUP, xy[1],xy[2], 
>     keys} )
>     return {kReturnNow}
> end function
> 
> 
> and the routine 'getPointerRelPos' should be ...
> 
> global function getPointerRelPos(integer pId)
> 
>     if validId(pId) then
>         return getPointerPos() - ClientToScreen(pId, 0, 0)
>     else                
>         return {0,0}        
>     end if
>  
> end function
> 
> -- 
> Derek
> 
> 



Give your hardest tasks to your lasiest workers. 
They will always find the easiest way to complete it.