Page 1 of 1
Consulta Sobre Cabecera de XBROWSE
Posted: Wed Nov 20, 2019 9:11 pm
by 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.
Re: Consulta Sobre Cabecera de XBROWSE
Posted: Wed Nov 20, 2019 9:38 pm
by cnavarro
Intenta poner en el header de la columna asi:
Por ejemplo para la columna 1
Code: Select all
oBrw:aCols[ 1 ]:cHeader := "Titulo1" + CRLF + "Titulo2"
Si no te funciona así simplemente, ten en cuenta que tienes la data
Re: Consulta Sobre Cabecera de XBROWSE
Posted: Wed Nov 20, 2019 9:47 pm
by FranciscoA
Si te refieres a los super headers, intenta asi:
Code: Select all
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
Re: Consulta Sobre Cabecera de XBROWSE
Posted: Wed Nov 20, 2019 10:11 pm
by remtec
Hola Cristobal y Francisco
Muchas gracias a ambos por responder, revisare como me funciona y les comento.
Muchos Saludos.
Antonio
Re: Consulta Sobre Cabecera de XBROWSE
Posted: Wed Nov 20, 2019 10:12 pm
by remtec
Hola Francisco
Como estas?
Te contacte a tu correo, me comentas.
Saludos
Antonio
Re: Consulta Sobre Cabecera de XBROWSE
Posted: Thu Nov 21, 2019 3:07 pm
by FranciscoA
Hola Antonio. Es algo asi ?
Code: Select all
#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.
Re: Consulta Sobre Cabecera de XBROWSE
Posted: Thu Nov 21, 2019 4:59 pm
by remtec
FranciscoA wrote:Hola Antonio. Es algo asi ?
Code: Select all
#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.
Re: Consulta Sobre Cabecera de XBROWSE
Posted: Thu Nov 21, 2019 8:11 pm
by FranciscoA
Antonio.
Me alegra te haya servido. Estamos a la orden.
Saludos.