FiveTech Software tech support forums

Manuel

Deseo generar la lib de tu clase (tsbutton.lib). He bajado las fuentes que indicas y utilizando Ajmake intento generar la lib correspondiente. El caso es que, a pesar de usar el flag -D__HARBOUR__, en el obj que forma bpaint, hay tres métodos que se forman con menos caracteres de lo que está señalado en los archivos fuente. El principal de ellos es GetFontHeight que se trunca en GetFontHei. cosa similar pasa con color..., etc. ¿Alguna recomendación para superar este problemilla?

Armando Picon wrote:Deseo generar la lib de tu clase (tsbutton.lib). He bajado las fuentes que indicas y utilizando Ajmake intento generar la lib correspondiente. El caso es que, a pesar de usar el flag -D__HARBOUR__, en el obj que forma bpaint, hay tres métodos que se forman con menos caracteres de lo que está señalado en los archivos fuente. El principal de ellos es GetFontHeight que se trunca en GetFontHei. cosa similar pasa con color..., etc. ¿Alguna recomendación para superar este problemilla?

Hola Armando:

Desconozco el uso de ajmake pero podrás construír la lib con RMake usando SButtonx.rmk cuyo código te describo a continuación.

Code: Select all  Expand view

// SButtonx.rmk
Def ="__HARBOUR__"

// defining paths
BC ="c:\bcc55"
FW ="c:\FWH"
HB ="c:\xHarbour"
makepath[.prg] ="..\source\classes"
makepath[.c] =".\;..\source\function"

.prg.c:
   $(HB)\bin\harbour $< /n  /i..\include;$(FW)\include;$(HB)\include > comp.log

.c.obj:
   $(BC)\bin\bcc32 -D$(Def) -O2 -c -I$(HB)\include;$(FW)\include $<  >> comp.log

TSButton.c     : TSButton.prg
TSBar.c        : TSBar.prg
TSLines.c      : TSLines.prg
TSRadio.c      : TSRadio.prg
TSTSay.c       : TSTSay.prg
TSButton.obj   : TSButton.c
TSBar.obj      : TSBar.c
TSLines.obj    : TSLines.c
TSRadio.obj    : TSRadio.c
TSTSay.obj     : TSTSay.c
BPaint.obj     : BPaint.c
TSButton.exe   : BPaint.obj TSButton.obj TSBar.obj TSLines.obj TSRadio.obj TSTSay.obj
                 Del SButtonX.lib
                 $(BC)\bin\Tlib SButtonX +TSButton  > Lib.log
                 $(BC)\bin\Tlib SButtonX +BPaint   >> Lib.log
                 $(BC)\bin\Tlib SButtonX +TSBar    >> Lib.log
                 $(BC)\bin\Tlib SButtonX +TSLines  >> Lib.log
                 $(BC)\bin\Tlib SButtonX +TSRadio  >> Lib.log
                 $(BC)\bin\Tlib SButtonX +TSTSay   >> Lib.log
                 Del *.c
                 Del *.obj
                 Del *.log
                 Del *.bak


Usa este código, porque el que va con el paquete creo que no funciona.

Desde \TSButton\Lib ejecuta: RMake SButtonx

Saludos.

Manuel Mercado

Manuel

Este Rmake es el mismo que usábamos en Clipper?... Y otra... Hay también el flag __FLAT__ que recomiendan Los gurús del xHarbour ¿Donde lo escribo?

mmercado wrote:

Armando Picon wrote:Deseo generar la lib de tu clase (tsbutton.lib). He bajado las fuentes que indicas y utilizando Ajmake intento generar la lib correspondiente. El caso es que, a pesar de usar el flag -D__HARBOUR__, en el obj que forma bpaint, hay tres métodos que se forman con menos caracteres de lo que está señalado en los archivos fuente. El principal de ellos es GetFontHeight que se trunca en GetFontHei. cosa similar pasa con color..., etc. ¿Alguna recomendación para superar este problemilla?

Hola Armando:

Desconozco el uso de ajmake pero podrás construír la lib con RMake usando SButtonx.rmk cuyo código te describo a continuación.

Code: Select all  Expand view

// SButtonx.rmk
Def ="__HARBOUR__"  --->>; __FLAT__ ???

// defining paths
BC ="c:\bcc55"
FW ="c:\FWH"
HB ="c:\xHarbour"
makepath[.prg] ="..\source\classes"
makepath[.c] =".\;..\source\function"

.prg.c:
   $(HB)\bin\harbour $< /n  /i..\include;$(FW)\include;$(HB)\include > comp.log

.c.obj:
   $(BC)\bin\bcc32 -D$(Def) -O2 -c -I$(HB)\include;$(FW)\include $<  >> comp.log

TSButton.c     : TSButton.prg
TSBar.c        : TSBar.prg
TSLines.c      : TSLines.prg
TSRadio.c      : TSRadio.prg
TSTSay.c       : TSTSay.prg
TSButton.obj   : TSButton.c
TSBar.obj      : TSBar.c
TSLines.obj    : TSLines.c
TSRadio.obj    : TSRadio.c
TSTSay.obj     : TSTSay.c
BPaint.obj     : BPaint.c
TSButton.exe   : BPaint.obj TSButton.obj TSBar.obj TSLines.obj TSRadio.obj TSTSay.obj
                 Del SButtonX.lib
                 $(BC)\bin\Tlib SButtonX +TSButton  > Lib.log
                 $(BC)\bin\Tlib SButtonX +BPaint   >> Lib.log
                 $(BC)\bin\Tlib SButtonX +TSBar    >> Lib.log
                 $(BC)\bin\Tlib SButtonX +TSLines  >> Lib.log
                 $(BC)\bin\Tlib SButtonX +TSRadio  >> Lib.log
                 $(BC)\bin\Tlib SButtonX +TSTSay   >> Lib.log
                 Del *.c
                 Del *.obj
                 Del *.log
                 Del *.bak


Usa este código, porque el que va con el paquete creo que no funciona.

Desde \TSButton\Lib ejecuta: RMake SButtonx

Saludos.

Manuel Mercado

Armando Picon wrote:Este Rmake es el mismo que usábamos en Clipper?...

Exactamente el mismo, espero que todavía tengas Clipper instalado.

Armando Picon wrote: Y otra... Hay también el flag __FLAT__ que recomiendan Los gurús del xHarbour ¿Donde lo escribo?

Nunca he usado ese flag y no he tenido ningún problema, pero si lo quieres poner hazlo tal como lo muestras.

Saludos.

Manuel Mercado

Manuel

Voy a probarlo...

Se me ocurrió utilizar el Verce 5.3 y se pudo crear la lib, pero.... la compilación de bPaint.c finaliza con el mensaje que existe un valor asignado, en la rutina, que nunca es utilizado ( No he podido establecer qué valor es para corregir la rutina )

Armando Picon wrote:la compilación de bPaint.c finaliza con el mensaje que existe un valor asignado, en la rutina, que nunca es utilizado ( No he podido establecer qué valor es para corregir la rutina )

Corresponde a una variable que usaba anteriormente y todavía pienso volver a utilizar , por eso no la he quitado, pero ese mensaje de advertencia no afecta en nada la funcionalidad de la librería.

Saludos.

Manuel Mercado

Ok, Manuel

También voy a probar el de generar la librería Sbrowse... ¿alguna recomendación?