FiveTech Software tech support forums

... of COLUMNS. It works fine, when I change from FIELDS to COLUMNS. Thanks once again both of you, Say control does not accept drop unless oSay:lWantClick is set to .T. The behavior is consistent in all versions of FWH and in particular this is the same behavior both in 1901 and 2304. Here is ...

Say control does not accept drop unless oSay:lWantClick is set to .T. The behavior is consistent in all versions of FWH and in particular this is the same behavior both in 1901 and 2304. Here is a small test: #include "fivewin.ch"function ...

... ACTION oSig:refresh(.t.) OF oDlg @ 01, 60 BUTTON "Save" SIZE 25, 10 PIXEL OF odlg ; ACTION ( oSig:SaveToBmp( cFile ), oDlg:End() ) oSig:lWantClick := .T. oSig:bLButtonUp := { | x, y, z | DoDraw( hDC, y+1, x+1, lPaint := .F. ) } oSig:bMMoved := { | x, y, z | DoDraw( hDC, y, x , lPaint ...

Eduardo, Con los SAYs basicamente tienes que hacer dos cosas: oSay:lWantClick = .T. // para que procesen los clicks del ratón oSay:lDrag = .T. El resto es como hacemos en design.prg: oSay:bRClicked = { | nRow, nCol | EditControl( nRow, nCol, oSay ) } y desde ...

Hello Carles,
do you know if lWantClick also works with resource files?

Thanks in advance
Otto

I had somewhere else an error.
Yes it is working.

Con ::lWantClick = .T. cualquier SAY funciona como un botón

Hello Dietmar,
you could try with lWantClick.
Best regards,
Otto

Code: Select all  Expand view

   oSay:lWantClick := .t.
   oSay:bMMoved   = {||oSay:SetColor(  0, RGB(128,128,255) ),   oSay:refresh() }
 

Talvez esta lineas puedan ayudarte. Utilizo Say sensitivo, modificado, de Ramón Avandaño.

REDEFINE TSAYT oPla1 PROMPT "Hola " ID 203 OF oDlg COLOR nClrTxt
oPla1:lWantClick = .t.
oPla1:bLClicked = { || cPlani:="PLA1",oPlani:Refresh(),oDlg:End() }

Hola amigo... Prueba lo siguiente: @ nRow,nCol SAY oSay // Donde oSay es el objeto asociado.  Espero te sirva. Hola podrias usar los Say con lWantClick DEFINE CURSOR oCursor HANDREDEFINE SAY oSay[1] ID 201 OF oDlg PROMPT "1" COLOR CLR_BLUEREDEFINE SAY oSay[2] ID 202 ...

Hola podrias usar los Say con lWantClick DEFINE CURSOR oCursor HANDREDEFINE SAY oSay[1] ID 201 OF oDlg PROMPT "1" COLOR CLR_BLUEREDEFINE SAY oSay[2] ID 202 OF oDlg PROMPT "2" COLOR CLR_BLUEaEval( oSay, ...

... está mi código: redefine say aoSays[1] prompt cNum id 101 of oDlg font oFont TRANSPARENT color CLR_WHITE aoSays[1]:lTransparent:=.t. aoSays[1]:lWantClick = .t. aoSays[1]:bLClicked = { || aoSays[1]:setColor(CLR_BLACK,GetSysColor(0)),aoSays[1]:lTransparent:=.t.,bCode:=.f.,aoSays[1]:setfocus(),aoSays[1]:refresh()} ...

Can these two properties be set to TRUE (.t.) together?

... Mr.Reinaldo, I dont have the coredll.dll , so I can´t make a 100 % test... (I rem the call of the function MoveToEx) I add this on your code: oSig:lWantClick = .T. before the activate the dialog, and the program draws a line, when I move the mouse, but not in the center of dialog (maybe because ...

... 2 PIXEL ; COLOR "N/N" ; CURSOR oSizeNWSE por @0,0 say oDot1 prompt "" of oWndParent size 3, 3 pixel COLOR "N/N" oDot1:oCursor := oSizeNWSE oDot1:lWantClick := .t. pero aunque ya no aparece el error aparece un punto en la esquina superior izquierda del diálogo y funciona como si fuera la esquina ...

... by antonio .. but no transparency @ 150,2 SAY oSay PROMPT "Revision Date "+dtoc( dEXE )+; " "+FWVERSION+" "+VERSION() PIXEL of oDLG oSay:lWantClick = .T. oSay:bLClicked = { || MsgInfo( "click" ) } */ @ 150,2 SENSITIVE SAY "Revision Date "+dtoc( dEXE )+; " "+FWVERSION+" "+VERSION() PIXEL ...