FiveTech Software tech support forums

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");

Code: Select all

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

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)