Salut,
J'ai un TImage créé dynamiquement, je le positionne en transparent:=true, puis, suivant les indications de l'aide de mon vénéré delphi 7, je lui fait pointer la propriété Picture vers un TBitmap afin que la fonction de transparence fonctionne... mais ça reste opaque !
Voici le code:
Mais, l'image affichée est opaque, elle cache les objets derrières elle !
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 listeTraitsSites:=TObjectList.Create; // pour info: // - listeTraitSites et un TobjectList qui contient autant de TImage qu'on veut // - monBitmap est un attribut privé de ma TMainform (TBitmap) // ici on est dans le TMainForm.create(), en phase de test... // creation nouveau TImage listeTraitsSites.OwnsObjects:=true; listeTraitsSites.add(TImage.create(self)); // instanciation du bitmap (on est en phase de test hein...) monBitmap:=TBitmap.create(); // je dessine le bitmap (ça fonctionne bien) with monbitmap do begin width:=100; height:=100; 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; // j'associe le bitmap au TImage (ça fonctionne bien aussi, il s'affiche) with TImage(listeTraitssites[0]) do begin parent:=image9.parent; // permet de récupérer le bon endroit pour bien s'afficher (ça marche) left:=10; top:=10; transparent:=true; picture:=TPicture(monBitmap); visible:=true; end;
Voici ce que dit l'aide de delphi:
Description
*** aide delphi sur propriété Transparent de TImage ***
***
Affectez la valeur true àla propriétéTransparent pour permettre aux objets placés derrière l'objet TImage d'apparaître au travers de l'image.Affectez la valeur false pour que l'arrière-plan de l'image soit opaque.L'affectation de la propriétéTransparent affecte la propriétéTransparent de Picture.
Remarque*: Transparent n'a d'effet que si la propriétéPicture spécifie un objet TBitmap.
***
*** Fin aide delphi
Alors, anyone can help me pleeeeaaaase ?
Merci.
Partager