Clipper On Line • Ver Tópico - TAB com BROWSE

TAB com BROWSE

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

TAB com BROWSE

Mensagempor Hasse » 09 Jan 2018 10: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 ?

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
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Avatar de usuário

Hasse
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 815
Data de registro: 19 Out 2004 10:30
Cidade/Estado: Jaraguá do Sul - SC
Curtiu: 0 vez
Mens.Curtidas: 24 vezes

TAB com BROWSE

Mensagempor MSDN » 09 Jan 2018 15:00

Hasse,

Veja esses dois exemplos :

C:\minigui\SAMPLES\BASIC\TAB
C:\minigui\SAMPLES\BASIC\Tab_2

No segundo exemplo, além de mostrar visualmente como inserir mais uma aba, se vc clicar com o botão direito em cima de uma aba existente, ele abre um menu de contexto perguntando se quer deletar aquela aba.

E respondendo sua pergunta sobre os DBFs, vc pode trabalhar com quantas tabelas quiser, e fazer o que for preciso, inclusive interagindo entre as abas, a MiniGUI não enxerga aba por aba, nem leva em consideração o TAB, só para efeito visual mesmo, por exemplo :

Vc tem 3 abas :
ABA 1 - cadastro de fornecedores (browse ou grid)
ABA 2 - produtos comprados do fornecedor (browse ou grid)
ABA 3 - um gráfico com as compras feitas

Para enviar ou pegar informação, seria mais ou menos assim :

nCodigo := form_fornecedores.tbox_codigo.value ( ABA 1 )
nQtdeComprada := form_fornecedores.tbox_qtd_comprada.value ( ABA 2 )
MSDN
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 741
Data de registro: 28 Nov 2003 14:55
Cidade/Estado: CWB
Curtiu: 178 vezes
Mens.Curtidas: 123 vezes

TAB com BROWSE

Mensagempor Hasse » 14 Jan 2018 16:37

Boa tarde Marcelo.

Pesquisarei e analisarei os citados exemplos.

Em caso de dúvidas volto ao assunto.

Obrigado pela colaboração.
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Avatar de usuário

Hasse
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 815
Data de registro: 19 Out 2004 10:30
Cidade/Estado: Jaraguá do Sul - SC
Curtiu: 0 vez
Mens.Curtidas: 24 vezes




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 7 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro