erro!!! (Soft Shark)

[lenasi]

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

[lenasi]

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

[Luiz Arruda (ICO)]

#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

[SHARK]

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