Probando TGSAY.prg y su potencia.

[kapiaba]

Probando TGSAY.prg y su potencia.  Alguém conseguiu usar esta classe com RECURSOS?

 

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=44493&sid=20f6eeaf94211ab1ccef9ededcc22b52

 

Com @SAY, ela está abolsutamente perfeita, más com RECURSOS(WORKSHOP.exe) explode que nem dinamite.

Tks, danke.

 

Regards, saludos.

[Luiz Fernando]

Ola Kapiaba, eu usei ela na época, no meu PDV, estava vendo os fonte aqui é bem simples, substituir o say por trsay e o get por gsay, nada mais além disso.

#include "include\tgsay.ch"
#include "include\TRSay.ch"


	// unitario
   REDEFINE trSAY oSay[1] VAR cSay[1] ID 4007 OF oPdv font Arial22B RIGHT RIGHT 
   // oSay[1]:transparent:=.t.
   REDEFINE trSAY oSay[2] VAR cSay[2] ID 4008 OF oPdv font Arial22B
   REDEFINE trSAY oSay[3] VAR cSay[3] ID 4009 OF oPdv font Arial22B  
   REDEFINE trSAY oSay[4] VAR cSay[4] ID 4001 OF oPdv font Arial22B  
   REDEFINE trSAY oSay[5] VAR cSay[5] ID 4003 OF oPdv font Arial18B  

   // descricao da mercadoria
   REDEFINE GSAY oGet[1] VAR cGet[1] ID 101 OF oPdv UPDATE COLOR CLR_YELLOW,CLR_HBLUE ;
   CENTER LEFET ROUNDED FONT Arial34B COLORSOMBRA CLR_BLUE

	// qtd
   REDEFINE GSAY oGet[2] VAR qtd_vendida ID 102 OF oPdv UPDATE COLOR CLR_YELLOW,CLR_HBLUE ;
   RIGHT LEFET ROUNDED FONT Arial30B COLORSOMBRA CLR_BLUE

	// unitario
   REDEFINE GSAY oGet[3] VAR preco_unitario ID 103 OF oPdv UPDATE COLOR CLR_YELLOW,CLR_HBLUE ;
   RIGHT LEFET ROUNDED FONT Arial30B COLORSOMBRA CLR_BLUE

Agora que me lembrei, tive que alterar algumas coisa dentro da classe, me passa um email para empresoft@empresoft.com.br, que respondo com os prg

[kapiaba]

fala garoto. Enviado pelo kapiabafwh@gmail.com

abs.

 

Regards, saludos.

[kapiaba]

Não funcionou. continua explodindo a classe.

 

[kapiaba]

Luiz, o problema e nesta linha:

      IF ::lSombra  // LINHA 462
	 SetTextColor( ::hDc, ::C_SOMBRA)
	 DrawText(  ::hDc, ::cCaption, {4,4+nSmbr,::nHeight-2,::nWidth-2+nSmbr}, ::nAlign )
	 SetTextColor( ::hDc, nClrLetra )
      ENDIF

Regards, saludos.