TOTVSTEC

Árvore de páginas

Classe: TSBrowse

Cria um objeto do tipo grade.

Hierarquia

TSrvObject -> TControl -> TCBrowse -> TSBrowse


Construtores
New

New

Método construtor da classe.


Sintaxe

TSBrowse(): New ( [ nRow], [ nCol], [ nWidth], [ nHeigth], [ oWnd], [ bChange], [ uParam7], [ oFont], [ nLines] ) --> oObjeto


Parâmetros

 

NomeTipoDescriçãoObrigatórioReferência
nRowNuméricoIndica a coordenada vertical.  
nColNuméricoIndica a coordenada horizontal.  
nWidthNuméricoIndica a largura em pixels do objeto.  
nHeigthNuméricoIndica a altura em pixels do objeto.  
oWndObjetoIndica a janela ou controle visual onde o objeto será criado.  
bChangeBloco de códigoIndica o bloco de código que será executado ao mudar de linha.  
uParam7NuméricoCompatibilidade.  
oFontObjetoIndica o objeto do tipo TFont utilizado para definir as características da fonte aplicada na exibição do conteúdo do controle visual.  
nLinesNuméricoIndica o número de linhas por células.  

 

Retorno
oObjeto
    (objeto)
  • Retorna o objeto criado.

Exemplos
oBrowse := TSBrowse():New(01,01,260,170,oDlg,,16,,5)

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

aBrowse   := {{'CLIENTE 001','RUA CLIENTE 001','BAIRRO CLIENTE 001'},;                  
{'CLIENTE 002','RUA CLIENTE 002','BAIRRO CLIENTE 002'},;                  
{'CLIENTE 003','RUA CLIENTE 003','BAIRRO CLIENTE 003'} }    

oBrowse := TSBrowse():New(01,01,260,184,oDlg,,16,,5)    
oBrowse:AddColumn( TCColumn():New('Nome',,,{|| },{|| }) )    
oBrowse:AddColumn( TCColumn():New('Endereço',,,{|| },{|| }) )    
oBrowse:AddColumn( TCColumn():New('Bairro',,,{|| },{|| }) )    
oBrowse:SetArray(aBrowse)  

ACTIVATE DIALOG oDlg CENTERED 
Return

Preview
Exemplo da classe TSBrowse

Abrangência
Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

 

  • Sem rótulos