[Hwgui-developers] RichEdit ON OTHERMESSAGES not found 2.19

[Itamar M. L. J. L. <ita...@gm...>]

 Hi!

Report from asimoes, pctoledo.com.br hwgui forum!
http://www.pctoledo.com.br/forum/viewtopic.php?f=46&t=15707&start=15

guilib.ch 2.17

#xcommand @ <x>,<y> RICHEDIT [ <oEdit> TEXT ] <vari> ;
...
[[ON OTHER MESSAGES <bOther>][ON OTHERMESSAGES <bOther>]] ;
...
---------------8<---
How he uses in his function.
@ 127,019 RichEdit oEdit TEXT cText SIZE nWIDTH-192,nHEIGHT-130 ;
        OF    oDlgReport ID ID_TEXTO ;
        COLOR  nCorFonteP ;
        BACKCOLOR nCorFundoP ;
        STYLE  WS_HSCROLL+WS_VSCROLL+ES_LEFT+ES_MULTILINE+ES_READONLY ;
        ON    GETFOCUS {|| TopoDoc()};
        FONT   oFont2 ;
        ON OTHERMESSAGES {|This,m,wp,lp| richeditProc( this, m,wp, lp ) }

STATIC FUNCTION RichEditProc( oEdit, Msg, wParam, lParam )
LOCAL nPos, nPos1, nPos2, nVirtCode

 IF Msg == WM_KEYDOWN
   nVirtCode := wParam
   IF nVirtCode == VK_F3
    Texto_Encontrado(oEdit)
   ENDIF
   nPos :=hwg_SendMessage( oEdit:Handle, EM_GETSEL, 0, 0 )
   nPos1 :=hwg_Loword( nPos ) + 1
   nPos2 :=hwg_Hiword( nPos ) + 1
   nLinha :=hwg_SendMessage(oEdit:Handle, EM_LINEFROMCHAR, -1, 0) + 1
   nColuna:=nPos1 - hwg_SendMessage( oEdit:Handle, EM_LINEINDEX, -1, 0 )
   //
   hwg_WriteStatus( oDlgReport,2,'Lin: '+LTrim(Str(nLinha,5)))
   hwg_WriteStatus( oDlgReport,3,'Col: '+LTrim(Str(nColuna,3)))
   oEdit:Refresh()
 ENDIF

RETURN -1


Best regards,
Itamar M. Lins Jr.