| |
|
Bem Vindo, Visitante
|
 Todos os Fórums
  ADVPL
|
 Imprimir
 Enviar Para um Amigo
Precisa estar Logado
|
 |
 |
Assunto: |
Barra de Processo |
|
Versão: |
12.1.17 |
|
Plataforma: |
Microsoft |
Complemento: |
|
|
DB: |
SQL Server |
Complemento: |
|
|
|
|
|
|
|
Mensagem do
CLAUDEVAN1
em 11/11/2019, 17:40 h
Local: AL Registro: 17/07/2019 Postagens: 38 |
Olá por favor alguém sabe explicar o motivo pelo qual os parametros da barra de processo não esta funcionando.
User Function TMeter()
DEFINE DIALOG oDlg TITLE "Exemplo TMeter" FROM 180,180 TO 550,700 PIXEL
// Usando o New
nMeter1 := 70
oMeter1 := TMeter():New(02,02,{|u|if(Pcount()>0,nMeter1:=u,nMeter1)}
,100,oDlg,100,16,,.T.,,,.T.,16777215,,0,,,)
ACTIVATE DIALOG oDlg CENTERED
Return
O parametro de número 13 -> anClrPane Numérico, opcional. Cor de fundo do controle igual a "16777215" corresponde a cor branca.
O parametro de número 15 -> anClrBar Numérico, opcional. Cor da barra de andamento igual a "0" corresponde a cor preta.
Porém não funciona, toda vez que eu executo aparece a cor padrão "AZUL" alguém sabe explicar o motivo ou onde esta o erro.
Desde já obrigado! |
|
|
|
Mensagem do
EMERSON.EN
em 12/11/2019, 08:25 h
Local: SP Registro: 20/08/2010 Postagens: 670 |
Segundo o TDN (https://tdn.totvs.com/display/tec/TMeter) os parâmetros a partir do parâmetro 14 (entre outros) não são mais utilizados, e são mantidos somente para compatibilidade. Provavelmente a cor do progresso será obtida do Windows ou do Protheus.
TMeter():New ( [nRow], [nCol], [bSetGet], [nTotal], [oWnd], [nWidth], [nHeight], [uParam8], [lPixel], [uParam10], [uParam11], [lNoPerc], [nClrPane], [uParam14], [uParam15], [uParam16], [uParam17], [uParam18] )
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.
|
|
 Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|
