Consulta Sobre Cabecera de XBROWSE

[remtec]

Amigos Muy buenas tardes.

Necesito saber si Xbrowse, permite poner titulos en 2 lineas en su Cabecera de la siguiente forma:

--- LUNES ---- | ---- MARTES -- | - MIERCOLES - | --- JUEVES ---
Inicio Termino | Inicio Termino | Inicio Termino | Inicio Termino

Inicio y Termino tendra el horario para cada día de la semana.

Seria Super si pudiera.

Muchos Saludos

Antonio.

[cnavarro]

Intenta poner en el header de la columna asi:
Por ejemplo para la columna 1

Code: Select all  Expand view  RUN

   oBrw:aCols[ 1 ]:cHeader  := "Titulo1" + CRLF + "Titulo2"
 

Si no te funciona así simplemente, ten en cuenta que tienes la data

Code: Select all  Expand view  RUN

   oBrw:nHeaderLines   := 2
 

[FranciscoA]

Si te refieres a los super headers, intenta asi:

Code: Select all  Expand view  RUN

  REDEFINE XBROWSE oBrw ID 181 OF oDlg ;
         COLUMS "1","2", etc ;
         HEADERS "Inicio","Termino","Inicio","Termino".........

:SetGroupHeader( "LUNES", 1,2)    //desde col 1 hasta la 2  (
:SetGroupHeader( "MARTES", 3,4)   //desde col 3 hasta la 4
etc..

...

Saludos

[remtec]

Hola Cristobal y Francisco

Muchas gracias a ambos por responder, revisare como me funciona y les comento.

Muchos Saludos.
Antonio

[remtec]

Hola Francisco

Como estas?

Te contacte a tu correo, me comentas.

Saludos
Antonio

[FranciscoA]

Hola Antonio. Es algo asi ?

Code: Select all  Expand view  RUN

#include "fivewin.ch"
#include "xBrowse.ch"

//--------------------------------
function main()
local  oDlg, oBrw, aMe

   aMe := Array(5)
   aMe[1] := {"Nombre",Time(),Time(),Time(),Time(),time(),time()}
   aMe[2] := {"Nombre",Time(),Time(),Time(),Time(),time(),time()}
   aMe[3] := {"Nombre",Time(),Time(),Time(),Time(),time(),time()}
   aMe[4] := {"Nombre",Time(),Time(),Time(),Time(),time(),time()}
   aMe[5] := {"Nombre",Time(),Time(),Time(),Time(),time(),time()}

  DEFINE DIALOG oDlg TITLE "Prueba" SIZE 500,200 PIXEL
 
   @ 10, 10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ;
   DATASOURCE aMe ;
   COLUMNS 1,2,3,4,5,6,7 ;
   HEADERS "Nombre", "Inicia", "Finaliza","Inicia", "Finaliza","Inicia", "Finaliza";
   CELL LINES NOBORDER

   oBrw:CreateFromCode()

   oBrw:SetGroupHeader( "LUNES",     2,3)     //desde col 2 hasta la 3
   oBrw:SetGroupHeader( "MARTES",    4,5)  
   oBrw:SetGroupHeader( "MIERCOLES", 6,7)

  ACTIVATE DIALOG oDlg CENTERED
return NIL

 

Saludos.

[remtec]

Hola Antonio. Es algo asi ?

Code: Select all  Expand view  RUN

#include "fivewin.ch"
#include "xBrowse.ch"

//--------------------------------
function main()
local  oDlg, oBrw, aMe

   aMe := Array(5)
   aMe[1] := {"Nombre",Time(),Time(),Time(),Time(),time(),time()}
   aMe[2] := {"Nombre",Time(),Time(),Time(),Time(),time(),time()}
   aMe[3] := {"Nombre",Time(),Time(),Time(),Time(),time(),time()}
   aMe[4] := {"Nombre",Time(),Time(),Time(),Time(),time(),time()}
   aMe[5] := {"Nombre",Time(),Time(),Time(),Time(),time(),time()}

  DEFINE DIALOG oDlg TITLE "Prueba" SIZE 500,200 PIXEL
 
   @ 10, 10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ;
   DATASOURCE aMe ;
   COLUMNS 1,2,3,4,5,6,7 ;
   HEADERS "Nombre", "Inicia", "Finaliza","Inicia", "Finaliza","Inicia", "Finaliza";
   CELL LINES NOBORDER

   oBrw:CreateFromCode()

   oBrw:SetGroupHeader( "LUNES",     2,3)     //desde col 2 hasta la 3
   oBrw:SetGroupHeader( "MARTES",    4,5)  
   oBrw:SetGroupHeader( "MIERCOLES", 6,7)

  ACTIVATE DIALOG oDlg CENTERED
return NIL

 

Saludos.

Hola Francisco

Te pasaste, muchas gracias por tu ayuda, Funciona Super, ahora a aplicarlo a mi agenda. Era lo que necesitaba.

Muchos Saludos y muy agradecido.

Antonio.

[FranciscoA]

Antonio.
Me alegra te haya servido. Estamos a la orden.
Saludos.