Modifier le style d'un élément dans TWebBrowser

Bonjour

J'utilise un TWebBrowser en mode "design on".
Je cherche à ajouter des commandes dans un popup menu pour faire certaines manipulations de bases sur le texte.
Par exemple, pour mettre en gras le texte sélectionné, je fais :

Code:

---

1 2 3 4 5

procedure TWebBrowserHelper.SetSelectionGras; begin ((Self as TWebBrowser).Document as IHTMLDocument2).execCommand('Bold', false,0); end;

---

Problème : Si ça fonctionne bien, Microsoft indique que cette fonction execCommand est obsolète et sera progressivement retirée des navigateurs.
Je ne trouve pas d'autre solution pour le moment.

Quelqu'un ici aurait déjà fait un truc dans ce genre ?

Ne devrais-tu pas passer par un GetElementByID et IHTMLElement ainsi que voir ce que l'on peut faire de IHTMLSelectionObject

C'est dans quel but, faire une sorte d'outil de recherche dans une page Web ?

J'ai cherché de ce côté là mais IHTMLSelectionObject ne propose rien (en tous cas dans la complétion d'objet dans Delphi.

Code:

---

1 2 3 4 5 6 7

procedure TWebBrowserHelper.SetSelectionGras; begin (Document as IHTMLDocument2).selection. <---   // (Document as IHTMLDocument2).execCommand('Bold', false,0); end;

---

et si j'essaie ça :

Code:

---

1 2 3 4 5 6

var elem: IHTMLElement; begin elem := ElementById('contenu'); elem.style.fontStyle := 'bold';

---

ça déclenche une erreur

Citation:

---

---------------------------
Notification des exceptions du débogueur
---------------------------
Le projet EditerBrowser.exe a déclenché la classe d'exception EOleException avec le message 'Impossible d'obtenir la propriété fontStyle. Argument non valide'.
---------------------------
Arrêter Continuer Aide
---------------------------

---

Le but c'est d'afficher un modèle de mail et la possibilité de modifier le texte (ça fonctionne) mais aussi de permettre de mettre certains mots en gras, italique ou un police différente.

le plus étrange c'est que :

Code:

---

1 2 3

elem.style.backgroundColor := 'red'; elem.style.fontFamily := 'tahoma';

---

fonctionne très bien

'bold' c'est plutôt font-weight non ?
fontStyle c'est genre 'italic' si supportée


et Pour la sélection faut caster l'objet

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

var sel: IHTMLSelectionObject; range: IHTMLTxtRange; begin Sel := (Document as IHTMLDocument2).selection; if Assigned(Sel) then begin if (Sel.type_ = 'None') or (Sel.type_ = 'Text') then begin Range := Sel.createRange as IHTMLTxtRange;   Range.... end; end; end;

---

Tu as raison, c'est fontWeight. Je suis trop habitué à Delphi.

Pour le IHTMLTxtRange, merci je ne savais pas comment retrouver la sélection.

J'ai trouvé qu'on peut aussi définir plusieurs choses directement de la façon suivante :

Code:

---

styl.cssText := '"color: blue; border: 1px solid black"';

---

C'est pas mal pour appliquer un style prédéfini par l'utilisateur.
Ca sera même plus pratique pour eux. Un peu comme les styles dans Word auxquels ils sont habitués.

Merci pour ton aide ! :)

Au final, ça donne ça pour une sélection de texte:

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

procedure TWebBrowserHelper.SetSelectionGras; var elemstrong : IHTMLElement; styl : IHTMLStyle; Sel : IHTMLSelectionObject; range: IHTMLTxtRange; Doc : IHTMLDocument2; begin   Doc := (Document as IHTMLDocument2); Sel := Doc.selection; if Assigned(Sel) then begin if (Sel.type_ = 'Text') then begin range := Sel.createRange as IHTMLTxtRange;   elemstrong := Doc.createElement('strong'); elemstrong.innerText := Range.text;   Sel.clear; range.pasteHTML(elemstrong.outerHTML); end; end;   end;

---