FiveTech Software tech support forums

www.FiveTechSoft.com
http://forums.fivetechsoft.com/

TSButton V.6.1 como se los prometí

http://forums.fivetechsoft.com/viewtopic.php?f=6&t=10579

Page 2 of 3

Posted: Sat Apr 05, 2008 1:59 am
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

Posted: Sat Apr 05, 2008 5:15 am
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

Posted: Sat Apr 05, 2008 11:07 am
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.)

Posted: Sat Apr 05, 2008 11:51 am
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.

Posted: Sat Apr 05, 2008 3:19 pm
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

Posted: Sat Apr 05, 2008 4:41 pm
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

Posted: Sat Apr 05, 2008 7:31 pm
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

Posted: Sat Apr 05, 2008 9:56 pm
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

Posted: Sun Apr 06, 2008 1:38 am
by Ruben D. Fernandez
Muchas gracias Manuel.


Saludos cordiales.

Ruben Fernandez.

TSBUTTON....TEST2007.PRG

Posted: Mon Apr 07, 2008 3:41 pm
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

Re: TSBUTTON....TEST2007.PRG

Posted: Mon Apr 07, 2008 6:29 pm
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

Posted: Mon Apr 07, 2008 7:09 pm
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

Posted: Mon Apr 07, 2008 7:42 pm
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

Posted: Wed Apr 09, 2008 5:32 pm
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

Posted: Fri Apr 11, 2008 2:10 am
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
All times are UTC
Page 2 of 3

Powered by phpBB® Forum Software © phpBB Limited