SetColorinFocus( .t. ) nao funciona com ES_MULTILINE

[janio]

Ola a todos,

Uso nos form SetColorinFocus( .t. ) para os get's com foco fiquem com fundo amarelo. Isso funciona perfeitamente... menos nos get's com style ES_MULTILINE. So tirar isso, q funciona!

Terá alguma magica para SetColorinFocus( .t. ) funcionar tbm em gets ES_MULTILINE???

Código: Selecionar todos

   @ 108,264 GET oJustifi VAR vJustifi SIZE 591,102 ;
	     MAXLENGTH 1000 ;
		  STYLE ES_MULTILINE + WS_BORDER + ES_AUTOVSCROLL + ES_UPPERCASE ;
        FONT HFont():Add( 'Courier New',0,-13,700,,,) ;
        WHEN {|| keyb_event(VK_END), .t. }
        oJustifi:FontBold := .T. 

[esbasso]

É possivel isso ,desde que se faça uma pequena alteração no hedit.prg da lib
No minha eu uso
Qual a versão do cabeçalho que você usa?

[janio]

No Changelog consta isso:

Código: Selecionar todos

/*
 * $Id: Changelog 1925 2012-10-29 20:50:52Z lfbasso $
 */

/* Use this format for the entry headers:
   YYYY-MM-DD HH:MM UTC[-|+]hhmm Your Full Name <your_email@address>
   For example:
   2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/

2012-10-29 18:50 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
   * source/hedit.prg
     * METHOD VALUE()
	   ! minor fix!

[esbasso]

No hedit.prg

linha 453
453 // multiline
+ IF lColorinFocus
+ IF msg == WM_SETFOCUS //.AND. !::oparent:lSuspendMsgsHandling
+ ::SetColor( tColorSelect, bColorSelect )
+ ELSEIF msg == WM_KILLFOCUS .AND. ! lPersistColorSelect
+ ::SetColor( ::tcolorOld, ::bColorOld, .T. )
+ ::bColor := ::bColorOld
+ ::brush := IIF( ::bColorOld = Nil, Nil, ::brush )
+ SendMessage( ::handle, WM_MOUSEMOVE, 0, MAKELPARAM( 1, 1 ) )
+ ENDIF
+ ENDIF
IF msg = WM_SETFOCUS


Depois compilar a lib

att

[janio]

ok. valeu Basso

Janio