Bonjour,

j'affiche une image en ouvrant un fichier dans un Tbrowser par la fonction Navigate.

Je voudrais écrire ou dessiner sur l'image. J'ai pris ce code dans la FAQ pour ajouter un canvas au TBrowser :

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
procedure TForm1.CreateClick(Sender: TObject);
begin
  fcanvas:=TControlCanvas.Create;
  fcanvas.Control := WebBrowser1;
end;
 
procedure TForm1.UseClick(Sender: TObject);
begin
  fCanvas.Brush.Color := clRed;
  fCanvas.Rectangle(1, 1,  15, 15);
  fCanvas.Brush.Color := clWhite;
  fCanvas.TextOut(17, 0, 'rouge');
  //Edit1 contient maintenant un carré rouge puis le texte 'rouge'
end;
 
procedure TForm1.freeClick(Sender: TObject);
begin
  fCanvas.Free;
end;
J'ai placé le code de UseClick après l'instruction Navigate. ça compile et s'exécute sans erreur, mais rien n'apparait.

Est ce possible de le faire ?

Merci si quelqu'un peut m'aider

Charly