Classe: TMeter
Cria um objeto do tipo régua de progressso.
TSrvObject -> TControl -> TMeter
Create
Método construtor da classe.
TMeter(): Create ( [ oWnd], [ bSetGet], [ nRow], [ nCol], [ nTotal], [ nWidth], [ nHeight], [ uParam8], [ lPixel], [ uParam10], [ uParam11], [ lNoPercentage], [ nClrPane], [ uParam14], [ uParam15], [ uParam16], [ uParam17], [ uParam18] ) --> oObjeto
Nome | Tipo | Descrição | Obrigatório | Referência |
oWnd | Objeto | Indica a janela ou controle visual onde o objeto será criado. | ||
bSetGet | Bloco de código | Indica 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. | ||
nRow | Numérico | Indica a coordenada vertical em pixels ou caracteres. | ||
nCol | Numérico | Indica a coordenada horizontal em pixels ou caracteres. | ||
nTotal | Numérico | Indica o número total de passos até o preenchimento da régua de progresso. | ||
nWidth | Numérico | Indica a largura em pixels do objeto. | ||
nHeight | Numérico | Indica a altura em pixels do objeto. | ||
uParam8 | Qualquer | Compatibilidade. | ||
lPixel | Lógico | Indica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.). | ||
uParam10 | Qualquer | Compatibilidade. | ||
uParam11 | Qualquer | Compatibilidade. | ||
lNoPercentage | Lógico | Indica se, verdadeiro (.T.), não considera os passos de atualização em porcentagem; caso contrário, falso (.F.). | ||
nClrPane | Numérico | Indica a cor de fundo do objeto. | ||
uParam14 | Qualquer | Compatibilidade. | ||
uParam15 | Qualquer | Compatibilidade. | ||
uParam16 | Qualquer | Compatibilidade. | ||
uParam17 | Qualquer | Compatibilidade. | ||
uParam18 | Qualquer | Compatibilidade. |
- (objeto)
- Retorna o objeto criado.
nMeter2 := 70oMeter2 := TMeter():Create(oDlg,{|u|if(Pcount()>0,nMeter2:=u,nMeter2)},25,02,; 100,100,16,,.T.)
New
Método construtor da classe.
TMeter(): New ( [ nRow], [ nCol], [ bSetGet], [ nTotal], [ oWnd], [ nWidth], [ nHeight], [ uParam8], [ lPixel], [ uParam10], [ uParam11], [ lNoPerc], [ nClrPane], [ uParam14], [ uParam15], [ uParam16], [ uParam17], [ uParam18] ) --> oObjeto
Nome | Tipo | Descrição | Obrigatório | Referência |
nRow | Numérico | Indica a coordenada vertical em pixels ou caracteres. | ||
nCol | Numérico | Indica a coordenada horizontal em pixels ou caracteres. | ||
bSetGet | Bloco de código | Indica 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. | ||
nTotal | Numérico | Indica o número total de passos até o preenchimento da régua de processo. | ||
oWnd | Objeto | Indica a janela ou controle visual onde o objeto será criado. | ||
nWidth | Numérico | Indica a largura em pixels do objeto. | ||
nHeight | Numérico | Indica a altura em pixels do objeto. | ||
uParam8 | Lógico | Compatibilidade. | ||
lPixel | Lógico | Indica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.). | ||
uParam10 | Objeto | Compatibilidade. | ||
uParam11 | Caracter | Compatibilidade. | ||
lNoPerc | Lógico | Indica se, verdadeiro (.T.), não considera os passos de atualização em porcentagem; caso contrário, falso (.F.). | ||
nClrPane | Numérico | Indica a cor de fundo do objeto. | ||
uParam14 | Numérico | Compatibilidade. | ||
uParam15 | Numérico | Compatibilidade. | ||
uParam16 | Numérico | Compatibilidade. | ||
uParam17 | Lógico | Compatibilidade. | ||
uParam18 | Lógico | Compatibilidade. |
- (objeto)
- Retorna o objeto criado.
nMeter1 := 20oMeter1 := TMeter():New(02,02,{|u|if(Pcount()>0,nMeter1:=u,nMeter1)},; 100,oDlg,100,16,,.T.)
Set
Atualiza a posição da régua de progresso.
TMeter(): Set ( [ nVal] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
nVal | Numérico | Indica o novo valor da posição da régua de progresso. |
oMeter:Set(50)
SetTotal
Define a posição máxima do contador.
TMeter(): SetTotal ( [ nVal] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
nVal | Numérico | Indica a posição máxima do contador da barra de progresso. |
Exemplo:
Caso este método seja definido como 200 e o Set() com 100, a barra de progresso ficará exatamente na metade do objeto.
oMeter:SetTotal(200)
oMeter:Set(100)
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 | Descrição | Tipo |
lPercentage | Indica se considera o passo de movimentação em porcentagem. | Lógico |
nClrPane | Indica a cor de fundo do objeto. | Numérico |
nTotal | Indica o número total de passos até o preenchimento da régua de progresso. | Numérico |
#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
![](https://tdn.totvs.com/download/attachments/6063256/Mon+May+21+15%3A39%3A18+BRT+2012exemplo_tmeter.jpeg?version=1&modificationDate=1337625558787)