estoy practicando con el x browse con el siguiente codigo:
- Code: Select all Expand view RUN
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 Expand view RUN
Error description: Error BASE/41 Scope violation (hidden): TXBROWSE:CHECKTOOLTIP
este es la pila de llamados
- Code: Select all Expand view RUN
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.
