TsButton 6.2

[Armando Picon]

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?

[mmercado]

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

[Armando Picon]

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?

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

[mmercado]

Este Rmake es el mismo que usábamos en Clipper?...

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

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

[Armando Picon]

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 )

[mmercado]

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

[Armando Picon]

Ok, Manuel

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