FiveTech Support Forums

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 )

      WITH OBJECT :aCols[ 2 ]
         :nHeadStrAlign := AL_CENTER
         :nDataStrAlign := AL_LEFT
         :oDataFont     := oFont
         :oHeaderFont   := oFontt

         :nWidth:= 10           <------------ AGREGADO
         :setcheck(, .t.)        <------------ MODIFICADO
      END WITH