Discussion :

[Papy214]

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 :

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

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 ?

[ShaiLeTroll]

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 ?

[Papy214]

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 :

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

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 :

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

1
2
3
4
5
6
 
var
  elem: IHTMLElement;
begin
  elem := ElementById('contenu');
  elem.style.fontStyle := 'bold';

ça déclenche une erreur

---------------------------
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.

[Papy214]

le plus étrange c'est que :

Code :

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

1
2
3
 
  elem.style.backgroundColor := 'red';
  elem.style.fontFamily := 'tahoma';

fonctionne très bien

[ShaiLeTroll]

'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 :

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

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;

[Papy214]

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 :

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

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 !

[Papy214]

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

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
 
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;