topic-14618

Posts: 603

Joined: Sun May 04, 2008 08:44 PM

Help RICHEDIT ( To antonio )
Posted: Wed Feb 18, 2009 05:09 AM

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 (fw): Select all Collapse

@  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:=RGB(0, 128, 0 )
oRTF:=RGB(0, 128, 0 )

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

someone can help me ? thanks so much

lailton.webmaster

Posts: 603

Joined: Sun May 04, 2008 08:44 PM

BUGG
Posted: Wed Feb 18, 2009 06:18 AM

I think that have a BUG in this class

i try with it too and no result...

Code (fw): Select all Collapse

 @  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

Posts: 603

Joined: Sun May 04, 2008 08:44 PM

Re: Help RICHEDIT ( To antonio )
Posted: Wed Feb 18, 2009 11:00 PM

:?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?:

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Help RICHEDIT ( To antonio )
Posted: Thu Feb 19, 2009 10:50 PM

Lailton,

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

Code (fw): Select all Collapse

#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

regards, saludos

Antonio Linares
www.fivetechsoft.com

lailton.webmaster

Posts: 603

Joined: Sun May 04, 2008 08:44 PM

Re: Help RICHEDIT ( To antonio )
Posted: Fri Feb 20, 2009 12:01 AM

thanks antonio.

lailton.webmaster

Posts: 603

Joined: Sun May 04, 2008 08:44 PM

Re: Help RICHEDIT ( To antonio )
Posted: Fri Feb 20, 2009 12:27 AM

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..

FiveTech Support Forums

Continue the discussion