.RC me genera un error

[A&C]

al usar en un .RC un objeto Borland shade style al compilar con xharb... y FWH27,, me marca error y es solamente por es objeto que incluyo en el .RC,, ojo el archivo .Rc lo genero con workshop

este error marca

Application
===========
Path and name: D:\Folios\xFolio.Exe (32 bits)
Size: 1,201,152 bytes
Time from start: 0 hours 0 mins 1 secs
Error occurred at: 01/02/2007, 18:17:35
Error description: Error FiveWin/3 Cannot create Dialog Box:
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿResource: 1

Stack Calls
===========
Called from: => CREATEDLGERROR(0)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: xfolio2.prg => MODULO1(41)
Called from: xfolio.prg => VENTANA(178)
Called from: xfolio.prg => (b)MAIN(59)
Called from: TOOLBAR.PRG => TTOOLBAR:COMMAND(0)
Called from: WINDOW.PRG => TWINDOW:COMMAND(0)
Called from: MDIFRAME.PRG => TMDIFRAME:COMMAND(0)
Called from: WINDOW.PRG => TMDIFRAME:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: WINDOW.PRG => TMDIFRAME:ACTIVATE(0)
Called from: xfolio.prg => MAIN(74)


Alguien sabe de q se trata

[Antonio Linares]

Copia bwcc32.dll a donde esté tu aplicación y añade este código a tu aplicación:

Code: Select all  Expand view


   ...
   local hBorland := LoadLibrary( "BWCC32.DLL" )
   
   BWCCRegister( GetResources() )

   ... (código de tu aplicación)

   FreeLibrary( hBorland )

return nil

DLL32 FUNCTION BWCCRegister( hInst AS LONG ) AS WORD PASCAL LIB "BWCC32.DLL"


[A&C]

Antonio inclui las lineas q indicaste,,, pero aun no puedo

me marca el mismo error y sabes q es peor q me marca esw error con los browse ya sea ariginales de fivewin o Tsbrowse ....

si retiro el objeto del .RC y compilo ningun problema...

Ojo estoy usando workshop,, el mismo con q estoy haciendo una aplicacion en 16bits.. infuira en algo..

que este hacienod mal

GRACIAS

[Antonio Linares]

Has copiado bwcc32.dll al directorio en donde está tu aplicación e incluido las líneas que te he indicado ?

[A&C]

Antonio copie la DLL e inclui las lineas q dijiste pero no funciona

q mas puede estar fallando

GRACIAS

[Antonio Linares]

Por favor copia aqui el contenido de la caja de diálogo en el RC

[A&C]

la DLL la puse en una variable Static y no Local y ahora funcionan las lineas q me indicaste,,, pero Ohhhhh,, luego de solucionar ese problema,, ahora tengo otro contratiempo,,

Mira. estoy incluyendo TSBROWSE.CH Y TSBROWSE.LIB a mi app.

lo compilo con verce, harbor,, con xharbo no se compila,,, bueno con harbor me sirve,, pero al activar el dialogo q contiene el BROWSE me marca ,, lo mas raro q me habia pasado... error: BASE/1081,, ,, ese es un error de clipper,, que indica tipo incompalible
Application
===========
Path and name: D:\Folios\xFolio.Exe (32 bits)
Size: 1,421,312 bytes
Time from start: 0 hours 0 mins 1 secs
Error occurred at: 03/02/2007, 18:27:08
Error description: Error BASE/1081 Argument error: +
Args:
[ 1] = U
[ 2] = N 1

Stack Calls
===========
Called from: => TSBROWSE(0)
Called from: => MODULO1(60)
Called from: => VENTANA(178)
Called from: => (b)MAIN(59)
Called from: => TTOOLBAR:COMMAND(0)
Called from: => TWINDOW:COMMAND(0)
Called from: => TWINDOW:COMMAND(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: => _FWH(0)
Called from: => WINRUN(0)
Called from: => TWINDOW:ACTIVATE(0)
Called from: => MAIN(74)

este es el .RC


#define FBOLETAS 1

BOLETAS BITMAP "bmp\boletas.bmp"
SALIR BITMAP "bmp\salir.bmp"


FBOLETAS DIALOG 1, -22, 344, 244
STYLE WS_CHILD
FONT 6, "MS Sans Serif"
{
LTEXT "Cantidad de Formatos por Linea", 100, 14, 15, 106, 8
LTEXT "Cantidad de Lineas por Pagina", 101, 14, 29, 106, 8
LTEXT "Cantidad de Formatos a Imprimir", 102, 14, 43, 106, 8
LTEXT "Cantidad de Formatos por Talonario", 103, 14, 57, 116, 8
LTEXT "Cantidad de Talonarios", 104, 14, 72, 116, 8
LTEXT "Distribución de Alzada a Realizar", 105, 14, 85, 116, 8
LTEXT "Folio Inicio", 106, 211, 15, 45, 8
LTEXT "Folio Término", 107, 211, 29, 45, 8
EDITTEXT 200, 139, 13, 61, 12
EDITTEXT 201, 139, 27, 61, 12
EDITTEXT 202, 139, 40, 61, 12
EDITTEXT 203, 139, 55, 61, 12
EDITTEXT 204, 139, 69, 61, 12
EDITTEXT 205, 139, 83, 61, 12
EDITTEXT 206, 264, 13, 61, 12
EDITTEXT 207, 264, 27, 61, 12
PUSHBUTTON "Comenzar", 300, 214, 63, 50, 14
PUSHBUTTON "Salir", 301, 270, 63, 50, 14
GROUPBOX "", -1, 9, 0, 325, 102
CONTROL "", 500, "TSBrowse", 0 | WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_TABSTOP, 12, 112, 324, 123
}


Que podria estar mal

GRACIAS

[Antonio Linares]

Se está intentando sumar un número 1 a un valor nil.

Compila TSBrowse con información de números de línea y vuelve a ejecutar tu programa para ver en que línea de TSBrowse está el error.

Otra forma es buscar en el fuente de TSBrowse donde hay un "+ 1" ó un "++".

[A&C]

Antonio. cuando dices recompila te refieres a generar nuevamente la LIB..
o recompilar con verce,,

como incluyo el Nº de linea en la compilacion

GRACIAS

Pd. disculpa lo tedioso

[Antonio Linares]

A generar nuevamente la lib.

Para incluir los números de línea NO uses /L al compilar