xbrowse error

[gustavodiazs]

Que tal, escribo este post, como novato de este excelente lenguaje de desarrollo

estoy practicando con el x browse con el siguiente codigo:

Code: Select all

    DBUSEAREA(.T.,  , "DEMO", "DEMO" ,.T., .F.)
    SET INDEX TO "DEMO"
    ORDSETFOCUS("ID")
    DBGOTOP()

    DEFINE WINDOW oWndP TITLE "Módulo" OF oWnd MDICHILD

    oBrwP             := TXBrowse():New( oWndP )
    oBrwP:cAlias      := "DEMO"

    oCol               := oBrwP:AddCol()
    oCol:bStrData      :={ ||PASIENTE->ID }
    oCol:cHeader       := "Id"
    oCol:nDataStrAlign := AL_CENTER
    oCol:nHeadStrAlign := AL_CENTER
    oCol:lAllowSizing  := .f.
    oCol:oDataFont     := oFontP
    oCol:oHeaderFont   := oFntBrP
    oCol:nWidth        := 50
    oCol:nHeadBmpAlign := AL_LEFT
    oCol:nHeadBmpNo    := 2
    oCol:bClrHeader    := {|| {CLR_WHITE, CLR_BLUE} }
    oCol:bLClickHeader := { || MSGAlert("Tavo") }
    oCol:AddBmpHandle( FwBmpAsc() )
    oCol:AddBmpHandle( FwBmpDes() )
    oCol:bLDClickData  := {|| MSGAlert("Tavo") }


    oBrwPacientes:SetRDD()
    oBrwPacientes:CreateFromCode()
    oBrwPacientes:oClient := oWndP

    ACTIVATE WINDOW oWndP VALID SaleP("DEMO");

pero al pasar el mouse por ensima del grid me marca el siguiente error

Code: Select all

Error description: Error BASE/41  Scope violation (hidden): TXBROWSE:CHECKTOOLTIP

este es la pila de llamados

Code: Select all

Stack Calls
===========
   Called from:  => TXBROWSE:CHECKTOOLTIP(0)
   Called from:  => TWINDOW:MOUSEMOVE(0)
   Called from:  => TCONTROL:MOUSEMOVE(0)
   Called from:  => TXBROWSE:MOUSEMOVE(2684)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from:  => TXBROWSE:HANDLEEVENT(0)
   Called from: .\source\classes\WINDOW.PRG => _FWH(0)
   Called from:  => WINRUN(0)
   Called from:  => TMDIFRAME:ACTIVATE(0)
   Called from: D:\fivewin\Proy\Dentista\Prg\dent.prg => MAIN(36)

le he buscado pero no encuentro el problema

cualquier ayuda le agradeceria.

Saludos.

[Antonio Linares]

Estás usando Harbour ó xHarbour ? Que versión de FWH ?

[gustavodiazs]

uso Harbour y la versión de FWH es la de April 7.04 2007 build

[Antonio Linares]

Gustavo,

Has modificado alguna clase de FWH ?

Por favor construye samples\testxbrw.prg y prueba si te da el mismo error. Aqui funciona bien

[gustavodiazs]

No he modificado clase alguna de FWH,

y este ejemplo si corre correctamente, voy a copiar y pasar a la aplicacion que estoy haciendo.

a ver que pasa

muchisimas gracias, una cosa mas es un excelente trabajo el tuyo, felicidades y lo mejor de los mejor en el futuro.