FiveTech Software tech support forums

Posted: **Fri Sep 12, 2025 10:56 am**

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

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

How to do the same on GET MEMO ?

Posted: **Fri Sep 12, 2025 11:57 am**

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.

FiveTech Software tech support forums

lDisColors on GET MEMO

lDisColors on GET MEMO

Re: lDisColors on GET MEMO