Tela básica com TCBrowse

O intuito deste post é oferecer um exemplo básico de tela em ADVPL contendo um Say, um Get, uma Enchoice e um TCBrowse (com cores) da maneira mais simples possível, sem definir fontes, tamanhos e posicionamentos relativos, etc. A idéia é servir para uma referência rápida. Segue:


Local oVerde    := LoadBitmap(GetResources(),'BR_VERDE')    
Local oAmarelo  := LoadBitmap(GetResources(),'BR_AMARELO') 
Local oVermelho := LoadBitmap(GetResources(),'BR_VERMELHO') 
Local oPreto    := LoadBitmap(GetResources(),'BR_PRETO') 
Local oAzul     := LoadBitmap(GetResources(),'BR_AZUL') 

Private _cIDCons := "ABC123"

oDlg := MSDialog():New(0,0,350,552,"Consulta",,,.F.,,,,,,.T.,,,.T. )
oDlg:bInit := {||EnchoiceBar(oDlg,{||oDlg:End()},{|| oDlg:End()},,)}

oSay := TSay():New(10,05,{||'Código da consulta:'},oDlg,,/*oFont*/,,,,.T.,/*CLR_BLACK*/,/*CLR_WHITE*/,50,10)
oGet := TGet():New(08,55,{||_cIDCons},oDlg,040,009,"@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.T.,.F.,,_cIDCons,,,, )

aBrowse := {{oAzul,"Nome","Antônio Gustavo"},;
            {oVerde,"Endereço","Rua A, 123 casa 4"},;
            {oVermelho,"Telefone","(21) 99583-1283"}}

oBrowse := TCBrowse():New( 25 , 5, 270, 135,,;
                          {'','Consulta','Resultado'},{20,150,50},;

oDlg,,,,,{||},,,,,,,.F.,,.T.,,.F.,,, )

oBrowse:SetArray(aBrowse)

oBrowse:bLine := {||{ aBrowse[oBrowse:nAt,01],;
                      aBrowse[oBrowse:nAt,02],;
                      aBrowse[oBrowse:nAt,03] } }

oDlg:Activate(,,,.T.)

One thought on “Tela básica com TCBrowse

Deixe uma Resposta

Preencha os seus detalhes abaixo ou clique num ícone para iniciar sessão:

Logótipo da WordPress.com

Está a comentar usando a sua conta WordPress.com Terminar Sessão /  Alterar )

Google photo

Está a comentar usando a sua conta Google Terminar Sessão /  Alterar )

Imagem do Twitter

Está a comentar usando a sua conta Twitter Terminar Sessão /  Alterar )

Facebook photo

Está a comentar usando a sua conta Facebook Terminar Sessão /  Alterar )

Connecting to %s