1. Accueil
  2. Delphi / Pascal
  3. Sources Delphi / Pascal
  4. Sources Texte
  5. Mettre en couleur des mots clefs dans un richedit

Mettre en couleur des mots clefs dans un richedit

0/5 (1 avis)

Vue 9 529 fois - Téléchargée 860 fois

Télécharger le projet
Commenter

Description

Cette fonction sert à souligner et à mettre en bleu automatiquement toutes les URLs d'un contrôle TRichEdit. Appelez la fonction HighlightURL et passez lui votre contrôle RichEdit en paramètre. La fonction peut être modifiée pour gérer d'autres types de mots clefs.

Dans le ZIP, il y a la fonction et une petite démo.

Source / Exemple : 


unit HighlightURL_unit;

interface

uses ComCtrls, Windows, Messages, Graphics;

procedure HighlightURL(const RichEdit : TRichEdit);

implementation

procedure HighlightURL(const RichEdit : TRichEdit);
var sCopy : string;
    memoIndex : integer;
    s : string;
    urlPos : integer;
    j : integer;
    URL : string;

  // Vérifie que le caractère est un caractère d'URL valide. 
  function isValidChar(const c : char) : boolean;
  const validChars = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789$-_.+!*''(),{}|\^~[]`<>#%|<>;/?:@&=';
  begin
    result := Pos(c, validChars) <> 0;
  end;

begin
  s := RichEdit.Lines.Text;
  sCopy := Copy(s, 0, length(s));
  memoIndex := 0;

  RichEdit.Tag := 1;
  // Cache le marqueur de sélection avant le traitement
  // --> WM_USER + 63 = EM_HIDESELECTION
  RichEdit.Perform(Messages.WM_USER + 63, WPARAM(TRUE), LPARAM(FALSE));
  // Met tout le texte en noir / non-souligné
  RichEdit.SelectAll;
  RichEdit.SelAttributes.Color := clBlack;
  RichEdit.SelAttributes.Style := [];

  // Cherche une URL
  urlPos := Pos('http://', sCopy);
  while urlPos <> 0 do begin // S'il y a une URL à traiter
    // Copie le texte à partir du début de l'URL jusqu'à la fin du texte
    sCopy := Copy(sCopy, urlPos, length(sCopy));
    memoIndex := memoIndex + urlPos;
    // Met le curseur au début de l'URL
    RichEdit.SelStart := memoIndex - 1;
    j := 1;
    URL := '';
    // Cherche la fin de l'URL
    while isValidChar(sCopy[j]) do begin
      URL := URL + sCopy[j];
      j := j + 1;
    end;
    sCopy := copy(sCopy, j, length(sCopy));
    memoIndex := memoIndex + j - 2;
    // Etend la sélection jusqu'à la fin de l'URL
    RichEdit.SelLength := memoIndex - RichEdit.SelStart;
    // Met l'URL en bleu et la souligne
    RichEdit.SelAttributes.Color := clBlue;
    RichEdit.SelAttributes.Style := [fsUnderline];
    // Cherche la prochaine URL à traiter
    urlPos := Pos('http://', sCopy);
  end;
  RichEdit.SelStart := 0;
  // --> WM_USER + 63 = EM_HIDESELECTION
  RichEdit.Perform(Messages.WM_USER + 63, WPARAM(FALSE), LPARAM(FALSE));
  RichEdit.Tag := 0;
end;

end.

Conclusion :


Prochainement, une démo complémentaire pour rendre les URL "cliquables" :)
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaire
Yoda222
Messages postés
4
Date d'inscription
lundi 13 janvier 2003
Statut
Membre
Dernière intervention
8 septembre 2003
8 sept. 2003 à 23:20
bon la il est tard pour regarder ca maintenant, mais a premiere vue, c'est ce que je cherchait...

c bien ca m'évitera un partie du travail ;)

merci bcp ;)
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Laurent1313)