TAB com BROWSE
Enviado: 09 Jan 2018 11:26
Bom dia amigos.
Um DBF popula o Browse abaixo em um TAB / PAGE, conforme código abaixo.
Quero abrir 2 ou mais arquivos, cada um em uma ABA diferente.
A minha ideia é inserir mais PAGE´s denominados de cPage_2, cPage_3, e assim por diante, até um limite de 6 ou 7 DBF´s.
As propriedades de cada PAGE devem constar em ARRAY´s individuais para cada PAGE ?
Todos os PAGE´s devem ser inicializados vazios ao inciar o aplicativo, ou somente na abertura dos DBF´s subsequentes ?
Como se faz isso ?
Um DBF popula o Browse abaixo em um TAB / PAGE, conforme código abaixo.
Quero abrir 2 ou mais arquivos, cada um em uma ABA diferente.
A minha ideia é inserir mais PAGE´s denominados de cPage_2, cPage_3, e assim por diante, até um limite de 6 ou 7 DBF´s.
As propriedades de cada PAGE devem constar em ARRAY´s individuais para cada PAGE ?
Todos os PAGE´s devem ser inicializados vazios ao inciar o aplicativo, ou somente na abertura dos DBF´s subsequentes ?
Como se faz isso ?
Código: Selecionar todos
DEFINE TAB Tab_1 OF oWndDBF AT 30,15 WIDTH oWndDBF.width - 38 HEIGHT oWndDBF.height - 137 VALUE 1 FONT "Arial" SIZE 9 TOOLTIP "" FLAT ON CHANGE Nil
*
PAGE cPage_1
*
@ 26, 00 BROWSE Browse_1 OF oWndDBF ;
WIDTH oWndDBF.width - 40 ;
HEIGHT oWndDBF.height - 137 ;
HEADERIMAGE aCabImg ;
HEADERS aHdr ;
WIDTHS aLong ;
WORKAREA &c_Dbf_1 ;
FIELDS aNomb ;
JUSTIFY aJust ;
VALUE 0 ;
EDIT INPLACE ;
APPEND ;
FONT "MS Sans Serif" SIZE 8 ;
TOOLTIP "" ;
ON CHANGE VerRecord( cBase ) ;
IMAGE { "br_no", "br_ok" } ;
LOCK ;
FONTCOLOR aFntClr ;
BACKCOLOR aBackClr ;
DELETE
*
END PAGE
*
END TAB