Home / comp / gb.qt.ext / highlight / add 
Highlight.Add (gb.qt.ext)
Syntax
STATIC SUB Add ( State AS Integer [ , Count AS Integer ] )
Defines the state of an UTF-8 character of the highlighted line.

The first time this method is called, the state of the first character of the line is defined. Then you should call this method for each other character until all are highlighted.

If Count is defined, then Count successive characters got the same state. By default, Count is one.

Examples

' HTML highlighting from the HighlightEditor example
' Note that the String class is used for dealing with UTF-8 characters.

PUBLIC SUB Editor1_Highlight()

  DIM iState AS Integer
  DIM iNextState AS Integer
  DIM iInd AS Integer
  DIM J AS Integer
  DIM sText AS String
  DIM sCar AS String
  DIM iPos AS Integer
  DIM bMarkup AS Boolean

  iState = Highlight.State
  sText = Highlight.Text

  FOR iInd = 1 TO String.Len(sText)

    iNextState = iState
    sCar = String.Mid$(sText, iInd, 1)

    IF bMarkup THEN

      IF sCar = ">" THEN
        bMarkup = FALSE
        iState = Highlight.Keyword
        iNextState = Highlight.Normal
      ELSE IF sCar = " " THEN
        iNextState = Highlight.Operator
      ELSE IF sCar = "=" THEN
        iNextState = Highlight.String
      ENDIF

    ELSE

      SELECT CASE iState
        CASE Highlight.Normal
          IF sCar = "\<" THEN
            IF String.Mid$(sText, iInd, 4) = "\