topic-45933

Posts: 104

Joined: Tue Feb 09, 2021 04:20 PM

lDisColors on GET MEMO
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 ?

José M. C. Quintas Brazil

gtwvg, fivewin 25.12, hwgui, mingw 15.2 (32 bits)

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: lDisColors on GET MEMO
Posted: Fri Sep 12, 2025 11:57 AM

Mira se ayuda,

Code: Select all Collapse

   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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion