Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Portuguese

Pagetitle
TSBrowse
TSBrowse

Classe: TSBrowse

Cria um objeto do tipo grade.


TSrvObject -> TControl -> TCBrowse -> TSBrowse


New

New

Método construtor da classe.


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


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.
    oObjeto(objeto)
  • Retorna o objeto criado.

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

#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

Exemplo da classe TSBrowse

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