VCBrowse obsoleto

Classe: VCBrowse (obsoleto)

Cria um objeto do tipo grade.

Hierarquia

TSrvObject -> TControl -> VCBrowse

Construtores

New

Método construtor da classe.

Sintaxe

VCBrowse (obsoleto)(): New ( [ nRow], [ nCol], [ nWidth], [ nHeight], [ bLine], [ aHeaders], [ aColSizes], [ oWnd], [ cField], [ uValue1], [ uValue2], [ bChange], [ bLDblClick], [ bRClick], [ oFont], [ oCursor], [ nClrFore], [ nClrBack], [ cMsg], [ uParam20], [ cAlias], [ lPixel], [ bWhen], [ uParam24], [ bValid], [ lHScroll], [ lVScroll] ) --> oObjeto

Parâmetros

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.
nHeight	Numérico	Indica a altura em pixels do objeto.
bLine	Bloco de código	Indica o bloco de código da lista de campos
aHeaders	Array of Record	Indica o título dos campos no cabeçalho.
aColSizes	Array of Record	Indica a largura das colunas.
oWnd	Objeto	Indica a janela ou controle visual onde o objeto será criado.
cField	Caracter	Indica os campos necessários para o filtro.
uValue1	Qualquer	Indica o início do intervalo para o filtro.
uValue2	Qualquer	Indica o fim do intervalo para o filtro.
bChange	Bloco de código	Indica o bloco de código que será executado quando o estado ou conteúdo do objeto é modificado pela ação sobre o controle visual.
bLDblClick	Bloco de código	Indica o bloco de código que será executado quando clicar duas vezes, com o botão esquerdo do mouse, sobre o objeto.
bRClick	Bloco de código	Indica o bloco de código que será executado quando clicar, com o botão direito do mouse, sobre o objeto.
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.
oCursor	Objeto	Indica o tipo de ponteiro do mouse.
nClrFore	Numérico	Indica a cor do texto da janela.
nClrBack	Numérico	Indica a cor de fundo da janela.
cMsg	Caracter	Indica a mensagem ao posicionar o ponteiro do mouse sobre o objeto.
uParam20	Lógico	Compatibilidade.
cAlias	Caracter	Indica se o objeto é utilizado com array (opcional) ou tabela (obrigatório).
lPixel	Lógico	Indica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.).
bWhen	Bloco de código	Indica o bloco de código que será executado quando a mudança de foco da entrada de dados, na janela em que o controle foi criado, estiver sendo efetuada. Observação: O bloco de código retornará verdadeiro (.T.) se o controle permanecer habilitado; caso contrário, retornará falso (.F.).
uParam24	Lógico	Compatibilidade.
bValid	Bloco de código	Indica 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.).
lHScroll	Lógico	Indica se habilita(.T)/desabilita (.F.) a barra de rolagem horizontal.
lVScroll	Lógico	Indica se habilita(.T.)/desabilita(.F.) a barra de rolagem vertical.

Retorno

oObjeto

Retorna o objeto criado.

Exemplos

oBrowse := VCBrowse():New( 01,01,260,184,,;                         {'','Codigo','Descrição'},{20,30,30}, oDlg, ,,,,;                         {||},,,,,,,.F.,,.T.,,.F.,,, )

Observações

Recomendamos o uso da classe TWBrowse.

Exemplos

#include "TOTVS.CH"
User Function VCBrowse()
Local oOK := LoadBitmap(GetResources(),'br_verde')
Local oNO := LoadBitmap(GetResources(),'br_vermelho')  
DEFINE DIALOG oDlg TITLE "Exemplo VCBrowse" FROM 180,180 TO 550,700 PIXEL	    

oBrowse := VCBrowse():New( 01,01,260,184,,;                            
{'','Codigo','Descrição'},{20,30,30}, oDlg, ,,,,;                            
{||},,,,,,,.F.,,.T.,,.F.,,, )    
aBrowse   := {{.T.,'CLIENTE 001','RUA CLIENTE 001','BAIRRO CLIENTE 001'},;                            
{.F.,'CLIENTE 002','RUA CLIENTE 002','BAIRRO CLIENTE 002'},;                            
{.T.,'CLIENTE 003','RUA CLIENTE 003','BAIRRO CLIENTE 003'} }    
oBrowse:SetArray(aBrowse)    
oBrowse:bLine := {||{If(aBrowse[oBrowse:nAt,01],oOK,oNO),;                    
aBrowse[oBrowse:nAt,02],;                    
aBrowse[oBrowse:nAt,03],;                    
aBrowse[oBrowse:nAt,04] } }    
// Troca a imagem no duplo click do mouse    
oBrowse:bLDblClick:={|| aBrowse[oBrowse:nAt][1] := !aBrowse[oBrowse:nAt][1],;                           
oBrowse:DrawSelect()}  

ACTIVATE DIALOG oDlg CENTERED 
Return

Preview

Exemplo da classe VCBrowse

Abrangência

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

Árvore de páginas

VCBrowse obsoleto

Classe: VCBrowse (obsoleto)

New

Método construtor da classe.