Editeur avec marquage syntaxique

DBG(number_current_line) : message "mon programme"
DBG(number_current_line) : message "démarre bien"
DBG(number_current_line) : terminate : ' <== pour éviter le double lancement !
DBG(number_current_line) : end
sub DBGuser()
' ===============================================================
'  Dans cette procédure, on charge dans le mémo de débug
'  le contenu de toutes les variables à visualiser, et toute
'  information utile à l'analyse de la situation.
'  Cette procédure sera automatiquement appelée par DBG()
'  et les informations fournies seront visibles au programmeur.
' ===============================================================
  ' un exemple de ligne à ajouter ici:
  ' if variable("i%")=1 then item_add dbg_memo,"i%=" + str$(i%)
end_sub
sub DBG(n%)
' ===============================================================
'  Cette procédure est le débuggeur proprement-dit.
'  L'appel de cette procédure sera placée au début de chaque
'  ligne à analyser, avec le numéro de ligne en paramètre.
'  La meilleure façon de passer le numéro de ligne est
'  d'utiliser la variable système number_current_line.
' ===============================================================
  dim_local dbg_s$, dbg_x$, dbg_i%, i1%, i2%, KGF%
  if object_exists(9999)=0
    dim dbg_doit, dbg_exec, dbg_cnt, dbg_memo
    label dbg_pasKGF, dbg_okKGF
    form 9999 : top 9999,50 : left 9999,screen_x/2 : width 9999,screen_x/2-50
      height 9999,600
    option 9998 : parent 9998,9999 : top 9998,10 : left 9998,10 : caption 9998,"1 ligne"
      mark_on 9998
    option 9997 : parent 9997,9999 : top 9997,30 : left 9997,10 : caption 9997,"Jusqu'à la fin"
    option 9996 : parent 9996,9999 : top 9996,50 : left 9996,10 : caption 9996,"Jusqu'aux lignes"
    edit 9995 : parent 9995,9999 : top 9995,50 : left 9995,130 : width 9995,300
    option 9991 : parent 9991,9999 : top 9991,70 : left 9991,10 : caption 9991,"Pendant # de lignes"
    spin 9990 : parent 9990,9999 : top 9990,70 : left 9990,130 : width 9990,50 : min 9990,1 : max 9990,100
    option 9986 : parent 9986,9999 : top 9986,90 : left 9986,10 : caption 9986,"Jusqu'aux labels"
    edit 9985 : parent 9985,9999 : top 9985,90 : left 9985,130 : width 9985,300
    memo 9989 : parent 9989,9999 : top 9989,120 : left 9989,10
      width 9989, width(9999)-40 : height 9989,200 : bar_both 9989
    button 9994 : parent 9994,9999 : top 9994,330 : left 9994,10
      caption 9994,"Continuer" : label DBG_cont : on_click 9994,DBG_cont
    button 9993 : parent 9993,9999 : top 9993,330 : left 9993,110
      caption 9993,"Ignorer" : label DBG_ign : on_click 9993,DBG_ign
    button 9992 : parent 9992,9999 : top 9992,330 : left 9992,210
      caption 9992,"Abandon" : label DBG_abo : on_click 9992,DBG_abo
    button 9984 : parent 9984,9999 : top 9984,330 : left 9984,width(9999)-120 : width 9984,90
      caption 9984,"Ligne courante" : label DBG_lig :  on_click 9984,DBG_lig
    list 9987 : parent 9987,9999 : top 9987,360 : left 9987,10 : font_name 9987,"Courier"
      font_color 9987,35,14,158 : font_bold 9987 : width 9987,width(9999)-40 : height 9987,height(9999)-410
    dbg_memo = 9989
    dlist 9988
    edit 9983 : hide 9983 : label DBG_change : on_change 9983,DBG_change
    dbg_doit = 0
    dbg_exec = 0
'    file_load 9988,"C:\Synedit_Editor_Debug\Synedit_Editor_Source.src"
    file_load 9987,"C:\Synedit_Editor_Debug\Synedit_Editor_Source.src"
  end_if
  on_error_goto dbg_pasKGF
  dbg_x$ = string$(25," ")
  i1% = dll_call1("KGFdllVersion",adr(dbg_x$))
  goto dbg_okKGF
dbg_pasKGF:
  dll_on "C:\Users\klausgunther\Documents\Mes projets\Mes projets Delphi\KGF\Synedit_Editor\KGF.dll"
  i1% = dll_call4("HookMoveSizeEvent",handle(9999),handle(9983),460,500)
  KGF% = 1
dbg_okKGF:
  off_error_goto
  to_foreground 9999
  caption 9999,"DBG ligne "+str$(n%)
  i1% = dll_call2("SelectListBoxItem",handle(9987),n%)
  clear 9989
  DBGuser()
  if DBG_exec=1
    DBG_doit = 0
    if checked(9997)=1 then DBG_doit = 1 : exit_sub
    if checked(9996)=1
      dbg_s$ = str$(n%)+","
      if instr(text$(9995)+",",dbg_s$)=0 then DBG_doit = 1 : exit_sub
    end_if
    if checked(9991)=1
      DBG_cnt = DBG_cnt - 1
      if DBG_cnt>0 then DBG_doit = 1 : exit_sub
    end_if
    if checked(9986)=1
      dbg_x$ = trim$(caption$(9987))
      dbg_i% = instr(dbg_x$,":")
      if dbg_i%=0 then exit_sub
      dbg_x$ = left$(dbg_x$,dbg_i%)
      dbg_s$ = text$(9985)+","
      dbg_i% = instr(dbg_s$,",")
      while dbg_i%>0
        dbg_s$ = left$(dbg_s$,dbg_i%-1)+":;"+mid$(dbg_s$,dbg_i%+1,len(dbg_s$))
        dbg_i% = instr(dbg_s$,",")
      end_while
      if instr(dbg_s$,dbg_x$)=0 then DBG_doit = 1 : exit_sub
    end_if
  end_if

  if DBG_exec=2
    DBG_doit = 1
    if checked(9997)=1 then DBG_doit = 0 : exit_sub
    if checked(9996)=1
      dbg_s$ = str$(n%)+","
      if instr(text$(9995)+",",dbg_s$)=0 then DBG_doit = 0 : exit_sub
    end_if
    if checked(9991)=1
      DBG_cnt = DBG_cnt - 1
      if DBG_cnt>0 then DBG_doit = 0 : exit_sub
    end_if
    if checked(9986)=1
      dbg_x$ = trim$(caption$(9987))
      dbg_i% = instr(dbg_x$,":")
      if dbg_i%=0 then exit_sub
      dbg_x$ = left$(dbg_x$,dbg_i%)
      dbg_s$ = text$(9985)+","
      dbg_i% = instr(dbg_s$,",")
      while dbg_i%>0
        dbg_s$ = left$(dbg_s$,dbg_i%-1)+":;"+mid$(dbg_s$,dbg_i%+1,len(dbg_s$))
        dbg_i% = instr(dbg_s$,",")
      end_while
      if instr(dbg_s$,dbg_x$)=0 then DBG_doit = 0 : exit_sub
    end_if
  end_if
  DBG_exec = 0
  inactive 0
  active 9999
  while DBG_exec=0
    display
  end_while
  to_foreground 9999
  if KGF%=1
    i1% = dll_call0("UnhookMoveSizeEvent")
    dll_off
  end_if
  exit_sub

DBG_cont:
    DBG_doit = 0
    if checked(9998)=1 then DBG_doit = 1 : dbg_exec = 1 : return
    if checked(9997)=1 then DBG_doit = 1 : dbg_exec = 1 : return
    if checked(9996)=1
      dbg_s$ = str$(n%)+","
      if instr(text$(9995)+",",dbg_s$)=0 then DBG_doit = 1 : dbg_exec = 1 : return
    end_if
    if checked(9991)=1 then DBG_cnt = val(text$(9990)) : DBG_doit = 1 : dbg_exec = 1 : return
    dbg_exec = 1
  return
DBG_ign:
    DBG_doit = 1
    if checked(9998)=1 then DBG_doit = 0 : dbg_exec = 2 : return
    if checked(9997)=1 then DBG_doit = 0 : dbg_exec = 2 : return
    if checked(9996)=1
      dbg_s$ = str$(n%)+","
      if instr(text$(9995)+",",dbg_s$)=0 then DBG_doit = 0 : dbg_exec = 2 : return
    end_if
    if checked(9991)=1 then DBG_cnt = val(text$(9990)) : DBG_doit = 0 : dbg_exec = 2 : return
    dbg_exec = 2
  return
DBG_abo:
  terminate
DBG_lig:
  i1% = dll_call2("SelectListBoxItem",handle(9987),n%)
  return
DBG_change:
  width 9987,width(9999)-40
  height 9987,height(9999)-410
  left 9984,width(9999)-120
  width 9989, width(9999)-40
  return

end_sub

1: message "mon programme"
2: message "démarre bien"
3: terminate : ' <== pour éviter le double lancement !
4: end
5: sub DBGuser()
' ===============================================================
'  Dans cette procédure, on charge dans le mémo de débug
'  le contenu de toutes les variables à visualiser, et toute
'  information utile à l'analyse de la situation.
'  Cette procédure sera automatiquement appelée par DBG()
'  et les informations fournies seront visibles au programmeur.
' ===============================================================
  ' un exemple de ligne à ajouter ici:
  ' if variable("i%")=1 then item_add dbg_memo,"i%=" + str$(i%)
end_sub

dbg_pasKGF:
  dll_on "C:\Users\klausgunther\Documents\Mes projets\Mes projets Delphi\KGF\Synedit_Editor\KGF.dll"
  i1% = dll_call4("HookMoveSizeEvent",handle(9999),handle(9983),460,500)
  KGF% = 1

  if variable("i%")=1 then item_add dbg_memo,"i%=" + str$(i%) + " adr="+str$(adr(i%))
  if variable("f")=1 then item_add dbg_memo,"f=" + str$(f) + " adr="+str$(adr(f))
  if variable("s$")=1 then item_add dbg_memo,"s$=" + s$ + " adr="+str$(adr(s$))