FWH 8.08 - Nueva claúsula ACTION para los GETs

FWH 8.08 - Nueva claúsula ACTION para los GETs

Postby Antonio Linares » Thu Aug 07, 2008 12:59 pm

En FWH 8.08 la claúsula ACTION <expresion> puede ser usada con un GET, por ejemplo:

Code: Select all  Expand view  RUN
#include "FiveWin.ch"

function Main()

   local oWnd, cTest := "Hello world!"

   DEFINE WINDOW oWnd COLOR "N/W"

   @ 2, 2 GET cTest SIZE 100, 20 ACTION MsgInfo( "click" )

   ACTIVATE WINDOW oWnd

return nil

Ya no hay necesidad de usar la clase TBtnGet :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Antonio Linares » Thu Aug 07, 2008 1:00 pm

Image
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Antonio Linares » Thu Aug 07, 2008 1:00 pm

Y con soporte de bitmaps en el botón y temas :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Antonio Linares » Thu Aug 07, 2008 1:21 pm

Soporte de temas:

Image
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Antonio Linares » Thu Aug 07, 2008 1:35 pm

Con temas y bitmap:

Image
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby ronaldo » Thu Aug 07, 2008 1:36 pm

è possivel adicionar imagens no GET com o action?
User avatar
ronaldo
 
Posts: 139
Joined: Fri Nov 25, 2005 4:38 pm
Location: brasil

Postby Antonio Linares » Thu Aug 07, 2008 1:40 pm

Ronaldo,

Te refieres a mostrar el bitmap sin el botón ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby jose_murugosa » Thu Aug 07, 2008 3:06 pm

Antonio Linares wrote:Con temas y bitmap:

Image


Excelente Antonio :D , el soporte de temas es esencial, ya que btnget32 no tenía soporte de temas......

Como sería el código cuando utilizas un botón con un bitmap? :shock:

p.s.: El link para ver como queda está roto.
Saludos/Regards,
José Murugosa
"Los errores en programación, siempre están entre la silla y el teclado y la IA!!"
User avatar
jose_murugosa
 
Posts: 1181
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay

Postby fgondi » Thu Aug 07, 2008 4:32 pm

Antonio,

Sólo tengo tres palabras que decir

Excelente, Excelente y Excelente.

Poder no depender de btnget32 me parece uno de los mejores aciertos de Fivetech
Un saludo
Fernando González Diez
ALSIS Sistemas Informáticos
User avatar
fgondi
 
Posts: 694
Joined: Fri Oct 07, 2005 6:58 am
Location: Palencia, España

Postby Antonio Linares » Thu Aug 07, 2008 5:08 pm

José,

Code: Select all  Expand view  RUN
   @ 2, 2 GET cTest SIZE 110, 22 ;
      ACTION MsgInfo( "click" ) BITMAP "..\bitmaps\16x16\find.bmp"
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Antonio Linares » Thu Aug 07, 2008 5:09 pm

Fernando,

Gracias! :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby karinha » Thu Aug 07, 2008 5:19 pm

Antonio Linares wrote:José,

Code: Select all  Expand view  RUN
   @ 2, 2 GET cTest SIZE 110, 22 ;
      ACTION MsgInfo( "click" ) BITMAP "..\bitmaps\16x16\find.bmp"


Maestro, no uso CODIGO, siempre RECURSOS by Borland Resources WorkShop.exe, és posible como en la marabillosa BTNGET32.PRG??

Regards, saludos grand maestro.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7860
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby FiveWiDi » Thu Aug 07, 2008 5:26 pm

Antonio Linares wrote:José,

Code: Select all  Expand view  RUN
   @ 2, 2 GET cTest SIZE 110, 22 ;
      ACTION MsgInfo( "click" ) BITMAP "..\bitmaps\16x16\find.bmp"


Joder Antonio,

me lo estás poniendo difícil.
Tenía previsto actualizarme en octubre y no se si podré esperar.

Necesitaba un xBrowse, ya estas en ello; necesitaba mandar mails, también; necesitaba mejorar la apariencia, pués toma.

Como dicen en casa 'mola cacho'.

Saludos
Carlos G.
FiveWiDi
 
Posts: 1200
Joined: Mon Oct 10, 2005 2:38 pm

Postby Mike Serra » Thu Aug 07, 2008 6:06 pm

Genial Antonio,

tenía un problema con tbntget con la 8.07, que me parece que lo voy a aparcar hasta la 8.08 :wink:

3 preguntas Antonio:

1ª) Se pueden redefinir desde recursos?
2ª) La sintaxis para ponerle tooltips será añadiendole la clausula TOOLTIP
o oGet:cToolTip:=.....?
3ª) La ultima es doble :D ¿Se puede asignar una tecla para que ejecute esa accion?, Si se puede ¿Podemos cambiar la tecla, es decir, si fuera F2 cambiarla a F5, por ejemplo?

Independientemente de las respuesta, te felicito y muchas gracias
Mike Serra
 
Posts: 297
Joined: Fri Apr 14, 2006 5:52 pm
Location: Córdoba (España)

Postby Antonio Linares » Thu Aug 07, 2008 7:01 pm

Mike,

> 1ª) Se pueden redefinir desde recursos?

Si

>
2ª) La sintaxis para ponerle tooltips será añadiendole la clausula TOOLTIP
o oGet:cToolTip:=.....?
>

Si, igual que se hace ahora.

>
3ª) La ultima es doble ¿Se puede asignar una tecla para que ejecute esa accion?, Si se puede ¿Podemos cambiar la tecla, es decir, si fuera F2 cambiarla a F5, por ejemplo?
>

Muy buena sugerencia. Vamos a pensar la forma de hacerlo :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Next

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 46 guests