Label Transparent Run time

[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 ...

[Toledo]

Amigo, poste o código desta LABEL aqui neste tópico, assim fica mais fácil descobrir onde está o problema.

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,

[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

[ph010574]

Mas como se ver todos os LABELS atualizados em RunTime ficam Bagunçados...

[Toledo]

Amigo, faltou postar o código da LABEL que está no arquivo Form_Pdv.fmg.

Abraços,

[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

[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,

[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...

[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