FiveTech 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?

// 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

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 Collapse

// 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?...

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

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 )

Ok, Manuel

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