Classe: TMeterCria um objeto do tipo régua de progressso. CreateMé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. | | |
oObjeto(objeto)- Retorna o objeto criado.
nMeter2 := 70oMeter2 := TMeter():Create(oDlg,{|u|if(Pcount()>0,nMeter2:=u,nMeter2)},25,02,; 100,100,16,,.T.)NewMé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. | | |
oObjeto(objeto)- Retorna o objeto criado.
nMeter1 := 20oMeter1 := TMeter():New(02,02,{|u|if(Pcount()>0,nMeter1:=u,nMeter1)},; 100,oDlg,100,16,,.T.)SetAtualiza 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. | | |
Para alterar a posição da régua de progresso, utilize o método SetTotal(). SetTotalDefine 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) 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. SintaxeTMeter():setFatMode ( lFastMode ) | Bloco de código |
|---|
nMeter2 := 70
oMeter2 := TMeter():Create(oDlg,{|u|if(Pcount()>0,nMeter2:=u,nMeter2)},25,02,100,100,16,,.T.)
oMeter2:setFastMode(.T.)
|
ParametrosNome | 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 |
| Bloco de código |
|---|
| language | cpp |
|---|
| theme | Eclipse | language | cpp |
|---|
| title | Exemplos |
|---|
| linenumbers | true |
|---|
| #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 |
Exemplo da classe TMeter  Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server |