Module Bloc-Notes

function repeatedly_execute() {
 
  // Gestion du clignotement du curseur (tous les 20 cycles)
  if ((Bouton != null) && (!(a % 20))) {
   
    if (affcur) {
      DrawingSurface* surf = Bloc.GetDrawingSurface();
      surf.DrawSurface(surf_buffer);
      surf.DrawingColor = Bouton.TextColor;
      surf.DrawLine(x_curs-Decal_x, y_curs-Decal_y, x_curs-Decal_x, y_curs+Font_Height-Decal_y);
      surf.Release();
      Bouton.NormalGraphic = Bloc.Graphic;
    }
    else {
      DrawingSurface* surf = Bloc.GetDrawingSurface();
      surf.DrawSurface(surf_buffer);
      surf.Release();
      Bouton.NormalGraphic = Bloc.Graphic;
    }
    affcur = true - affcur;
    a = 1; // Retour à 1
  }
  else if (Bouton != null) a++;
 
  // On récupère le contrôle survolé
  GUIControl* control = GUIControl.GetAtScreenXY(mouse.x, mouse.y);
  // Et on regarde si c'est un bloc
  bool survolebloc = (control!=null)&&(control.AsButton!=null)&&(control.AsButton.InArray(buttons,buttons_size)>-1);

  // Si l'utilisateur a spécifié un curseur particulier
  if (MODE_CURSEUR > 0) {
    if (survolebloc) mouse.UseModeGraphic(MODE_CURSEUR);
    else mouse.UseDefaultGraphic();
  }
 
  // Si besoin, on redimensionne le bloc à la bonne taille
  if ((Bouton != null) && ((Bloc.Width != Bouton.Width) || (Bloc.Height != Bouton.Height))) {
    Bloc.Resize(Bouton.Width, Bouton.Height);
    DrawingSurface* surf = Bloc.GetDrawingSurface();
    surf.RemplitCadre(BlocTexte, Bouton.Font);
    surf.Ecrit(curs, Bouton.Font);
    Bouton.NormalGraphic = Bloc.Graphic;
  }

  // Gestion des clics
 
  // Si on ne clique sur rien
  if (!Mouse.IsButtonDown(eMouseLeft)) {
    // Si CLIQUE ne valait pas NULL, on relance le clignotement
    if (Clique != null) {
      a = 0;
      affcur = true;
    }
    Clique = null;  // CLIQUE vaut NULL
    CliqueHorsBloc = false; // On n'a pas cliqué hors d'un bloc
  }
  // Sinon, si on clique effectivement
  else {
    // Si on ne maintient pas un clic sur un bloc
    if ((Clique == null) || (Clique != Bouton)) {
      // Si on maintient un clic hors bloc ou si on ne survole aucun bloc
      if ((!survolebloc) || CliqueHorsBloc) {
        // On enlève l'éventuel focus
        if (Bouton != null) BlocNotes.set_ActiveButton(null);
        // On dit qu'on a cliqué hors d'un bloc
        CliqueHorsBloc = true;
        // Et on s'en va
        return;
      }
      // Si on clique sur un nouveau bloc : on convertit
      else if (survolebloc && control.AsButton != Bouton) BlocNotes.Convert(control.AsButton);
    }
   
    CursorDeterminesOffset = true;
   
    // On dit qu'on a cliqué sur un bloc
    CliqueHorsBloc = false;
   
    // On calcule la position X relative de la souris et le # de ligne où elle se trouve
    x_curs = mouse.x-(Bouton.OwningGUI.X+Bouton.X)+Decal_x;
    y_curs = (mouse.y-(Bouton.OwningGUI.Y+Bouton.Y)+Decal_y);
    // Puis on cherche le caractère le plus proche de cette position
    curs = CaractereProx(y_curs);
    // Si on ne maintient pas le clic : sel = curs
    if ((Clique == null) || (Clique.AsButton != Bouton)) sel = curs;
   
    // On affiche le cadre
    DrawingSurface* surf = Bloc.GetDrawingSurface();
    surf.Ecrit(curs, Bouton.Font);
    Bouton.NormalGraphic = Bloc.Graphic;
   
    if (Clique != Bouton) Clique = control;  // CLIQUE vaut le contrôle si on a changé de contrôle
 
  }
 
}

function CaractereProx(int y) {
  
  int li = y/Font_Height;
  if (li >= LineCount) li = LineCount-1;
  ///////// J'ai rajouté ceci
  if (li < 0) li=0;
  /////////
  
  int c = 0;
  String ligne = Cadre[li], tmp = ligne.Substring(0, c);

//etc...

// Gestion des clics
  
  // Si on ne clique sur rien
  if (!Mouse.IsButtonDown(eMouseLeft)) {
    // Si CLIQUE ne valait pas NULL, on relance le clignotement
    if (Clique != null) {
      a = 0;
      affcur = true;
    }
    Clique = null;  // CLIQUE vaut NULL
    CliqueHorsBloc = false; // On n'a pas cliqué hors d'un bloc
  }
  // Sinon, si on clique effectivement
  else {
    // Si on ne maintient pas un clic sur un bloc
    if ((Clique == null) || (Clique != Bouton)) {
      // Si on maintient un clic hors bloc ou si on ne survole aucun bloc
      if ((!survolebloc) || CliqueHorsBloc) {
        // On enlève l'éventuel focus
        if (Bouton != null) BlocNotes.set_ActiveButton(null);
        // On dit qu'on a cliqué hors d'un bloc
        CliqueHorsBloc = true;
        // Et on s'en va
        return;
      }
      // Si on clique sur un nouveau bloc : on convertit
      else if (survolebloc && control.AsButton != Bouton)
      {
        /////// CES DEUX-là
        sel=0;
        curs=0;
       //////// ça permet d'annuler la sélection lorsqu'on rappelle la fonction "Ecrit"
        BlocNotes.Convert(control.AsButton);
      }
    }
    
    CursorDeterminesOffset = true;

// etc...