FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Nuevo FWH 11.11
carloslmm
Posts: 71
Joined: Sat Oct 20, 2007 03:02 PM
Re: Nuevo FWH 11.11
Posted: Fri Dec 23, 2011 10:57 PM

No Esta compilado con la nueva version que descargue

No uso classes modificadas, son tal cual viene con fwh, lo extra帽o es que si se usa sin la funcion skinbuttons()
funciona todo bien, no se si exista algo pero descargue desde el google harbour la ultima version y borland 5.82

No se que pueda ser la verdad, en la vesion anterior que usaba no me pasaba esto.

Por eso utilise el ejemplo que me mencionaron y lo compile y paso lo mismo anexando la funcion skinbuttons()

No se usted digame si desrcargo de nuevo la version de fwh o de donde bajo harbour esta la baje de la pagina de google

le agradesco su atencion espero su respuesta

Carlos De La Rosa

carloslmm@hotmail.com

carloslmm10@gmail.com

carloslmm
Posts: 71
Joined: Sat Oct 20, 2007 03:02 PM
Re: Nuevo FWH 11.11
Posted: Sat Dec 24, 2011 03:38 AM
Se帽or linares

el cambio que se realizo es el siguiente en la clsse button.prg

Code (fw): Select all Collapse
METHOD KeyDown( nKey, nFlags ) CLASS TButton

   ::oWnd:nLastKey := nKey

   do case
      case nKey == VK_UP .or. nKey == VK_LEFT
           if ::bKeyDown != nil
              Eval( ::bKeyDown, nkey, nFlags )
           else
              ::oWnd:GoPrevCtrl( ::hWnd )
           endif
           return 0

      case nKey == VK_DOWN .or. nKey == VK_RIGHT
           if ::bKeyDown != nil
              Eval( ::bKeyDown, nkey, nFlags )
           else
              ::oWnd:GoNextCtrl( ::hWnd )
           endif
           return 0

      case nKey == VK_RETURN
           if ::bKeyDown != nil
              Eval( ::bKeyDown, nkey, nFlags )
           else
//            ::PostMsg( WM_LBUTTONDOWN, 1, 1 )  esta es la linea original
//            ::PostMsg( WM_LBUTTONUP, 1, 1 )
              ::PostMsg( FM_CLICK )    // fire the button's action   CON ESTA FUNCIONA OK
           endif
           return 0
   endcase

return Super:KeyDown( nKey, nFlags )


Saludos y Gracias

Carlos I. De La Rosa.

carloslmm@hotmail.com
carloslmm10@gmail.com

Feliz Navidad a Todos!!!
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Nuevo FWH 11.11
Posted: Thu Dec 29, 2011 09:41 AM

Carlos,

gracias! :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
groiss
Posts: 234
Joined: Tue Sep 01, 2009 07:55 AM
Re: Nuevo FWH 11.11
Posted: Tue Mar 20, 2012 05:05 PM
Antonio:
Creo que en la versi贸n 煤ltima de FWH (12.02), sigue apareciendo ese comportamiento extra帽os en los botones cuando estan afectados de Skinbutton, si pulsamos sobre ellos con el rat贸n:

PRG de prueba:
Code (fw): Select all Collapse
Function pidedia()
local odlg, obtn1, obtn2, obtn3, osay, numero:=10
define dialog odlg resource "petdia"  title "Prueba" font supfont  brush obrush transparent
REdefine ButToN id 150 DIALOG odlg action { numero++, osay:settext("Cuenta:"+str(numero,3,0)), osay:hide(),osay:show()}
REdefine ButToN id 161 DIALOG odlg action { numero--, osay:settext("Cuenta:"+str(numero,3,0)), osay:hide(),osay:show()}
REDEFINE SAY osay prompt "Cuenta :000" ID 151 OF oDlg transparent
activate dialog odlg centered ON PAINT (gradpaint( hDC, odlg ))


RC:
Code (fw): Select all Collapse
PETDIA DIALOGEX DISCARDABLE 6, 15, 262, 150
STYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "Prueba"
FONT 8, "MS Sans Serif", 0, 0, 0
{
  CONTROL "Sumamos 1", 150, "Button", WS_TABSTOP, 36, 56, 50, 14
  CONTROL "Restamos 1", 161, "Button", WS_TABSTOP, 184, 53, 50, 14
  CONTROL "Cuenta:000", 151, "Static", WS_GROUP, 84, 13, 100, 8, WS_EX_TRANSPARENT
}


Usando el teclado perfeto, pero con el rat贸n ejecutamos dos veces la acci贸n.
Un saludo
Jos茅 Luis
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Nuevo FWH 11.11
Posted: Tue Mar 20, 2012 10:43 PM
Jos茅 Luis,

Aqui est谩 funcionando correctamente. Por favor, pru茅balo con los peque帽os cambios que le he hecho:

groiss.prg
Code (fw): Select all Collapse
#include "FiveWin.ch"

Function pidedia()
聽 
聽 聽local odlg, obtn1, obtn2, obtn3, osay, numero:=10

聽 聽SetDlgGradient( { { 1, RGB( 199, 216, 237 ), RGB( 237, 242, 248 ) } } )

聽 聽define dialog odlg resource "petdia" 聽title "Prueba" 

聽 聽REdefine ButToN id 150 DIALOG odlg action { numero++, osay:settext("Cuenta:"+str(numero,3,0)), osay:hide(),osay:show()}

聽 聽REdefine ButToN id 161 DIALOG odlg action { numero--, osay:settext("Cuenta:"+str(numero,3,0)), osay:hide(),osay:show()}

聽 聽REDEFINE SAY osay prompt "Cuenta :000" ID 151 OF oDlg transparent

聽 聽activate dialog odlg centered

return nil


groiss.rc
Code (fw): Select all Collapse
PETDIA DIALOGEX DISCARDABLE 6, 15, 262, 150
STYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "Prueba"
FONT 8, "MS Sans Serif"
{
聽 CONTROL "Sumamos 1", 150, "Button", WS_TABSTOP, 36, 56, 50, 14
聽 CONTROL "Restamos 1", 161, "Button", WS_TABSTOP, 184, 53, 50, 14
聽 CONTROL "Cuenta:000", 151, "Static", WS_GROUP, 84, 13, 100, 8, WS_EX_TRANSPARENT
}
regards, saludos

Antonio Linares
www.fivetechsoft.com
groiss
Posts: 234
Joined: Tue Sep 01, 2009 07:55 AM
Re: Nuevo FWH 11.11
Posted: Wed Mar 21, 2012 07:56 AM

Antonio ahora a ese dialogo a帽adele la funci贸n SKINBUTTONS(), que yo no la puse en el code anterior, por que era a lo que me refer铆a, y la tenia puesta antes de la llamada a la funci贸n que usa el dialogo.
Con SKINBUTTONS(), salta de dos en dos s贸lo con el rat贸n, al menos a mi me ocurre.
Un saludo y disculpa que pusiera el ejemplo de forma incompleta
Jos茅 Luis

Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Nuevo FWH 11.11
Posted: Wed Mar 21, 2012 08:47 AM

Jos茅 Luis,

Solucionado, era un bug en la funci贸n SkinButtons() :-)

Te enviamos las librerias corregidas, gracias!

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions