Hola compa帽eros,
El siguiente trocito de c贸digo, no consigo que me funcione correctamente (ver l铆nea de comentada):
El funcionamiento deber铆a ser una al estilo de un link en una p谩gina web, es decir, es un texto que aparece de distinto color, al pasar por encima de el, el cursor cambia y al hacer click sobre el, ejecuta una funci贸n, en este caso el MsgInfo("RAMOS").
Alguna sugerencia? alg煤n error a simple vista de esos que tenemos los novatos?
GRACIAS!
El siguiente trocito de c贸digo, no consigo que me funcione correctamente (ver l铆nea de comentada):
聽 DEFINE WINDOW oWndChild MDICHILD OF oWndPrinc ;
聽 聽 聽 聽 聽 FROM 5,5 TO 6,6;
聽 聽 聽 聽 聽 COLOR "N/W" ;
聽 聽 聽 聽 聽 BORDER NONE
聽 聽oWndChild:bGotFocus 聽= { || oDlg:SetFocus() }
聽 聽DEFINE DIALOG oDlg RESOURCE "Articulos" OF oWndChild
聽 聽
聽 聽REDEFINE SAY oSayTec_Nom PROMPT CargaFicTec( oArt ) ID 500 OF oDlg UPDATE
聽 聽oSayTec_Nom:SetColor( CLR_WHITE, GetSysColor( COLOR_BTNFACE ) )
聽 聽oSayTec_Nom:lWantClick := .t.
聽 聽oSayTec_Nom:bLClicked := { || MsgInfo("TAMOS") } 聽 聽 聽 聽// ESTA LINEA NO SE EJECUTA AL HACER CLIC SOBRE oSayTec_Nom
聽 聽oSayTec_Nom:oCursor := oCursorHand
聽 聽for n = 1 to Len( oDlg:aControls )
聽 聽 聽 oDlg:aControls[ n ]:bLClicked = GenBlock( oWndChild, oDlg:aControls[ n ] )
聽 聽next 聽 聽 聽
聽 聽ACTIVATE DIALOG oDlg NOWAIT CENTERED;
聽 聽 聽 ON INIT ( oDlg:Move( 0, 0 ) );
聽 聽 聽 VALID 聽( oWndChild:End(), .t. )
聽 聽oWndChild:nWidth := oDlg:nWidth+7
聽 聽oWndChild:nHeight := oDlg:nHeight+32
聽 聽ACTIVATE WINDOW oWndChild ON INIT oWndPrinc:paint()El funcionamiento deber铆a ser una al estilo de un link en una p谩gina web, es decir, es un texto que aparece de distinto color, al pasar por encima de el, el cursor cambia y al hacer click sobre el, ejecuta una funci贸n, en este caso el MsgInfo("RAMOS").
Alguna sugerencia? alg煤n error a simple vista de esos que tenemos los novatos?
GRACIAS!
