tIcon Error

[PeterHarmes]

Hi,

We are getting the following error occaisionally on certain machines - i cannot recreate this error on my machine but it is happening at our clients installation. The error occurs when the user double clicks on a record in an xBrowse and the code tries to setfocus to the previous dialog.

Application
===========
Path and name: I:\winiws6\ORD_MOD.EXE (32 bits)
Size: 5,264,896 bytes
Operator: CARP
Time from start: 0 hours 2 mins 44 secs
Error occurred at: 26/08/2010, 08:52:08
Error description: Error BASE/1005 Class: 'NIL' has no property: NRESULT - Please contact P & L
Args:
[ 1] = U
[ 2] = O TICON

Stack Calls
===========
Called from: => _NRESULT(0)
Called from: .\source\classes\CONTROL.PRG => TICON:GOTFOCUS(986)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1483)
Called from: .\source\classes\ICON.PRG => TICON:HANDLEEVENT(131)
Called from: => SETFOCUS(0)
Called from: .\source\classes\WINDOW.PRG => TDIALOG:SETFOCUS(2785)
Called from: \6.00\Source\Common\POPUP.PRG => POP_SELECT(1955)
Called from: \6.00\Source\Common\Popupx.prg => (b)GENERIC_XLIST(103)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:LDBLCLICK(1870)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:LDBLCLICK(1498)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:LDBLCLICK(3458)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1483)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT(10744)
Called from: .\source\classes\WINDOW.PRG => _FWH(3391)
Called from: => DIALOGBOX(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
Called from: \6.00\Source\Common\Popupx.prg => GENERIC_XLIST(113)
Called from: \6.00\Source\Common\POPUP.PRG => CONT_LIST(349)
Called from: \6.00\Source\Ord_mod\RENTAL.PRG => RENT_CONT(4361)
Called from: \6.00\Source\Ord_mod\RENTAL.PRG => (b)RENTAL_ENT(221)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK(463)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP(658)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1483)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT(1437)
Called from: .\source\classes\WINDOW.PRG => _FWH(3391)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(976)
Called from: ORD_MOD.PRG => MAIN(486)

I did notice in the source code in control.prg that there is a comment saying "old code pending to be oCtlFocus" so i dont know if its just a case of commenting this line out?

Using FW10.06 & xHarbour Commercial June 2010

Any ideas?

Best regards,
Pete

[Antonio Linares]

Pete,

Please try this change in Class TControl:

Code: Select all  Expand view

METHOD GotFocus( hCtlLost ) CLASS TControl

   ::lFocused       = .t.
   if ::oWnd != nil
      ::oWnd:nResult   = Self  // old code pending to be oCtlFocus
      ::oWnd:oCtlFocus = Self
      ::oWnd:hCtlFocus = ::hWnd
   endif
   ::SetMsg( ::cMsg )
   ...
 

[PeterHarmes]

I will put the changes in and let you know if we get the error again. Thanks for looking at this Antonio

Best regards,

Pete