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

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;
Pouvez vous m'aider ?

Merci