import.css=/download/attachments/327912/newLayout.css

Classe: TMeter

Cria um objeto do tipo régua de progressso.


Hierarquia

TSrvObject -> TControl -> TMeter


Construtores
Create

Create

Método construtor da classe.


Sintaxe

TMeter(): Create ( [ oWnd], [ bSetGet], [ nRow], [ nCol], [ nTotal], [ nWidth], [ nHeight], [ uParam8], [ lPixel], [ uParam10], [ uParam11], [ lNoPercentage], [ nClrPane], [ uParam14], [ uParam15], [ uParam16], [ uParam17] ) --> oObjeto


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
oWndObjetoIndica a janela ou controle visual onde o objeto será criado.
bSetGetBloco de códigoIndica o bloco de código, no formato {|u| if( Pcount( )>0, := u, ) }, que será executado para atualizar a variável (essa variável deve ser do tipo caracter). Desta forma, se a lista for seqüencial, o controle atualizará com o conteúdo do item selecionado, se for indexada, será atualizada com o valor do índice do item selecionado.
nRowNuméricoIndica a coordenada vertical em pixels ou caracteres.
nColNuméricoIndica a coordenada horizontal em pixels ou caracteres.
nTotalNuméricoIndica o número total de passos até o preenchimento da régua de progresso.
nWidthNuméricoIndica a largura em pixels do objeto.
nHeightNuméricoIndica a altura em pixels do objeto.
uParam8QualquerCompatibilidade.
lPixelLógicoIndica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.).
uParam10QualquerCompatibilidade.
uParam11QualquerCompatibilidade.
lNoPercentageLógicoIndica se, verdadeiro (.T.), não considera os passos de atualização em porcentagem; caso contrário, falso (.F.).
nClrPaneNuméricoIndica a cor de fundo do objeto.
uParam14QualquerCompatibilidade.
uParam15QualquerCompatibilidade.
uParam16QualquerCompatibilidade.
uParam17QualquerCompatibilidade.
Retorno
    oObjeto(objeto)
  • Retorna o objeto criado.

Exemplos 
nMeter2 := 70oMeter2 := TMeter():Create(oDlg,{|u|if(Pcount()>0,nMeter2:=u,nMeter2)},25,02,;                               100,100,16,,.T.)
New

New

Método construtor da classe.


Sintaxe

TMeter(): New ( [ nRow], [ nCol], [ bSetGet], [ nTotal], [ oWnd], [ nWidth], [ nHeight], [ uParam8], [ lPixel], [ uParam10], [ uParam11], [ lNoPerc], [ nClrPane], [ uParam14], [ uParam15], [ uParam16], [ uParam17] ) --> oObjeto


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
nRowNuméricoIndica a coordenada vertical em pixels ou caracteres.
nColNuméricoIndica a coordenada horizontal em pixels ou caracteres.
bSetGetBloco de códigoIndica o bloco de código, no formato {|u| if( Pcount( )>0, := u, ) }, que será executado para atualizar a variável (essa variável deve ser do tipo caracter). Desta forma, se a lista for seqüencial, o controle atualizará com o conteúdo do item selecionado, se for indexada, será atualizada com o valor do índice do item selecionado.
nTotalNuméricoIndica o número total de passos até o preenchimento da régua de processo.
oWndObjetoIndica a janela ou controle visual onde o objeto será criado.
nWidthNuméricoIndica a largura em pixels do objeto.
nHeightNuméricoIndica a altura em pixels do objeto.
uParam8LógicoCompatibilidade.
lPixelLógicoIndica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.).
uParam10ObjetoCompatibilidade.
uParam11CaracterCompatibilidade.
lNoPercLógicoIndica se, verdadeiro (.T.), não considera os passos de atualização em porcentagem; caso contrário, falso (.F.).
nClrPaneNuméricoIndica a cor de fundo do objeto.
uParam14NuméricoCompatibilidade.
uParam15NuméricoCompatibilidade.
uParam16NuméricoCompatibilidade.
uParam17LógicoCompatibilidade.
Retorno
    oObjeto(objeto)
  • Retorna o objeto criado.

Exemplos 
nMeter1 := 20oMeter1 := TMeter():New(02,02,{|u|if(Pcount()>0,nMeter1:=u,nMeter1)},;                             100,oDlg,100,16,,.T.)

Métodos
Set

Set

Atualiza a posição da régua de progresso.


Sintaxe

TMeter(): Set ( [ nVal] ) -->


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
nValNuméricoIndica o novo valor da posição da régua de progresso.

Observações
Para alterar a posição da régua de progresso, utilize o método SetTotal().

Exemplos 
oMeter:Set(50)
SetTotal

SetTotal

Define a posição máxima do contador.


Sintaxe

TMeter(): SetTotal ( [ nVal] ) -->


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
nValNuméricoIndica a posição máxima do contador da barra de progresso.

Observações

Exemplo:

Caso este método seja definido como 200 e o Set() com 100, a barra de progresso ficará exatamente na metade do objeto.


Exemplos 
oMeter:SetTotal(200)oMeter:Set(100)

Preview
Exemplo do método SetTotal

Propriedade
PropriedadeDescriçãoTipo
lPercentageIndica se considera o passo de movimentação em porcentagem.Lógico
nClrPaneIndica a cor de fundo do objeto.Numérico
nTotalIndica o número total de passos até o preenchimento da régua de progresso.Numérico

Exemplos 
#include "TOTVS.CH"User Function TMeter()  DEFINE DIALOG oDlg TITLE "Exemplo TMeter" FROM 180,180 TO 550,700 PIXEL                                              // Usando o New    nMeter1 := 20    oMeter1 := TMeter():New(02,02,{|u|if(Pcount()>0,nMeter1:=u,nMeter1)},;                               100,oDlg,100,16,,.T.)                       // Usando o Create    nMeter2 := 70    oMeter2 := TMeter():Create(oDlg,{|u|if(Pcount()>0,nMeter2:=u,nMeter2)},25,02,;                               100,100,16,,.T.)              ACTIVATE DIALOG oDlg CENTERED Return

Preview
Exemplo da classe TMeter

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