IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Lazarus Pascal Discussion :

SynEdit + SynFacilSyn : point-virgule en début de ligne = commentaire, ignorer les autres points-virgules [Lazarus]


Sujet :

Lazarus Pascal

  1. #1
    Membre actif
    Avatar de sematimo
    Profil pro
    Inscrit en
    Février 2009
    Messages
    282
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2009
    Messages : 282
    Points : 275
    Points
    275
    Par défaut SynEdit + SynFacilSyn : point-virgule en début de ligne = commentaire, ignorer les autres points-virgules
    Bonjour
    je teste SynEdit avec SynFacilSyn.
    Je charge dans SynEdit un texte qui contient des commentaires précédés d'un point virgule mais il y a aussi des points virgule dans le texte en lui même.
    j'utilise le code suivant dans un fichier xml:
    Code XML : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    <Comment Start=";" ></Comment>
    <Attribute name="COMMENT" ForeCol="green"></Attribute>

    je voudrai que seule les lignes commençant par le point virgule soit en vert, mais là les ligne comportant un point virgule dans le texte sont aussi impactées.
    J'ai essayé TokPos mais je n'y arrive pas.

  2. #2
    Membre actif
    Avatar de sematimo
    Profil pro
    Inscrit en
    Février 2009
    Messages
    282
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2009
    Messages : 282
    Points : 275
    Points
    275
    Par défaut
    Bonjour à tous
    bon j'ai trouvé une solution dans les events de synedit:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    procedure TForm1.SynEdit1SpecialLineColors(Sender: TObject; Line: Integer; var Special: Boolean; var FG, BG: TColor);
    begin
      if (Copy(SynEdit1.Lines[Line - 1],1,1) = ';') then
       begin
        Special := true;
        fg := clGreen;
        bg := synedit1.Color ;
      end;
    end;

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 2
    Dernier message: 17/05/2014, 13h44
  2. [XL-2007] effacer une ligne et remonter les autres lignes pleines
    Par vincent59139 dans le forum Excel
    Réponses: 3
    Dernier message: 28/10/2013, 17h45
  3. Supprimer une ligne sans décaler les autres
    Par nomade333 dans le forum Conception
    Réponses: 4
    Dernier message: 19/04/2012, 00h43
  4. Retour à la ligne mais pas les autres tags
    Par thierryler dans le forum JSF
    Réponses: 6
    Dernier message: 02/12/2010, 21h48
  5. Regexp de suppression d'espaces en début de ligne
    Par batmatm dans le forum Langage
    Réponses: 4
    Dernier message: 20/10/2005, 16h25

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo