Help RICHEDIT ( To antonio )

[lailton.webmaster]

Hey there.

im making edit to php and prg, i want insert color in string (IF ELSE DO ENDDO WHILE CLASS METHOD) etc..

im trying it

RICHEDIT

Code: Select all  Expand view

@  0, 0 RICHEDIT oRTF VAR cRTF OF oWnd noborder on change (oRTF:refresh())
oRTF:cSeparators:=" <? <?PHP <?php ?> // ## { } ( ) [ ] $ include function if end else elseif do while end "
oRTF:nClrSeparator:= RGB(128, 0, 0)
oRTF:nClrText:= RGB(0, 128, 0 )

 

but continue without color !!

what´s i need to do ?

i already try with

oRTF:aKeyWords1:="include if end "
oRTF:aKeyWords2:="include if end "
oRTF:nClrKey1:=RGB(0, 128, 0 )
oRTF:nClrKey2:=RGB(0, 128, 0 )

more continue without color... xh1.1.0 and fivewin 8.5

someone can help me ? thanks so much

[lailton.webmaster]

I think that have a BUG in this class

i try with it too and no result...

Code: Select all  Expand view

@  0, 0 RICHEDIT oRTF VAR cRTF OF oWnd

   
   oRTF:lHighlight  = .T.
   oRTF:aKeywords1  = { "CLASS", "FROM", "ENDCLASS", "DATA", "AS", "METHOD", ;
                   "CONSTRUCTOR", "function", "return", "OBJECT", "ENDOBJECT" }
   oRTF:aKeywords2  = { "Lailton" }
   oRTF:nClrKey1      = CLR_RED
   oRTF:nClrKey2      = CLR_BLUE
   
 
   
   oWnd:oClient = oRTF


   ACTIVATE WINDOW oWnd maximized

[lailton.webmaster]

[Antonio Linares]

Lailton,

You have to do it this way, but it is not properly working probably due to latest Class TRichEdit changes:

Code: Select all  Expand view

#include "FiveWin.ch"
#include "RichEdit.ch"
 
function Main()
 
   local oWnd, oRTF, cRTF := "CLASS Test FROM Another " + CRLF + CRLF + "ENDCLASS " + CRLF
   local hRichDLL := LoadLibrary( "riched20.dll" )
 
   DEFINE WINDOW oWnd TITLE "Test"

   @ 0, 0 RICHEDIT oRTF VAR cRTF OF oWnd
   
   oRTF:lHighlight  = .T.
   oRTF:aKeywords1  = { "CLASS", "FROM", "ENDCLASS", "DATA", "AS", "METHOD", ;
                        "CONSTRUCTOR", "function", "return", "OBJECT", "ENDOBJECT" }
   oRTF:aKeywords2  = { "Lailton" }
   oRTF:nClrKey1    = CLR_RED
   oRTF:nClrKey2    = CLR_BLUE

   oWnd:oClient = oRTF
   oRTF:HighLightAllText()

   ACTIVATE WINDOW oWnd

   FreeLibrary( hRichDLL )
   
return nil
 

[lailton.webmaster]

thanks antonio.

[lailton.webmaster]

Holla antonio.

creo que tien bug in la class, con la continuidade de escreber los codigos
las cores ficam todas erradas, creo que esteja con alguno erro..