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”