poner color a control GET con campo MEMO? (SOLUCIONADO)

[Armando]

Amigos del foro:

En la versión FWH0810 con el siguiente código le pongo color a un control GET
con campo MEMO

Code: Select all | Expand

            aGets[13]:bGotFocus()  := {|o| o:SetColor(RGB(0,0,0),RGB(197,205,255))}
            aGets[13]:bLostFocus() := {|o| o:SetColor(RGB(0,0,0),RGB(255,255,255))}
 

Pero en la versión FWH1412 ya no funciona, cómo puedo ponerle color
al control GET con campo MEMO??

Saludos

[alexpdasilva]

Olá Amigo,


Tente:

redefine Get aoGetsBem[04] var aDadosBem[04] MEMO id 204 of oFld:aDialogs[6] when( !lSai_0012 .and. lEditaBem ) update COLORS nRgb(0,0,220),nRgb(253,252,213)
aoGetsBem[04]:bLostFocus := { || aoGetsBem[04]:SetColor( CLR_BLACK, CLR_WHITE) }
aoGetsBem[04]:bGotFocus := { || aoGetsBem[04]:SetColor( CLR_BLACK, nRGB( 255,255,45 )), aoGetsBem[04]:setsel(0,0), aoGetsBas[12]:setpos(0) }
aoGetsBem[04]:cToolTip := 'Informe a Descrição do BEM (Ex: Imóvel na Rua São Paulo, 23 - Bairro Centro)'

Um abraço,

Alexandre Pereira

[Armando]

Alexandre:

Muito obrigado, tudo bem!

Um abraço