Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 5 Próxima »

Classe: TCColumn

Cria um objeto do tipo coluna para ser utilizada no browse do sistema, como por exemplo: TCBrowse e BrGetDDb.

TClassInstance -> TCColumn


New

Método construtor da classe.


TCColumn(): New ( < cTitulo>, < bData>, [ cPicture], [ uParam4], [ uParam5], [ cAlinhamento], [ nLargura], [ uParam8], [ lEdit], [ uParam10], [ bValid], [ uParam12], [ uParam13], [ uParam14] ) --> Nil


 

NomeTipoDescriçãoObrigatórioReferência
cTituloCaracterIndica o título da coluna.X 
bDataBloco de códigoIndica o bloco de código que contém o campo da tabela que será apresentado no browse.X 
cPictureCaracterIndica a picture necessária para edição da coluna.  
uParam4QualquerCompatibilidade.  
uParam5QualquerCompatibilidade.  
cAlinhamentoCaracterIndica o tipo de alinhamento da coluna. Sendo: Left (à esquerda), Center (centralizada) ou Right (à direita).  
nLarguraNuméricoIndica a largura da coluna.  
uParam8QualquerIndica se, verdadeiro (.T.), a coluna é uma imagem; caso contrário, falso (.F.) (conteúdo padrão).  
lEditLógicoCompatibilidade.  
uParam10QualquerCompatibilidade.  
bValidBloco de códigoIndica o bloco de código de validação que será executado quando o conteúdo do objeto for modificado. Retorna verdadeiro (.T.), se o conteúdo é válido; caso contrário, falso (.F.).  
uParam12QualquerCompatibilidade.  
uParam13QualquerCompatibilidade.  
uParam14QualquerCompatibilidade.  

 


oBrowse:AddColumn(TCColumn():New("Codigo",{||SA1->A1_COD },"@!",,,"LEFT",,.F.,.F.,,,,,))

 

PropriedadeDescriçãoTipo
bDataIndica o bloco de código que contém o campo da tabela que será apresentado no browse.Bloco de código
bValidIndica o bloco de código de validação que será executado quando o conteúdo do objeto for modificado. Retorna verdadeiro (.T.), se o conteúdo é válido; caso contrário, falso (.F.).Bloco de código
cHeadingIndica o título da coluna.Caracter
cPictureIndica a picture necessária para edição da coluna.Caracter
lEditIndica se habilita(.T.)/desabilita(.F.) a edição da célula.Lógico

 


Para informações sobre utilização de browse, consulta a documentação da classe TCBrowse.

A partir do build 131227A, sempre que não existir possibilidade de exibir o texto por completo na célula será acrescentando reticências.


#include "TOTVS.CH"
User Function TCColumn()
DEFINE DIALOG oDlg TITLE "Exemplo TCColumn" FROM 180,180 TO 550,700 PIXEL

// Cria browse que receberá as colunas
DbSelectArea("SA1")
oBrowse:=BrGetDDB():New(1,1,260,184,,,,oDlg,,,,,,,,,,,,.F.,"SA1",.T.,,.F.,,,)
// Cria colunas
oBrowse:AddColumn(TCColumn():New("Codigo",{||SA1->A1_COD },,,,"LEFT",,.F.,.F.,,,,,))
oBrowse:AddColumn(TCColumn():New("Loja" ,{||SA1->A1_LOJA},,,,"LEFT",,.F.,.F.,,,,,))
oBrowse:AddColumn(TCColumn():New("Nome" ,{||SA1->A1_NOME},,,,"LEFT",,.F.,.F.,,,,,))

ACTIVATE DIALOG oDlg CENTERED Return

Exemplo da classe TCColumn

Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

 

  • Sem rótulos