lenasi Posted February 25, 2008 Report Share Posted February 25, 2008 Pessoal, estou trabalhando encima de um software de um amigos nosso do fórum, o qual liberou para download com fontes, para podermos aprender mais... Quero agradeçe-lo muito por isso, pois está me ajudando muito... Estou tendo alguns probleminhas quando em virtude de estar adptando alguns itens para meu software. Para não pertubá-lo muito, estarei postando as dúvidas ou erro aqui no fórum sempre com o assunto entre parenteses, Soft Shark, afim de ajudar outros.... Estou deparando com o seguinte erro: Isto acontece por exemplo qdo abro pela segunda vez o mesmo módulo, no caso Cadastro de Clientes: Application =========== Path and name: D:\MeuSoft\SCVWIN.EXE (32 bits) Size: 3,389,440 bytes Time from start: 0 hours 0 mins 15 secs Error occurred at: 25/02/08, 20:57:03 Error description: Error BASE/1004 Message not found: TFOLDER:NCOUNT Stack Calls =========== Called from TFOLDER:ERROR(179) Called from (b)HBOBJECT(105) Called from TFOLDER:MSGNOTFOUND(0) Called from TFOLDER:NCOUNT(167) Called from TFOLDER:SETFONT(2579) Called from TFOLDER:REDEFINE(241) Called from CLIENTES(265) Called from (b)PC_MENUANDACESS(483) Called from TTOOLBAR:COMMAND(147) Called from TWINDOW:COMMAND(929) Called from TWINDOW:HANDLEEVENT(0) Called from _FWH(3117) Called from WINRUN(0) Called from TWINDOW:ACTIVATE(875) Called from MAIN(76) ==================================================== Editado por - lenasi on 05/03/2008 21:00:15 Quote Link to comment Share on other sites More sharing options...
lenasi Posted February 25, 2008 Author Report Share Posted February 25, 2008 Pessoal, estou trabalhando encima de um software de um amigos nosso do fórum, o qual liberou para download com fontes, para podermos aprender mais... Quero agradeçe-lo muito por isso, pois está me ajudando muito... Estou tendo alguns probleminhas quando em virtude de estar adptando alguns itens para meu software. Para não pertubá-lo muito, estarei postando as dúvidas ou erro aqui no fórum sempre com o assunto entre parenteses, Soft Shark, afim de ajudar outros.... Estou deparando com o seguinte erro: Isto acontece por exemplo qdo abro pela segunda vez o mesmo módulo, no caso Cadastro de Clientes: Application =========== Path and name: D:\MeuSoft\SCVWIN.EXE (32 bits) Size: 3,389,440 bytes Time from start: 0 hours 0 mins 15 secs Error occurred at: 25/02/08, 20:57:03 Error description: Error BASE/1004 Message not found: TFOLDER:NCOUNT Stack Calls =========== Called from TFOLDER:ERROR(179) Called from (b)HBOBJECT(105) Called from TFOLDER:MSGNOTFOUND(0) Called from TFOLDER:NCOUNT(167) Called from TFOLDER:SETFONT(2579) Called from TFOLDER:REDEFINE(241) Called from CLIENTES(265) Called from (b)PC_MENUANDACESS(483) Called from TTOOLBAR:COMMAND(147) Called from TWINDOW:COMMAND(929) Called from TWINDOW:HANDLEEVENT(0) Called from _FWH(3117) Called from WINRUN(0) Called from TWINDOW:ACTIVATE(875) Called from MAIN(76) ==================================================== Editado por - lenasi on 05/03/2008 21:00:15 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted February 26, 2008 Report Share Posted February 26, 2008 #include "folder.ch" Não esquecendo tb. de compilar o foldbmp32.lib ou o foldbmp.lib junto com sua aplicação.. Luiz Arruda - Corumbá/MS FWH 2.4 - WS - xHB 09950 - xDev ico.corumba@gmail.com Quote Link to comment Share on other sites More sharing options...
SHARK Posted February 26, 2008 Report Share Posted February 26, 2008 Amigo, Alterei a classe TFolder para trabalhar melhor com fontes. O arquivo folder.ch teve de ser modificado bem como o folder.prg que está na pasta MAX_PRG. Segue a modificação necessária no arquivo folder.ch: #xcommand @ , FOLDER [] ; [ ] ; [ ] ; [ [,] ] ; [ ] ; [ ] ; [ [,] ] ; [ OPTION ] ; [ SIZE , ] ; [ MESSAGE ] ; [ ] ; [ FONT ]; => ; [ := ] TFolder():New( , ,; [\{\}], \{ [,]\},; , , , , <.lPixel.>,; <.lDesign.>, , , , <.lAdjust.>,; ) #xcommand REDEFINE FOLDER [] ; [ ID ] ; [ ] ; [ ] ; [ [,] ] ; [ [,] ] ; [ OPTION ] ; [ ON CHANGE ] ; [ ] ; [ FONT ] ; => ; [ := ] TFolder():ReDefine( , [\{\}],; \{ [,] \}, ,; , , ,; [{|nOption,nOldOption| }], <.lAdjust.>, ) Mandei também pro seu e-mail o arquivo folder.ch, qualquer coisa é só baixar e substituir o que está na pasta include do FWH. Abraços... Editado por - SHARK on 26/02/2008 10:49:40 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.