[Gambas-user] Editor control

[Valeriu]

Hello!
As defined in the control Editor, the string
contains a red color and is Highlight.Breakpoint?

Code:
Dim strFile As String, Ret As String, cnt As String = "0", Er As String = "
" 
Dim strc As String, Buf As String, arrstring As String, arr As String[],
sText As String
Dim i As Integer, cont As Integer, ln As Integer
 strFile = File1.Key
   '=============Routine View===================
 If InStr(strFile, "^") = 0
  SRCTXT1.Visible = False
  SRCTXT.Visible = True
  txtInfo.Visible = True
  cmbZSH.Visible = False
  SRCTXT.Clear
   txtInfo.Text = "Now Editing Routine      " & "[" & Trim$(strFile) & "]"
  cmbRout.Clear 'BreakPoints clear
  strFile = Replace(Trim$(strFile), "%", "_") & ".m"
  strFile = "cat " & strFile
  m.DoRoutine("CatFile^%mweditr", strFile, ByRef Ret, ByRef cnt, ByRef Er)
  SRCTXT.Text = Replace(Ret, "\t", " ") ' **** TAB replace in " " ???????
  ' Label Routine 
  
  cmbRout.Clear
  arr = Split(SRCTXT.Text, "\n")
  For i = 0 To arr.Count - 1
  If Highlight.Breakpoint Then ' No work
?????????????????????????????????????????????????? 
    If arr[i] <> "" And Left(arr[i]) <> " " And Left(arr[i]) <> ";" And
Left(arr[i]) <> "\t" Then
      arrstring = Split(arr[i], " ")[0]
      cmbRout.Add(arrstring)
    Endif
  End If
 Next
Endif

I'll be glad for any help
-- 
View this message in context: http://old.nabble.com/Editor-control-tp34167363p34167363.html
Sent from the gambas-user mailing list archive at Nabble.com.