MRFTool.Lib

[antolin]

Horacio, yo utilizo el clasico WORKSHOP de Borland. Sería interesante saber si mi librería te falla sólo con recursos o si lo hace siempre.

[horacio]

Antolín, el fin de semana que viene me pondré a probar función por función para ver donde está esta incompatibilidad. Realmente tu aporte es muy bueno y nos abre una cantidad de posibilidades para los que trabajamos con versiones anteriores de fwh. Muchas gracias

[ender]

la versión 7.12
Encontrado error
ClrLight ()
BlendBitmap ()
DefineLayer()
Por El Momento para Los Dos Que veo

[antolin]

Hola Ender. Si las demás funciones te van bien, esas no tienen porque fallarte. A lo mejor has cometido algun fallo tonto al utilizarlas (orden de paramteros o falta de ellos). Porque no posteas el código a ver que pasa.

Lo que ocurre es que no he añadido funciones de control de errores, pues normalmete no programo en C y ando muy cortito y no he estudiado el tema errores. He intentado controlar todas las entradas de parámetros a las funciones, pero no es tan facil. Normalmente si no pasas un parametro este debería llegarle a la función como 'NIL', sin embargo le llega como '0' y a veces es un fastidio.

Si te fallan todas las funciones entonces la cosa está bastante fastididada. A lo mejor tu 'msimg32.lib' es diferente o los Builds son incompatibles, en ese último caso, mi trabajo no habría servido de mucho.

Un saludo

[ender]

# Include "FiveWin.ch"
/ / # Include "Tgsay.ch"
/ / # Include "MRFBot.ch"
/ / # Include "GDIalog.ch"

FUNCTION MAIN()

ClrLight (15,32)


RETURN NIL

Como ves mas simple codigo es imposible
 
Las Otras Funciones todavia no las e Provado

MRFTOOLS.obj, +
MRFTOOLS.exe, +
MRFTOOLS.map, +
d:\harbour\fwh\lib\FivehX.lib +
d:\harbour\fwh\lib\FiveHC.lib +
c:\xharbour\lib\rtl.lib +
c:\xharbour\lib\vm.lib +
c:\xharbour\lib\gtgui.lib +
c:\xharbour\lib\lang.lib +
c:\xharbour\lib\macro.lib +
c:\xharbour\lib\rdd.lib +
c:\xharbour\lib\dbfntx.lib +
c:\xharbour\lib\dbfcdx.lib +
c:\xharbour\lib\dbffpt.lib +
c:\xharbour\lib\hbsix.lib +
c:\xharbour\lib\debug.lib +
c:\xharbour\lib\common.lib +
c:\xharbour\lib\pp.lib +
c:\xharbour\lib\pcrepos.lib +
c:\xharbour\lib\rddads.lib +
D:\HARBOUR\bcc55\lib\c0w32.obj +
D:\HARBOUR\bcc55\lib\cw32.lib +
D:\HARBOUR\bcc55\lib\import32.lib +
D:\HARBOUR\bcc55\lib\psdk\odbc32.lib +
D:\HARBOUR\bcc55\lib\psdk\rasapi32.lib +
D:\HARBOUR\bcc55\lib\psdk\nddeapi.lib +
D:\HARBOUR\bcc55\lib\psdk\iphlpapi.lib +
d:\harbour\fwh\lib\MRFTOOL.LIB -> la e ido cambiando de posicion ,Por si el error estaba al enlazar
Pero Sigue Igual

Creo Recordar Que si Hubo Cambio Entre tu versión y la mia internamente si no Antonio me podra corregir el error

[antolin]

Creo que se lo que puede pasar. En mi versión, cuando programo en C utilizo:

_parni()
_parnl()
_retl()
etc...

Sin embargo por lo que veo en el foro ahora utilizan:

hb_parni()
hb_parnl()
hb_retl()
etc...

A lo mejor es eso. Antonio me lo podría confirmar. De todas formas voy a recompilar con esos parámetros y reposteo la librería para que la pruebes (si me deja).

Otra cosa que se me olvidó corregir, es que en cuando utilizo los MRFBUTON para llamar a la accion asociada al botón, escribo ACCION en lugar de ON CLICK, porque en mi fivewin.ch tengo puesto.

Code: Select all  Expand view

#Define ACCION     ON CLICK

Por eso cuando alguien intenta compilar mis programas ejemplo les da error. Cuando recompile la librería abriré un nuevo tema donde explicaré este asunto.

[antolin]

Ender, ya recompilé la librería, espero que funcione: ese es el nuevo enlace

http://www.mediafire.com/?iyqyzzyykj2

Aproveché para arreglar un par de bugs que me surgieron al repasar el código, tanto en MRFTool.Lib como en MRFButon, lo que me obigó a modificar la documentación. Por lo que te aconsejo que sustituyas todo lo antiguo por esto nuevo.

Además también he aprovechado para cambiarle el nombre a algunas funciones porque se podrían haber llamado igual que algunas propias de FWH, y para evitar posibles furturas incompatibilidades con librerías oficiales.

Code: Select all  Expand view

He Cambiado:

GetDcExt           por GetDcExtd         He añadido una 'd' al final
StretchBitmap      por StretchMBitmap    He añadido una 'M' en el medio
CopyImage          por CopyMImage        He añadido una 'M' en el medio
LoadImage          por LoadMImage        He añadido una 'M' en el medio
AdjustBitmap       por AdusjtMBitmap     He añadido una 'M' en el medio
AlphaBlend         por AlphaMBlend       He añadido una 'M' en el medio
GradientFill       por GradientMFill     He añadido una 'M' en el medio
CreateWindowEx     por CreateWindowExt   He añadido una 't' al final

[toninhofwi]

Hi Antolin.

With Harbour/bcc6.2 still GPFing. Any chance to share sources?

Thanks and best regards,

Toninho.

[antolin]

Hi Toninho (excuse my bad english)

I can't sell the LIB because it isn't a profetional LIB and i can't share it because some algorithms can't be shared.

If you want, i could publish here some functions but not all of them.

[toninhofwi]

>>If you want, i could publish here some functions but not all of them.

Hi Antolin.

The GPF occur only in "sombras".

If you can share BuildShadow() and related functions I try to fix the GPF.

Thanks and best regards,

Toninho.


if you prefer, send to my mail:

toninho@fwi.com.br

[antolin]

toninho, this group of functions are precisly ones of which I can't share.