Mettre les balises HTML quand il faut
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:
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 :)
