Discussion :

[Eric_dudu]

Bonjour tout le monde,

Je rencontre un problème avec une fonction qui me permet de charger une icone dans un TBitmap, pour certaines icones (celles de Shell32.dll) lorsque je fais le Draw sur mon TBitmap, la couleur de transparence de l'icone n'est pas recopiée à certains endroits, prenant du coup la valeur du fond (clBackColor). Cela ne pose pas de problème pour un composant, mais lorsque je copie ce bitmap d'un bouton gris dans une liste avec un fond blanc, le dessin de l'icone est légèrement entouré de gris (le reste est bien transparent).

Ces icones s'affichent pourtant sans problème dans Windows ou à l'aide de programmes comme Icon Workshop.

Une idée ?

Voici la procédure en question :

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
procedure tFraCollections.ChargeIconeToBitmap(sFichier: string;
  wIconIndex: word; DestBitmap: TBitmap; clBackColor: TColor = clBtnFace);
var
  imgTampon: TImage;
begin
  imgTampon := TImage.Create(self);
  imgTampon.AutoSize := True;
  imgTampon.Picture.Icon.Handle :=
    ExtractAssociatedIcon(application.Handle, PChar(sFichier), wIconIndex);
  if imgTampon.Picture.Icon <> nil then
    with DestBitmap do
    begin
      imgTampon.Transparent := False;
      imgTampon.Picture.Icon.Transparent := False;
      Transparent := False;
      Width  := imgTampon.Width;
      Height := imgTampon.Height;
      Canvas.Brush.Color := clBackColor;
      Canvas.FillRect(rect(0, 0, Width, Height));
      Canvas.Draw(0, 0, imgTampon.Picture.Icon);
      TransparentColor := Canvas.Pixels[0, 0];
      Transparent := True;
    end;
  imgTampon.Free;
end;

Merci...

[Gilbert Geyer]

La ligne TransparentColor := Canvas.Pixels[0, 0]; me chagrine.
En principe la couleur de transparence d'un bitMap est celle du Pixels[0, Height-1] c.à.d de l'angle inférieur gauche ... ce qui fait que cela doit être kif-kif si on récupère la couleur de transparence d'un canvas rempli à raz-bord d'une image unique.