Discussion :

[dj_techno]

Salut
j'utilise des memo pour l'affichage des phrases et textes à partir d'une base de données:
memo1.Lines.Add(exp + ' du ' + du + ' au ' + au + ',établissement: ' + soc );
se que je n'arrive pas à faire c'est d'afficher des mots en couleur différents par exemple je veux afficher le mots "établissent" en rouge, aussi je souhaite savoir comment inserer le retour à la ligne à la fin d'une chaine ou dans n'importe quel position que je veux et aussi l'insertion d'une chaine vide car j'ai mis le code memo1.Lines.Add(''); mais n'a pas fonctionner.
merci

[ALWEBER]

En Delphi standard il existe une solution : le Memo RichEdit

[ero-sennin]

Salut,

Comme l'as dit Alweber, pour faire cela il faut utiliser le RichEdit.

Je te propose d'étudier le code de Sub0 qui normalement répond à ta question

C'est par ici

[Gilbert Geyer]

Salut,

1) Couleurs : comme le dit ALWEBER utiliser RichEdit (en plus contrairement à un Memo, cela permet de faire RichEdit.Print en cas de besoin)

2) "comment inserer le retour à la ligne ... en n'importe quel position" :
- dans une séquence de memo1.Lines.Add(s) un memo1.Lines.Add('') ajoute une ligne vide à la suite et si l'on continue avec des memo1.Lines.Add(s) la ligne vide forme un interligne.
- par contre si on écrit memo1.Lines.Add( string1 +#13#10 +string2 +#13#10 +string3) les strings apparaîtront dans la lucarne d'affichage comme suit :
string1
string2
string3
Le caractère #13 est le CR (Carriage Return) ou ex Retour-chariot des anciennes machines à écrire
et le caractère #10 est le LF (Line Feed) qui correspondait à l'avancement du papier de la machine.
Ensemble CRLF ne singifient plus que "fin de paragraphe" vu qu'une string peut être très longue et s'étaler visuellement sur plusieurs lignes.

3) et c'est Kif-kif avec RichEdit.

[aityahia]

l'exemple sur le RichEdit Fourni avec delphi t'aidera beaucoup.

[dj_techno]

bonjour
merci pour vos réponses, je vais essayer le richedit au lieu des memo
merci

[dj_techno]

salut
voici mon code ou j'utilise memo:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
procedure Tetat_agent.DBLookupComboBox1Click(Sender: TObject);
var
exp,du,au,soc,qual,acadm,etab,sactif,sdesign:string;
begin
etat_agent.memo1.Lines.Text:=('');
sdesign:=etat_agent.adotableinfo.Fields[1].asstring;
sactif:='etat=true';
etat_agent.adotableexpr.filtered:=false ;
etat_agent.adotableexpr.filter:= sactif + ' and ' + 'nom ='+ quotedstr(sdesign);
etat_agent.adotableexpr.filtered:=true ;
etat_agent.adotableexpr.First;
while not etat_agent.adotableexpr.eof do
begin
 qual:= etat_agent.adotableexpr.fields[4].asstring;
 du:=datetostr(etat_agent.adotableexpr.fields[2].asdatetime);
 au:=datetostr(etat_agent.adotableexpr.fields[3].asdatetime);
 soc:= etat_agent.adotableexpr.fields[5].asstring;
 exp:= etat_agent.adotableexpr.fields[4].asstring;
 etat_agent.memo1.Lines.Add(exp + ' du ' + du + ' au ' + au + ', établissement: ' + soc +', Qualification : '+ qual);
 etat_agent.ADOTableexpr.Next;
 end;

il applique une filtre sur une table puis il parcoure cette table pour afficher touts les enregistrements dans un memo, moi je veux mettre les chaines entre ' ' comme 'du','au','établissement' et 'qualification' en couleur différente, bon j'ai essayé de mettre un richedit mais je n'arrive pas à appliquer les couleurs et j'ai vue le code de sub0 (syntax.dpr) mais je ne l'ai pas bien compris.
merci

[hauwke] Merci d'utiliser les balises de code[/Hauwke]

[aityahia]

pour ajouter les quotte vous avez l'instruction QuotedStr

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

etat_agent.memo1.Lines.Add(exp + QuotedStr('du') + du + QuotedStr(' au ') + au + QuotedStr(', établissement: ') + soc +QuotedStr(', Qualification : ')+ qual);

pour la couleur vous ajouter cette ligne avant d'insérer le text.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RichEdit1.SelAttributes.Color := clBlue;

pour supprimer votre Texte le Clear me semble plus adapté.

[SergioMaster]

voir egalement le post http://www.developpez.net/forums/sho...d.php?t=359431

[dj_techno]

bonjour
merci de vos réponses mais je ne trouve pas toujours se que je veux, et si je ferai comme cette exemple:
http://www.developpez.net/forums/sho...d.php?t=359431
je serai obliger de diviser une pargaraphe en une centaine de
sous-paragraphe et un trés grand code pour mettre en couleur des mots bien precis.
merci

[ero-sennin]

Salut,

J'ai fait vite fait un exemple pour te permettre de mieux comprendre le fonctionnement du RichEdit. Dans l'exemple ci dessous, je mets en couleur certains éléments de ma Bdd. Le nom en rouge et le prénom en jaune.

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
procedure TForm1.Button1Click(Sender: TObject);
var
nom,prenom:string;
i:integer;
Longueur,LongueurTotal:integer;
begin
  Query1.SQL.Clear;
  Query1.SQL.Add('Select * from t_joueur');
  Query1.Open;
 
  for i:=0 to Query1.RecordCount-1 do
  begin
    nom:=Query1.FieldByName('S_Nom').AsString;
    prenom:=Query1.FieldByName('S_Prenom').AsString;
    LongueurTotal:=Length(RichEdit1.Text); // On récupère la longueur du texte pour se positionner
    RichEdit1.Lines.Add('Nom: '+QuotedStr(nom)+'  Prénom: '+prenom);// On ajoute notre ligne
    Longueur:=Length(nom);// On calcule la longueur du mot à mettre en couleur
    RichEdit1.SelStart:=PosEx(nom,RichEdit1.Text,LongueurTotal)-1;// On positionne le curseur
    RichEdit1.SelLength:=Longueur;// On sélectionne le texte
    RichEdit1.SelAttributes.Color:=clRed;// On met en couleur le texte sélectionné
    Longueur:=Length(prenom);
    RichEdit1.SelStart:=PosEx(prenom,RichEdit1.Text,LongueurTotal)-1;
    RichEdit1.SelLength:=Longueur;
    RichEdit1.SelAttributes.Color:=clYellow;
    //RichEdit1.Lines.Add('');// On ajoute une ligne vide
    Query1.Next;
  end;
end;

Si tu souhaites prendre les quotes, il et faut modifier ces 2 lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
RichEdit1.SelStart:=PosEx(nom,RichEdit1.Text,LongueurTotal)-1;// On positionne le curseur
RichEdit1.SelLength:=Longueur;// On sélectionne le texte

en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
RichEdit1.SelStart:=PosEx(nom,RichEdit1.Text,LongueurTotal)-2;// On positionne le curseur
RichEdit1.SelLength:=Longueur+2;// On sélectionne le texte

Ensuite, si tu ne comprends pas quelques choses, F1 sur le mot clé ... je pense notamment à PosEx, SelStart etc etc!

J'espère que celà t'aidera beaucoup!
Bonne continuation et bon courage.
A +

[Gilbert Geyer]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RichEdit1.SelStart:=PosEx(nom,RichEdit1.Text,LongueurTotal)-1;

... PosEx n'existant pas sous Delphi 5 , ne serait-ce pas une version bis de pos(nom,RichEdit1.Text) mais qui cherche 'nom' à partir de la fin (vu le LongueurTotal dans PosEx) ??

[Cl@udius]

L'aide de delphi 7 stipule ceci:

Syntaxe Delphi :

function PosEx(constSubStr,S:string;Offset:Cardinal =1):Integer;

Syntaxe C++:

extern PACKAGE int __ fastcall PosEx(const AnsiStringSubStr,const AnsiString S,
unsigned Offset =1);

Description

PosEx renvoie l'indice de SubStr dans S,en commençant la recherche à Offset.Si Offset a pour valeur 1 (par défaut),PosEx équivaut à Pos.

PosEx renvoie 0 si SubStr n'est pas trouvée,si la valeur d'Offset est supérieure à la longueur de S,ou si la valeur d'Offset est inférieure à1.

@+

[ero-sennin]

Salut,

PosEx est une version améliorée de Pos. Par défaut, Pos permet de renvoyer l'indice du premier caractère de l'occurrence cherchée et cela a chaque fois à partir du début du texte dans lequel on souhaite chercher.
PosEx prend un paramètre en plus qui permet de positionner le caret à une position donnée.

PosEx renvoie l'indice de SubStr dans S,en commençant la recherche àOffset.Si Offset a pour valeur 1 (par défaut),PosEx équivaut àPos.

PosEx renvoie 0 si SubStr n'est pas trouvée,si la valeur d'Offset est supérieure àla longueur de S,ou si la valeur d'Offset est inférieure à1.

Voilà

[EDIT]

Grillé

[Gilbert Geyer]

Merci à tous les deux pour les infos sur PosEx.
Finalement le plus plus approchant sous Delphi 5 c'est la function FindText(const SearchStr: string; StartPos, Length: Integer; Options: TSearchTypes): Integer ... vu que la recherche ne porte que sur la partie du texte commençant à la position StartPos et de longueur Length et avec en prime Options pour spécifier si la recherche ne doit chercher que des mots entiers ou si la recherche doit tenir compte des différences majuscules/minuscules.
A+

[Gilbert Geyer]

Voiçi une procédure qui met en évidence (couleur et/ou Style) les mots présents dans 'Ligne' et qui sont déclarés isolément dans la StringList 'motsEvidence' ... et si cette StringList :
- est vide 'Ligne' s'affiche sans mise en forme,
- mais si elle contient un seul 'mot' égal à 'Ligne' c'est toute la ligne qui est mise en évidence :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
procedure redAjouterEnEvidence( var richEd : tRichEdit;
                                Ligne : string; motsEvidence : tStringList;
                                iColor: tColor; iStyle : tFontStyles);
var       i,LongueurIni : integer;
begin     LongueurIni:=Length(richEd.Text);
          with richEd do
          begin Lines.add(Ligne);
                for i:=0 to motsEvidence.count-1 do
                begin SelStart:=richEd.FindText(motsEvidence[i],LongueurIni,Length(Ligne)+2,[stWholeWord]);
                      SelLength:=length(motsEvidence[i]);
                      SelAttributes.Color := iColor; //On met de la couleur dans la sélection
                      SelAttributes.Style := iStyle; //kif-kif pour le style
                      SelLength:=0;
                      update;
                end;
          end;
end;

... et voiçi un exemple d'utilisation de cette procedure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
procedure TForm1.Button1Click(Sender: TObject);
var       motsEvidence : tStringList; ligneAAjouter : string;
begin
          motsEvidence := tStringList.create;
          ligneAAjouter:='mot1 mot2 mot3 mot4 mot5'; //< 1ère ligne à ajouter dans le RichEdit
          with motsEvidence do
          begin Add('mot2'); Add('mot4'); end; //< mots à mettre en évidence dans cette ligne
          redAjouterEnEvidence( RichEdit1,ligneAAjouter,motsEvidence,clLime,[fsBold]);
 
          ligneAAjouter:='On est un mardi'; //< 2ème ligne à ajouter dans le RichEdit
          with motsEvidence do
          begin Clear; Add('est'); Add('mardi'); end;
          redAjouterEnEvidence( RichEdit1,ligneAAjouter,motsEvidence,clFuchsia,[fsUnderline]);
 
          ligneAAjouter:='Nième ligne à ajouter dans le RichEdit'; //< Nième ligne à ajouter dans le RichEdit
          with motsEvidence do
          begin Clear; Add(ligneAAjouter); end; //< ici c'est toute la ligne qui est mise en relief
          redAjouterEnEvidence( RichEdit1,ligneAAjouter,motsEvidence,clNavy,[fsBold]);
 
          motsEvidence.Free;
end;

... testé : ça marche.

[dj_techno]

bonjour
donc pour mettre un mots bien précis il faut toujours calculer sa longueur puis sa position dans la paragraphe, bon je vais essayer les exemples cité en haut et mettre en couleur un mots dans une paragraphe.
merci

[Gilbert Geyer]

donc pour mettre [en évidence] un mots bien précis il faut toujours calculer sa longueur puis sa position dans la paragraphe, ...

... effectivement ... mais si tu utilses la procedure redAjouterEnEvidence( var richEd : tRichEdit; Ligne : string; motsEvidence : StringList; iColor: tColor; iStyle : tFontStyles); c'est elle qui fait ces calculs ainsi que la mise en évidence et il ne reste donc plus qu'à lui envoyer les paramètres pour chaque ligne à ajouter dans le RichEdit en te basant sur l'exemple du code d'utilisation de cette procédure.

P.S : J'ai concocté cette procédure de façon à ce qu'elle permette de mettre en évidence au choix : aucun, un, plusieurs, ou tous les mots d'une même ligne de sorte quelle soit réutilisable en fonction des besoins qui peuvent changer d'une appli à l'autre ... ça évite d'avoir à se casser la tête à chaque fois. On pourrait la compliquer davantage pour modifier non seulement la couleur ou le Style d'un mot mais également la Fonte et sa taille.
A+
P.S.2 : Au fait j'ai remplacé dans mon message précédent la procédure redAjouterEnEvidence par la même où j'ai enlevé des variables finalement inutilisées.

[dj_techno]

salut
merci, Gilbert Geyer aprés quelques rectification dans mon code et le code que tu m'a proposer s'a marché
grand merci

[Gilbert Geyer]

A Dj_techno : salut, et merci pour cette bonne nouvelle.
J'ai continué sur le même thême et concocté un truc qui permet de faire la même chose mais en plus de faire varier le formattage (police, taille, couleur, style) d'un mot à l'autre d'une même ligne, alors qu'actuellement la mise en évidence dans une même ligne est uniforme. Comme dans le nouveau truc on peut faire varier la police cela permet d'ajouter dans une ligne des caractères Wingdings du type flèches et autres. Si ça t'intéresse, dis le, et je le posterai ici.