Discussion :

[ero-sennin]

Bonsoir,

Actuellement dans mon projet, je génère ce qui va être un fichier texte au format rtf afin de garder le formatage du fichier.

En fait, dans mon programme, je parcours une liste de valeur, et selon un status précis, je dois surligner ou non la valeur!

Pour ce faire, j'ai mis en place une procédure qui surligne mon mot, la voici :

Code :

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

1
2
3
4
5
6
7
8
procedure TFMLD.SurlignerMot(Mot:String);
begin
  RichEditMLD.Text:=RichEditMLD.Text+Mot;
  RichEditMLD.SelStart:=length(RichEditMLD.Text)-length(mot);
  RichEditMLD.SelLength:=length(mot);
  RichEditMLD.SelAttributes.Style:=[fsUnderline];
  RichEditMLD.SelStart:=length(RichEditMLD.Text);
end;

Le soucis, c'est que lorsque je fais RichEditMLD.Text=RichEditMLD.Text+Mot, je perds le formatage du dernier mot afficher.
Je peux passer par le ClipBrd du RichEdit pour conserver le formatage, mais ça risque de ne pas être très propre ...

Donc, je ne sais pas quelle solution je peux envisager pour dire de faire ce traitement proprement tout en conservant le formatage.

Merci d'avance

[ShaiLeTroll]

Tient j'ai ce genre de chose pour un log, qui ajoute du texte et selon le type modifie son style

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
 
    if Assigned(TraceShaiForm) then
      begin
         if Assigned(TraceShaiMemo) then
         begin
            TraceShaiMemo.Lines.BeginUpdate();
            try
               if TraceShaiMemo.Lines.Count > 10000 then
               begin
                  TraceShaiMemo.Lines.Clear();
                  TraceShaiMemo.Lines.Add('Effacement ...');
                  TraceShaiCaret := Length(TraceShaiMemo.Lines.Text);
               end;
               MsgEx := Trim(FormatDateTime('DD/MM/YYYY HH:NN:SS', Now()) + ' - ' + Msg);
               TraceShaiMemo.Lines.Add(MsgEx);
               TraceShaiMemo.SelStart := TraceShaiCaret;
               TraceShaiMemo.SelLength := Length(MsgEx) + 2; // + 2 pour CR+LF
               TraceShaiMemo.SelAttributes.Color := IfThen(wDBlType = wDBlError, clRed, IfThen(wDBlType = wDBlWarning, clMaroon, clGreen));
               Inc(TraceShaiCaret, TraceShaiMemo.SelLength);
               TraceShaiMemo.SelLength := 0;
               TraceShaiMemo.Perform(EM_LINESCROLL, 0, TraceShaiMemo.Lines.Count);
            finally
               TraceShaiMemo.Lines.EndUpdate();
            end;
         end;
         TraceShaiForm.Show();
      end;

TraceShaiCaret est une variable de l'instance de l'objet trace, c'est plus rapide de connaitre la taille du texte du memo car obtenir le Text d'un Memo est une opération couteuse en temps

[ero-sennin]

Merci ShaiLeTroll pour cette réponse!

Si je comprends ton fonctionnement, on ne fait que déplacer le caret au bon endroit et, grace à un SelLength, on souligne les mots qui doivent être soulignés lors de leur insertion.

Pour ce que, si je regarde ton code, tu fais un AddLines, or moi, je ne penses pas pouvoir. Mon programme doit générer le MLD d'un MCD. Donc je dispose d'une collection d'entités et une collection de champs que je parcours. Pour chaque table, et pour chaque champs, je regarde si c'est une clé primaire. Si oui, je la souligne, si non, je ne fais rien.

J'ai une idée! utiliser SelText pour insérer du texte à l'endroit du curseur. Je testerai et dès que c'est fait, je viens vous donner le résultat

[EDIT]:
Avec SelText je parviens à mes fins
Merci