TSButton V.6.1 como se los prometí

User avatar
mmercado
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Post by mmercado »

SGS wrote: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
User avatar
Raymundo Islas M.
Posts: 590
Joined: Tue Mar 14, 2006 11:34 pm
Location: Acapulco, Gro. MEXICO

Post by 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. :oops:



Gracias y Saludos
FWH 10.6 + xHarbour + Borland 582
MGA
Posts: 1219
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá
Contact:

Post by 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.)
ubiratanmga@gmail.com

FWH17.04
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
horacio
Posts: 1270
Joined: Wed Jun 21, 2006 12:39 am
Location: Capital Federal Argentina

Post by 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.
User avatar
mmercado
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Post by mmercado »

Hola Horacio:
horacio wrote: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

METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TSButton

   If nMsg == WM_SYSCOMMAND
      ReleaseCapture()
   EndIf

Return Super:HandleEvent( nMsg, nWParam, nLParam )
Un abrazo.

Manuel Mercado
User avatar
mmercado
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Post by mmercado »

Hola José:
SGS wrote: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
Posts: 189
Joined: Sun Jul 08, 2007 1:46 am
Location: Uruguay

Post by 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
User avatar
mmercado
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Post by mmercado »

Hola Rubén:
Ruben D. Fernandez wrote: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
Posts: 189
Joined: Sun Jul 08, 2007 1:46 am
Location: Uruguay

Post by Ruben D. Fernandez »

Muchas gracias Manuel.


Saludos cordiales.

Ruben Fernandez.
User avatar
mchumpitazv
Posts: 49
Joined: Thu Dec 27, 2007 6:56 pm
Location: Lima -Perú

TSBUTTON....TEST2007.PRG

Post by 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
User avatar
mmercado
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Re: TSBUTTON....TEST2007.PRG

Post by mmercado »

mchumpitazv wrote: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
User avatar
mchumpitazv
Posts: 49
Joined: Thu Dec 27, 2007 6:56 pm
Location: Lima -Perú

Post by 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
User avatar
mmercado
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Post by mmercado »

mchumpitazv wrote: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
User avatar
Joao Cezar
Posts: 21
Joined: Tue Oct 11, 2005 9:42 pm
Location: Goiânia - GO - Brasil

Post by 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
User avatar
mmercado
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Post by mmercado »

Joao Cezar wrote: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
Post Reply