topic-7055

Posts: 6

Joined: Fri Apr 20, 2007 03:25 AM

xbrowse error
Posted: Sat May 19, 2007 06:08 AM

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 Collapse

    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 Collapse

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

este es la pila de llamados

Code: Select all Collapse

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

Posts: 44162