TSButton V.6.1 como se los prometí

[mmercado]

Sr. Manuel, tentei usar o obtn:settext("TITULO") para mudar o caption de um botao, mais não funciona.

Podrías mostrarnos el código donde defines el botón y donde cambias el texto?

Manuel Mercado

[Raymundo Islas M.]

Hola a todos

Ahora primero lo primero, Maestro Mercado muchas gracias por compartir esta clase tan maravillosa, es ud. una gran persona.


Segundo, una solicitud al foro : Alguien tendra la lib generada para 7.12 + xHarbour, he estado intentando generarla sin exito.



Gracias y Saludos

[MGA]

REDEFINE SBUTTON tchbtn[25] ID 4083 OF oDlg1 RESOURCE "IMAZOOM2" ACTION(fwhshowfig()) COLORS CLR_WHITE, CLR_GREEN,CLR_WHITE OFFICE CANCEL

ACTIVATE DIALOG fDlg CENTERED on init( showbut(tchbtn))


*****************************
function showbut(tchbtn)
*****************************
tchbtn[25]:settext("Ocultar"+CRLF+"Imagens")

return(.t.)

[horacio]

Manuel

Excelente esta clase. Felicitaciones. He visto que si tengo el ratón sobre un tsbutton no puedo desplegar los menues con el teclado. Hay alguna solución para esto ?. Desde ya muchas gracias.

[mmercado]

Hola Horacio:

He visto que si tengo el ratón sobre un tsbutton no puedo desplegar los menues con el teclado. Hay alguna solución para esto ?

Gracias por tu observación (obviamente yo no lo había notado)

En TSButton.prg, agrega esta línea al inicio:
#define WM_SYSCOMMAND 274 // 0x112

y cambia el método HandleEvent para que quede así:

Code: Select all  Expand view

METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TSButton

   If nMsg == WM_SYSCOMMAND
      ReleaseCapture()
   EndIf

Return Super:HandleEvent( nMsg, nWParam, nLParam )


Un abrazo.

Manuel Mercado

[mmercado]

Hola José:

REDEFINE SBUTTON tchbtn[25] ID 4083 OF oDlg1 RESOURCE "IMAZOOM2" ACTION(fwhshowfig()) COLORS CLR_WHITE, CLR_GREEN,CLR_WHITE OFFICE CANCEL
ACTIVATE DIALOG fDlg CENTERED on init( showbut(tchbtn))

En mis pruebas no encuentro ningún problema, necesitaría que me enviaras el ejemplo completo para poder ejecutarlo y probarlo.

Saludos.

Manuel Mercado

[Ruben D. Fernandez]

Manuel:
Este aporte es ESPECTACULAR, muchas gracias.

La SButtonH.lib que viene es para Harbour ?

Porque me da error de "Bound error, array asign"
en esta sintaxis?:

REDEFINE SBUTTON oBoton234 ID 211 PROMPT "Lugar" RESOURCE "PUNTOS" OF ODLG5 ;
ACTION (ist:=1, ISTITU(ODLG5),oGeta:SetFocus() ) FONT oFont ;
COLORS CLR_BLACK, nRgb(98,150,0), CLR_WHITE OFFICE TOOLTIP "Lista de Títulos" CANCEL

Cualquier ayuda es bienvenida, soy fanatico de
esta libreria.

Muchas gracias y saludos.

Ruben Fernandez.
FWH 0802, Harbour

[mmercado]

Hola Rubén:

La SButtonH.lib que viene es para Harbour ?

Debe trararse de alguna prueba que olvidé borrar, deberás crear tu propia lib para que funcione correctamente. Para ese efecto se incluyen archivos verce y rmk

Un abrazo.

Manuel Mercado

[Ruben D. Fernandez]

Muchas gracias Manuel.


Saludos cordiales.

Ruben Fernandez.

[mchumpitazv]

Saludos Maestro

Gracias por su trabajo!..descargue el zip indicado pero en el no se incluye el TEST2007.PRG, seria tan amable de remitirlo

Saludos, cordiales

Martin

[mmercado]

Gracias por su trabajo!..descargue el zip indicado pero en el no se incluye el TEST2007.PRG, seria tan amable de remitirlo

Creo que no descargaste el Zip correcto (debido a mi error del principio que después rectifiqué), el correcto puedes descargarlo de aquí:
http://hyperupload.com/download/025e38d ... N.zip.html
El programa Test2007.prg de la versión anterior fue substituído por NewShape.prg en esta nueva versión.

Saludos.

Manuel Mercado

[mchumpitazv]

Maestro Manuel

Podria indicarme si esta libreria trabaja con FWH 7.40 o solo es para versiones superiores a la 8, ya que al compilar recivo estos errores:
C:\TSBUTTON\SAMPLES\NEWSHAPE.PRG(140) Error E0022 Invalid lvalue: 'Numeric'
C:\TSBUTTON\SAMPLES\NEWSHAPE.PRG(205) Error E0022 Invalid lvalue: 'Numeric'

Saludos y gracias

Martin

[mmercado]

Podria indicarme si esta libreria trabaja con FWH 7.40 o solo es para versiones superiores a la 8, ya que al compilar recivo estos errores:
C:\TSBUTTON\SAMPLES\NEWSHAPE.PRG(140) Error E0022 Invalid lvalue: 'Numeric'
C:\TSBUTTON\SAMPLES\NEWSHAPE.PRG(205) Error E0022 Invalid lvalue: 'Numeric'

TSButton debería trabajar con cualquier versión de FWH en 32 bits, pero la apariencia "2007" de los menúes, solo la incluye FWH en sus versiones recientes.

Para que se compile NewShape.prg, simplemente elimina la cláusula "2007" en la definición de los menúes.

Saludos

Manuel Mercado

[Joao Cezar]

Maestro

Porque me da estos errores:

Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_GETFONTHEIGHT' referenced from D:\FWH\TSBUTT
ON\LIB\SBUTTONX.LIB|TsButton
Error: Unresolved external '_HB_FUN_SBTNPAINT' referenced from D:\FWH\TSBUTTON\L
IB\SBUTTONX.LIB|TsButton
Error: Unresolved external '_HB_FUN_SBARNEW' referenced from D:\FWH\TSBUTTON\LIB
\SBUTTONX.LIB|TsBar
Error: Unresolved external '_HB_FUN_MAKESEPARATOR' referenced from D:\FWH\TSBUTT
ON\LIB\SBUTTONX.LIB|TsBar
Error: Unresolved external '_HB_FUN_DARKCOLOR' referenced from D:\FWH\TSBUTTON\L
IB\SBUTTONX.LIB|TsTSay
Error: Unresolved external '_HB_FUN_GRADCOLOR' referenced from D:\FWH\TSBUTTON\S
AMPLES\NEWSHAPE.OBJ

Saludos y gracias

João Cezar
Brasil - Goiânia

[mmercado]

Porque me da estos errores:

Hola João Cezar, Falta enlazar BPaint.c

Reemplaza \TSButton\Lib\SBUTTONX.RMK con el siguiente texto:

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

Luego crea SButtonX.lib en \TSButton\Lib con:

Rmake SbuttonX

Con esto espero que ya funcione bien TSButton.

Saludos.

Manuel Mercado