blClicked no nos funciona...

[dbzap]

Al parecer este codigo ( blClicked referido al dialogo ) no esta funcionando en fwh27, pero en versiones anteriores si funconaba y nos permitia realizar algunas funciones.

DEFINE DIALOG oDlg RESNAME "CADENADOC" Of oWnd

odlg:blClicked := {|x,y| msginfo("hola" ) }
odlg:brclicked := {|| msginfo( "chao" ) }

ACTIVATE DIALOG.....

[dbzap]

compilamos en programa de testmous y solo funciona un DOBLE CLICK IZQUIERDO....
estara malo ?

[Manuel Valdenebro]

I believe will be better if you insert your messages in the spanish forum.

spanish translate:
Creo que es mejor que publiques tus mensajes en el Foro en Español. Está un poco mas abajo.

[Antonio Linares]

Con FWH 2.7 build abril funciona ok.

[dbzap]

Antonio, i modify the testmous.prg, ( i need a dialog )
But doens't work
Any Worng

(Antonio, modifique el codigo, (necesito un dialogo ), pero no funciono. )


// Testing the Mouse events
#include "FiveWin.ch"
static oWnd

//----------------------------------------------------------------------------//

function Main()

* DEFINE WINDOW oWnd TITLE "Testing the Mouse"
DEFINE DIALOG oWnd FROM 5,10 TO 24, 55 TITLE "dialog"

oWnd:bLClicked = { | nRow, nCol, nFlags | oWnd:Say( 2, 2, "oWnd:bLClicked" ) }
oWnd:bLButtonUp = { | nRow, nCol, nFl8ags | oWnd:Say( 3, 2, "LButtonUp " ) }
oWnd:bMButtonDown = { | nRow, nCol, nFlags | oWnd:Say( 4, 2, "MButtonDown" ) }
oWnd:bMButtonUp = { | nRow, nCol, nFl8ags | oWnd:Say( 5, 2, "MButtonUp " ) }
oWnd:bRClicked = { | nRow, nCol, nFlags | oWnd:Say( 6, 2, "RButtonDown" ) }
oWnd:bRButtonUp = { | nRow, nCol, nFlags | oWnd:Say( 7, 2, "RButtonUp " ) }
oWnd:bMMoved = { | nRow, nCol, nFlags | MsgBeep() }
oWnd:bLDblClick = { | nRow, nCol, nFlags | MsgInfo( "Left Doble Click" ) }

*SET MESSAGE OF oWnd TO "Press any mouse button" CENTERED

ACTIVATE DIALOG oWnd
*ACTIVATE WINDOW oWnd

return nil

[dbzap]

Antonio.
Nuestras versiones son nuevas ( no mas de 1 semana de FTDN )
el fw es 2.7 y el harbour (no xharbour) es del 8 de abril.

Gracias

[Antonio Linares]

Julio,

Solucionado. Os hemos enviado una librería modificada, por email.