New Error

[omni]

Here are the two files. I had to wait and resend with debug writing, which was deleted when I made the last change.

If needed, I can resend or copy to you the written line the next time the error occurs to see if anything is different.

Both files were just renamed to .zip files to get by the transfer name requirements.

[rdonnay]

I made a mistake. I made the below change to my code but gave you the wrong change.
This is correct:

Code: Select all

STATIC FUNCTION _IsIcon( nResource, cResFile, oIcon )

LOCAL lStatus := .f.

#if XPPVER > 1900345
IF cResFile == NIL    // <<<<<<<<<<<<<<<<<<<<<<<<
  RETURN .f.
ENDIF

oIcon := XbpIcon():new():create()
lStatus := oIcon:load(cResFile,nResource)

IF !lStatus
  oIcon:destroy()
  oIcon := nil
ENDIF
#endif

RETURN lStatus