Classe: TSBrowse
Cria um objeto do tipo grade.
TSrvObject -> TControl -> TCBrowse -> TSBrowse
New
Método construtor da classe.
TSBrowse(): New ( [ nRow], [ nCol], [ nWidth], [ nHeigth], [ oWnd], [ bChange], [ uParam7], [ oFont], [ nLines] ) --> oObjeto
| Nome | Tipo | Descrição | Obrigatório | Referência |
| nRow | Numérico | Indica a coordenada vertical. | ||
| nCol | Numérico | Indica a coordenada horizontal. | ||
| nWidth | Numérico | Indica a largura em pixels do objeto. | ||
| nHeigth | Numérico | Indica a altura em pixels do objeto. | ||
| oWnd | Objeto | Indica a janela ou controle visual onde o objeto será criado. | ||
| bChange | Bloco de código | Indica o bloco de código que será executado ao mudar de linha. | ||
| uParam7 | Numérico | Compatibilidade. | ||
| oFont | Objeto | Indica o objeto do tipo TFont utilizado para definir as características da fonte aplicada na exibição do conteúdo do controle visual. | ||
| nLines | Numérico | Indica 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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas