Bonjour,
J'ai un TImage32, dessus je créé des TBitmapLayer contenant une image.
Le probleme c'est que je n'arrive pas à mettre de la transparence sur ce BitmapLayer... je peux jouer avec le masteralpha mais le resultat est pas top..
Pouvez vous m'aider ?
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 procedure TEqdTerrain.drawLayer(nom: string); var b: TBitmapLayer; begin b := TBitmapLayer.Create(imgTerrain.Layers); with b do try Bitmap.DrawMode := dmTransparent; imgTerrain.Bitmap.DrawMode := dmTransparent; Bitmap.LoadFromResourceName(HInstance, 'imgTest'); Scaled := True; OnMouseDown := LayerMouseDown; except Free; raise; end; // Affectation du layer layerSelected := b; end;
Merci
Partager