Bonjour à tous,
je suis en train de développer un éditeur wysiwyg en Delphi, il est "opérationnel" mais je me rends compte que mon algorithme pour mettre les balises ouvrantes et fermantes des couleurs, police, et taille n'est pas bon. Comment devrais-je procéder? Voici un appercu de mon code actuel

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
 
police:= false; //variable de test de changement de police (boolean)
anciennePolice := 'Verdana'; //police par defaut
 
//Met la balise ouvrante de la police du texte
        policeTexte := RichEdit.SelAttributes.Name;
        if ((police =false) and (policeTexte <>anciennePolice)) then
        begin
                police :=true;
                html := html+'<font face="'+policeTexte+'">';
                anciennePolice := policeTexte;
        end;
//Met la balise fermante et ouvrante en cas de passage d'une police à l'autre ,autre que celle par défaut (courrier-->arial par exemple)
        if ((police=true) and (policeTexte<>anciennePolice)) then
        begin
                if (policeTexte<> 'Verdana') then
                begin
                        html := html+'</font><font face="'+policeTexte+'">';
                        anciennePolice := policeTexte;
                end;
        end;
//Met la balise fermante de la police du texte
        if ((police = true) and (policeTexte <> anciennePolice))  then
        begin
                police := false;
                html := html+'</font>';
                anciennePolice:= 'Verdana';
        end;
Merci d'avance