Error description: Error BASE/1004 Class: 'NIL' has no exported method: HWND

[jfaguiar]

Elá amigos. utilizo a versão 13.07 do FW e estou tendo esse erro com frequência na rpreview.prg.

Alguém pode dar um dica do que está acontecendo?

Obrigado

Application
===========
   Path and name: C:\SISCOM\sgcwgb.exe (32 bits)
   Size: 5,315,072 bytes
   Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20130422)
   FiveWin  Version: FWHX 13.07
   Windows version: 6.1, Build 7601 Service Pack 1

   Time from start: 0 hours 0 mins 52 secs 
   Error occurred at: 25/01/18, 14:13:37
   Error description: Error BASE/1004  Class: 'NIL' has no exported method: HWND
   Args:
     [   1] = U   

Stack Calls
===========
   Called from:  => HWND( 0 )
   Called from: .\source\classes\RPREVIEW.PRG => (b)TPREVIEW:ACTIVATE( 185 )
 

Vejam no método:

METHOD Activate() CLASS TPreview

   ACTIVATE WINDOW ::oWnd MAXIMIZED ;
      ON RESIZE    ( ::PaintMeta(), ::ResizeListView() ) ;
      ON UP        ::VScroll( GO_UP )             ;
      ON DOWN      ::VScroll( GO_DOWN )           ;
      ON PAGEUP    ::VScroll( GO_UP, GO_PAGE)     ;
      ON PAGEDOWN  ::VScroll( GO_DOWN, GO_PAGE)   ;
      ON LEFT      ::HScroll( GO_LEFT )           ;
      ON RIGHT     ::HScroll( GO_RIGHT )          ;
      ON PAGELEFT  ::HScroll( GO_LEFT, GO_PAGE )  ;
      ON PAGERIGHT ::HScroll( GO_RIGHT, GO_PAGE ) ;
      VALID        ( ::oWnd:oIcon := nil       ,;
                     ::oFont:End()             ,;
                     ::oMeta1:End()            ,;
                     ::oMeta2:End()            ,;
                     ::oDevice:End()           ,;
                     ::oHand:End()             ,;
                     If( Empty( ::oImageList ),, (::oImageList:End(), ::oImageList := nil ) ),;
                     ::oImageListPages:End()   ,;
                     ::oWnd := nil             ,;
                     ::lExit := .T. )

     if ::oDevice:lPrvModal
         if ::oWndMain == nil
            StopUntil( { || ::lExit } )
         else
            StopUntil( { || ::lExit .or. !IsWindow( WndMain():hWnd ) } )  // O ERRO ACONTECE AQUI
         endif
     endif

return nil

 

[sistem]

 if ::oDevice:lPrvModal
         if ::oWndMain == nil
            StopUntil( { || ::lExit } )
         else
            hWndMain    := WndMain():hWnd
            StopUntil( { || ::lExit .or. !IsWindow( hWndMain ) } )
         endif
 endif

fwh1709

[jfaguiar]

 

 if ::oDevice:lPrvModal
         if ::oWndMain == nil
            StopUntil( { || ::lExit } )
         else
            hWndMain    := WndMain():hWnd
            StopUntil( { || ::lExit .or. !IsWindow( hWndMain ) } )
         endif
 endif

fwh1709

Obrigado. Vou modificar conforme o seu exemplo. vlw