No logro que al hacer "click" en la columna 2 que quede seleccionada la casilla del checkbox
Me muestra bien el browser (Tlistbox en el RC) pero no me deja "editarlo"
- Code: Select all Expand view
- METHOD setBrw() CLASS TUsuarios
LOCAL oFont, oFont1
DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, - 8
DEFINE FONT oFont1 NAME "Ms Sans Serif" bold SIZE 0, - 8
::aNiveles := { ;
{ "Agregar clientes", .F. }, ;
{ "Modificar datos de clientes", .F. }, ;
{ "Ver datos de clientes", .F. }, ;
{ "Agregar carpetas de clientes", .F. }, ;
{ "Modificar datos de la carpeta de los clientes", .F. }, ;
{ "Ver los datos de la carpeta de los clientes", .F. }, ;
;
{ "Tarea de Control de carpeta", .F. }, ;
{ "Tarea de Analisis de carpeta", .F. }, ;
{ "Tarea de Verificación de análisis de carpeta", .F. }, ;
{ "Tarea de Creación del Incipit", .F. }, ;
{ "Tarea de Verificación del Incipit", .F. }, ;
{ "Tarea de Creación del Indice", .F. }, ;
{ "Tarea de Verificación del Indice", .F. }, ;
{ "Tarea de Creación de carpeta para Netlex", .F. }, ;
{ "Tarea de Verificación de carpeta para Netlex", .F. } ;
}
REDEFINE XBROWSE ::oBrw ID 110 ;
COLUMNS 1, 2 ;
DATASOURCE ::aNiveles OF ::oDlg
WITH OBJECT ::oBrw
:bClrStd := { || IF( ::oBrw:KeyNo() % 2 == 0, ;
{ CLR_BLACK, RGB( 255, 255, 255 ) }, ;
{ CLR_BLACK, RGB( 214, 255, 245 ) } ) }
:bClrSel := { || { CLR_BLACK, RGB( 160, 240, 240 ) } }
:lKinetic := .F.
:ltransparent := .F.
:lHScroll := ( .T. )
:lColDividerComplete := .F.
:nRowDividerStyle := 4
:nStretchCol := STRETCHCOL_LAST
:nColDividerStyle := 4
:lRecordSelector := .F.
:lAllowColSwapping := .F.
:nHeaderHeight := 25
:nRowHeight := 23
WITH OBJECT :aCols[ 1 ]
:cHeader := "Tarea a realizar"
:nHeadStrAlign := AL_CENTER
:nDataStrAlign := AL_LEFT
:oDataFont := oFont
:oHeaderFont := oFont1
:nWidth := 340
END WITH
WITH OBJECT :aCols[ 2 ]
:nHeadStrAlign := AL_CENTER
:nDataStrAlign := AL_LEFT
:oDataFont := oFont
:oHeaderFont := oFontt
:setcheck()
END WITH
END WITH
RETURN ( NIL )
Lo que estaba mal es que faltaba el :setcheck(, .t.)
y otra cosa hay que ponerle un tamaño a la columna que tiene el checkbox porque sino no funciona bien.
- Code: Select all Expand view
- WITH OBJECT :aCols[ 2 ]
:nHeadStrAlign := AL_CENTER
:nDataStrAlign := AL_LEFT
:oDataFont := oFont
:oHeaderFont := oFontt
:nWidth:= 10 <------------ AGREGADO
:setcheck(, .t.) <------------ MODIFICADO
END WITH