kapiaba Posted May 8 Report Share Posted May 8 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. Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted May 8 Report Share Posted May 8 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 8 Author Report Share Posted May 8 fala garoto. Enviado pelo kapiabafwh@gmail.com abs. Regards, saludos. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 8 Author Report Share Posted May 8 Não funcionou. continua explodindo a classe. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 8 Author Report Share Posted May 8 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. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.