Discussion :

[Linkin]

C'est parce que tu utilise un TImage, lui "sauvegarde" ce que tu traces.

Désolé pour le paintbox, je te l'avais proposé par rapport aux sources que j'avais trouvé.
Le TImage proposé par exoseven est une meilleure solution (encore plus avec le TBitmap qui sert de cache, pour la rapidité).

[peter27x]

C'est parce que tu utilise un TImage, lui "sauvegarde" ce que tu traces.

Désolé pour le paintbox, je te l'avais proposé par rapport aux sources que j'avais trouvé.
Le TImage proposé par exoseven est une meilleure solution (encore plus avec le TBitmap qui sert de cache, pour la rapidité).

Maintenant tout marche, dessiner le trait simplement, et en plus avec le mode transparent... voici le code final (en version beta-test je précise, indices brutaux, etc...):

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
29
30
31
32
33
34
35
36
37
38
  // tentative de dessiner des traits facilement...
  listeTraitsSites:=TObjectList.Create;
  listeTraitsSites.OwnsObjects:=true;
 
  listeTraitsSites.add(TImage.create(self));
 
  monBitmap:=TBitmap.create();
 
  with monbitmap do
  begin
    width:=100;
    height:=100;
 
    Transparent := True;
    TransparentColor := clFuchsia;
 
    canvas.Brush.Color := TransparentColor;
    canvas.FillRect(Rect(0,0,width,height));
 
    canvas.pen.width := 2;
    canvas.pen.color := clblack;
    canvas.moveTo(0,0);
    canvas.LineTo(80,10);
    canvas.moveTo(0,0);
    canvas.LineTo(10,80);
  end;
 
  with TImage(listeTraitssites[0]) do
  begin
    parent:=image9.parent; // image existante sur le panel sur lequel je veux toper
    left:=10;
    top:=10;
    transparent:=true;
    picture:=TPicture(monBitmap);
    visible:=true;
  end;
 
end;