lDisColors on GET MEMO

[JoséQuintas]

To disable a get without change colors, I can use:

Code: Select all | Expand

xControl:lDisColors := .F.
xControl:nClrTextDis := RGB2N(20,20,20)

How to do the same on GET MEMO ?

[karinha]

Mira se ayuda,

Code: Select all | Expand

   REDEFINE GET oGet VAR cText MEMO ID 65 OF oDlg_3 FONT oFont

   oGet:bKeyDown := { |nKey| ;
   IF( nKey = VK_RETURN,( oGet:SetColor( ,CLR_WHITE ), oGet:Refresh(), oFld:SetOption( 1), xSetFocus( btnf5 ) ),;
   IF( nKey = VK_F5 ,( PROD_AG(), xSetFocus( oGet ) ),;
   IF( nKey = VK_F6 ,( Ficha_09( oDlg_3, oFld ), xSetFocus( _ANA[ 1] ) ),;
   IF( nKey = VK_F12,( oFld:SetOption( 1), ANAM_03_05( oDlg_3, oFld ) ),;
   IF( nKey = VK_ESCAPE,( oGet:SetColor( ,CLR_WHITE ), oGet:Refresh(), oFld:SetOption( 1), xSetFocus( _ANA[ 1] ) ), nil ))))) }

   oGet:bGotFocus := { || oGet:SetSel( 0, 0 ), oGet:SetPos( 0, 0 ), oGet:SetColor( nRGB( 0, 0, 185 ), nRGB( 249, 251, 151 ) ),;

   oGet:Goto( oGet:GetLineCount() ), __Keyboard( Chr( VK_END ) ) }

   oGet:cTooltip := "Preencha o Campo de Conclusão "

Regards, saludos.