TOTVSTEC

Árvore de páginas

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], [ uParam18] ) --> 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.  
uParam18QualquerCompatibilidade.  

 

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], [ uParam18] ) --> 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.  
uParam18Ló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

SetFastMode

O método SetFastMode permite criar uma barra de progressos com alta performance de renderização (pintura).

Importante: Devido ao ganho de performance o aspecto da barra de progressos será mais "limpo", diminuindo assim o tempo de pintura.

Sintaxe

TMeter():setFatMode ( lFastMode )

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

Parametros

Nome

Tipo

Descrição

Obrigatório

Referência

lFastMode

Boleano

Caso seja usado .T. (verdadeiro) irá ligar o modo Fast

X

 

 

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

 

  • Sem rótulos