Página 1 de 1
Label Transparent Run time
Enviado: 01 Out 2015 11:14
por ph010574
Bom dia !
Sei que esse tema ja foi tratado na hmg 3.4.0 mas porem quando atualizei para 3.4.1 ou 3.4.2 esse problema volta e ja apliquei os patchs de correção disponiveis mas ainda continuar....
nao sei como anexar image do meu PDV ...
Label Transparent Run time
Enviado: 01 Out 2015 11:24
por Toledo
Amigo, poste o código desta LABEL aqui neste tópico, assim fica mais fácil descobrir onde está o problema.
ph010574 escreveu:nao sei como anexar image do meu PDV ...
Veja esta mensagem:
Como anexar arquivo nas mensagens
Observe que no passo 3 da mensagem do link acima tem um botão "Colocar na linha", que pode ser usado para colocar arquivos de imagem (JPG ou PNG) no corpo da mensagem, onde o cursor estiver posicionado.
Abraços,
Label Transparent Run time
Enviado: 01 Out 2015 12:55
por ph010574
Utilizo um Formulario "Form_Pdv" IDE no qual o LABEL_PRODUTO esta definido como Transparent
Código: Selecionar todos
Function Mostrar_Barra()
*-----------------------------------
Local cBarra
IF IsWindowDefined(Form_Pdv)
*
IF IsWindowActive(Form_Pdv)
DoMethod("Form_Pdv","Setfocus")
ELSE
DoMethod("Form_Pdv","Restore")
ENDIF
*
cBarra:=Alltrim(Vetor_Itens[1,2])
cBarra:=cBarra+" "+Transform(nQuantidade, "@E 9,999.999")
cBarra:=cBarra+" X "+Transform(Vetor_Itens[1,8], "@E 99,999.99")
If ( nJuro >0 )
cBarra:=cBarra+" + "+Transform(nJuro, "@E 9,999.99")
cBarra:=cBarra+" = "+Transform((Vetor_Itens[1,8]*nQuantidade)+nJuro, "@E 999,999.99")
Endif
If ( nDesconto >0 )
cBarra:=cBarra+" - "+Transform(nDesconto, "@E 9,999.99")
cBarra:=cBarra+" = "+Transform((Vetor_Itens[1,8]*nQuantidade)-nDesconto, "@E 999,999.99")
Endif
If ( nJuro=0 .AND. nDesconto=0 )
cBarra:=cBarra+" = "+Transform((Vetor_Itens[1,8]*nQuantidade), "@E 999,999.99")
Endif
*-- Mudar Tamanho da Font
nFont:=15
nWith:=760
DO WHILE (nFont*HMG_LEN(cBarra)) > (nWith+450)
nFont:=nFont-1
Enddo
MODIFY CONTROL Label_produto OF Form_Pdv FONTSIZE nFont
*-- Mostrar Produto no Label
Form_Pdv.Label_produto.value:=cBarra
* Verificar se Produto é Controlado
If( Vetor_Itens[1,19] = 1 )
//MsgInfo("PRODUTO CONTROLADO")
Endif
ENDIF
*
Return Nil
Label Transparent Run time
Enviado: 01 Out 2015 12:58
por ph010574
Mas como se ver todos os LABELS atualizados em RunTime ficam Bagunçados...
Label Transparent Run time
Enviado: 01 Out 2015 14:12
por Toledo
Amigo, faltou postar o código da LABEL que está no arquivo Form_Pdv.fmg.
Abraços,
Label Transparent Run time
Enviado: 01 Out 2015 22:14
por ph010574
Boa Noite !
todos os LABELS DO FORM estaõ seguindo esse mesmo padrão a baixo:
DEFINE LABEL Label_Produto
ROW 65
COL 13
WIDTH 760
HEIGHT 29
VALUE ""
FONTNAME "Times new roman"
FONTSIZE 15
TOOLTIP ""
FONTBOLD .T.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID Nil
VISIBLE .T.
TRANSPARENT .T.
ACTION Nil
AUTOSIZE .F.
BACKCOLOR {238,238,221}
FONTCOLOR {255,0,0}
END LABEL
Label Transparent Run time
Enviado: 02 Out 2015 07:23
por Toledo
Amigo, pelos códigos apresentados, parece que está tudo certo e não deveria provocar este problema. Mas acho que deve ter algum outro código depois (ou antes) que pode estar remontando uma label sobre a outra, tudo indica que seja a label que contém "AGUARDANDO PRÓXIMO ITEM...".
Provavelmente existe duas labels, com nomes diferentes, ocupando o mesmo espaço.
Abraços,
Label Transparent Run time
Enviado: 02 Out 2015 18:13
por ph010574
Muito estranho ++ porem so tem uma mesma label... sendo que quando mudo seu valor ela recebe o novo valor porem cola por sima do valor anterior... mas isso com transparencia Habilitado... se Desabilitar funciona normal...
Label Transparent Run time
Enviado: 02 Out 2015 21:03
por Claudio Soto
Proba forzar el repintado del Label luego de asignarle el valor:
Código: Selecionar todos
*-- Mostrar Produto no Label
Form_Pdv.Label_produto.value:=cBarra
Form_Pdv.Label_produto.REDRAW