FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour RichEdit5 and auto-texts
Posts: 1392
Joined: Mon May 14, 2007 09:49 AM
Re: RichEdit5 and auto-texts
Posted: Sun Sep 29, 2024 12:45 PM
Unfortunately, this resource is still unavailable to me :(
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Posts: 1067
Joined: Wed Nov 09, 2005 02:17 AM
Re: RichEdit5 and auto-texts
Posted: Mon Sep 30, 2024 11:49 AM
cnavarro wrote:Dear Vilina, please attach your sample
Good Morning Cristobal,

I just changed in your example the arrays content for this:

static aListWords := { { "Action", "Ação" }, { "Palabra", "WORD" }, { "Inicial", "First" }, { "Final", "Last" } }

And created a new class from trichedit5
Code (fw): Select all Collapse
CLASS TVfaEdit  FROM TRichEdit5
   METHOD KeyDown( nKey, nFlags )
ENDCLASS   

METHOD KeyDown( nKey, nFlags ) CLASS TVfaEdit

   if ( nKey == VK_INSERT  .and. GetKeyState( VK_SHIFT ) .or. ;
        nKey == Asc( "V" ) .and. GetKeyState( VK_CONTROL ) )

      if ! ::lReadOnly
         ::Paste()
         ::PostMsg( FM_CHANGE )
      endif

      return 0
   endif

   if ::lReadOnly
      if nKey == VK_BACK .or. nKey == VK_DELETE .or. nKey == VK_RETURN
         return 0
      endif
   endif

   ::Super:KeyDown( nKey, nFlags )

   // Suggested by the user MaxP (Massimo): 11/22/2019, remove PostMsg
   //::PostMsg( FM_CHANGE )

   // Added by Cristobal Navarro
   if !::lReadOnly
      ::PostMsg( FM_CHANGE )
   endif

   if ::lHighlight
      if nKey == VK_DELETE .or. nKey == VK_BACK
         ::PostMsg( FM_HIGHLIGHT )
      endif
   endif

return nil
Sds,
Vilian F. Arraes
vilian@vfatec.com.br
Belém-Pa-Brazil
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: RichEdit5 and auto-texts
Posted: Wed Oct 02, 2024 01:31 AM
Dear Vilian
You have in your program this?
Code (fw): Select all Collapse
   HB_SETCODEPAGE( "UTF8" )
   Fw_SetUnicode( .T. )
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 1067
Joined: Wed Nov 09, 2005 02:17 AM
Re: RichEdit5 and auto-texts
Posted: Thu Oct 03, 2024 05:59 PM
Sds,
Vilian F. Arraes
vilian@vfatec.com.br
Belém-Pa-Brazil

Continue the discussion