Fijar cabeceras en un wArrayBrowse

Acceder Darse de alta He olvidado la contraseña

Etiquetado: Ejemplos. wArrayBrowse

Este debate tiene 0 respuestas, 1 mensaje y ha sido actualizado por última vez el 4 años, 1 mes por Alfredo Sanz. This post has been viewed 773 times

Mostrando 0 respuestas a los debates

Autor

Entradas

17-10-2020 a las 15:46 #1272

Alfredo Sanz

Superadministrador

Una pequeña variación al wArrayBrowse propuesta por Xevi en el foro de dudas

PROCEDURE xeviMiBrowse()
   Local aItems := {}
   Local n

   For n:=1 To 50
      AAdd( aItems, { "Registro " + ToString(n), "Columna2" } )
   Next

   WITH OBJECT TWebPage():New()

      WSeparator():New(:WO):Create()
      WSeparator():New(:WO):Create()


      //Un contenedor del Browse
      WITH OBJECT WBevel():New(:WO)
         :oStyle:cPadding_left := 0      //No dejo márgenes a la izquierda
         :oStyle:cPadding_right := 0     //No dejo márgenes a la derecha

         WITH OBJECT  WArrayBrowse():New(:WO)
            :cId := "table"
            :lIncludeArray := .f.
            :nStyle       := xc_Striped      // Estilo visual, con pautado pijama
            :cClrHeadPane := "black"         // Color de Fondo a las cabeceras
            :cClrHeadText := "white"         // Color del texto de cabeceras
            :oStyle:cLine_height := 0        //Quito altura entre registro y registro

            :cCSS += "table.striped>tbody>tr>td { border: 1px solid #dee2e6; }"   // Borde al Browse, interlineado y entre columnas
            :cCSS += "#table_head1 { padding-top: 0px; padding-bottom: 2px; }"  // Menos alto título columnas
            :cCSS += "#table_head2 { padding-top: 0px; padding-bottom: 2px; }"  // debo establecerlas a TODAS

            :cCSS += cssMakeScrollable()

            // Añadimos Columnas
            WITH OBJECT :AddCol( "Col1", xc_Right, xc_Right ) AS WItemColBrowse // texto cabecera, alineacion cabecera, alineacion datos AS wItemColBrowse
               :nWidth := 25
            END WITH

            WITH OBJECT :AddCol( "Col2", xc_Center, xc_Left ) AS WItemColBrowse
               :lBold  := .T.
               :nWidth := 75
            END WITH

             :aItems := AsciiHTML(aItems)  // Le alimentamos datos directamente de la consulta

             :Create()

         END WITH  //ArrayBrowse

         :Create()
      END WITH  //Bevel

      oCgi:SendPage( :Create() )
   END WITH //WebPage

RETURN
//------------------------------------------------------------------------------

FUNCTION cssMakeScrollable()
LOCAL cTxt
   //https://stackoverflow.com/questions/47723996/table-with-fixed-thead-and-scrollable-tbody
   TEXT INTO cTxt
     .table > thead { display:table; width: 100%; background: black; }
     .table > thead > tr { width: calc(100% - 17px); }
     .table > thead > tr > th { border-bottom: 1px black solid; }
     .table > tbody {  max-height: 485px; overflow-y: scroll; display: block; }
     tr { display: table; width: 100%; }
   ENDTEXT

RETURN cTxt

//------------------------------------------------------------------------------

PROCEDURE xeviMiBrowse()

Local aItems := {}

Local n

For n:=1 To 50

AAdd( aItems, { "Registro " + ToString(n), "Columna2" } )

WITH OBJECT TWebPage():New()

WSeparator():New(:WO):Create()

//Un contenedor del Browse

WITH OBJECT WBevel():New(:WO)

:oStyle:cPadding_left := 0 //No dejo márgenes a la izquierda

:oStyle:cPadding_right := 0 //No dejo márgenes a la derecha

WITH OBJECT WArrayBrowse():New(:WO)

:cId := "table"

:lIncludeArray := .f.

:nStyle := xc_Striped // Estilo visual, con pautado pijama

:cClrHeadPane := "black" // Color de Fondo a las cabeceras

:cClrHeadText := "white" // Color del texto de cabeceras

:oStyle:cLine_height := 0 //Quito altura entre registro y registro

:cCSS += "table.striped>tbody>tr>td { border: 1px solid #dee2e6; }" // Borde al Browse, interlineado y entre columnas

:cCSS += "#table_head1 { padding-top: 0px; padding-bottom: 2px; }" // Menos alto título columnas

:cCSS += "#table_head2 { padding-top: 0px; padding-bottom: 2px; }" // debo establecerlas a TODAS

:cCSS += cssMakeScrollable()

// Añadimos Columnas

WITH OBJECT :AddCol( "Col1", xc_Right, xc_Right ) AS WItemColBrowse // texto cabecera, alineacion cabecera, alineacion datos AS wItemColBrowse

:nWidth := 25

END WITH

WITH OBJECT :AddCol( "Col2", xc_Center, xc_Left ) AS WItemColBrowse

:lBold := .T.

:nWidth := 75

END WITH

:aItems := AsciiHTML(aItems) // Le alimentamos datos directamente de la consulta

:Create()

END WITH //ArrayBrowse

:Create()

END WITH //Bevel

oCgi:SendPage( :Create() )

END WITH //WebPage

RETURN

//------------------------------------------------------------------------------

FUNCTION cssMakeScrollable()

LOCAL cTxt

//https://stackoverflow.com/questions/47723996/table-with-fixed-thead-and-scrollable-tbody

TEXT INTO cTxt

.table > thead { display:table; width: 100%; background: black; }

.table > thead > tr { width: calc(100% - 17px); }

.table > thead > tr > th { border-bottom: 1px black solid; }

.table > tbody { max-height: 485px; overflow-y: scroll; display: block; }

tr { display: table; width: 100%; }

ENDTEXT

RETURN cTxt

//------------------------------------------------------------------------------

Contenido no disponible.
Por favor, acepta las cookies haciendo clic en este aviso

Autor

Entradas

Mostrando 0 respuestas a los debates

Debes estar registrado para responder a este debate.