Copie d' une partie d' un TGraphic vers un Canvas avec option de transparence

Bonjour à tous,

je voudrais savoir s' il existe une méthode plus performante pour copier une partie d' un TGraphic vers un Canvas.

Pour l' instant, je passe par un TBitmap que je crée dynamiquement:
          if (MaxWidth <> aBgPicture.Picture.Width) or ((MaxHeight <> aBgPicture.Picture.Height))
          then begin
            // Copy part of the image :
            TmpBmp := TBitmap.Create;

            // Try converting into bitmap
            TmpBmp.Width  := MaxWidth;
            TmpBmp.Height := MaxHeight;
            TmpBmp.PixelFormat := pf32bit;
            aBgPicture.Picture.Graphic.Transparent := false;
            TmpBmp.Canvas.Draw(0, 0,  aBgPicture.Picture.Graphic);
            TmpBmp.Transparent := aBgPicture.Transparent;
            aCanvas.Draw(x, y,  TmpBmp);
            TmpBmp.Free;
          end
          else
            aCanvas.Draw(x, y,  aBgPicture.Picture.Graphic);

Merci,
Maurício

Notez que TGraphic (aBgPicture.Picture) peut avoir plusieurs formats:
Bmp, metafile, jpeg, png etc ...

Salut,

regarde mon dernier code :
http://www.delphifr.com/codes/BITMAP-32BITS-INTEGRE-VCL-TIMAGE-TPICTURE-TBITMAP-TOPENPICTUREDIALOG_49861.aspx

pour un exemple d'utilisation de la fonction AlphaBlend .... elle fait exactement ce que tu demandes ...

si tu doutes ... dans mon code démo j'affiche un bitmap32 (donc vraie transparence) sur un JPEG sans le convertir avant en BMP !!!

cette fonction se fout du format elle demande un DC source et un DC Dest

 
@+
Cirec

---

j'ai peut être pas bien saisi ton problème donc je te propose aussi de regarder du coté TransparentBlt

voilà donc soit l'une où l'autre devrait convenir

 
@+
Cirec

---

Merci Cirec,

je vais jeter un oeil!
Après réflexion, je n' ai pas besoin de transparence dans mon cas ...
Ce que je veux c' est que ça marche avec tous les formats qui peuvent être dans le TGraphic.

Je vais généraliser la question :
je désire copier une partie d' une image (définie par un TRect) contenue dans un TGraphic vers un TCanvas.

Merci,
A+

J' ai pensé au Bitblt() au départ ...

Remarks

The TransparentBlt function works with compatible bitmaps (DDBs).

Celle ci ne marche qu' avec des bitmaps :(

pour une copie complète ceci devrait suffir :
aCanvas.Draw(x, y,  aBgPicture.Picture.Graphic);

 
@+
Cirec

---

Bem justement, c' est ce que je fais pour l' instant (regarde dans le "else") :

if (MaxWidth <> aBgPicture.Picture.Width) or ((MaxHeight <> aBgPicture.Picture.Height))
          then begin
            // Copy part of the image :
            TmpBmp := TBitmap.Create;

            // Try converting into bitmap
            TmpBmp.Width  := MaxWidth;
            TmpBmp.Height := MaxHeight;
            TmpBmp.PixelFormat := pf32bit;
            aBgPicture.Picture.Graphic.Transparent := false;
            TmpBmp.Canvas.Draw(0, 0,  aBgPicture.Picture.Graphic);
            TmpBmp.Transparent := aBgPicture.Transparent;
            aCanvas.Draw(x, y,  TmpBmp);
            TmpBmp.Free;
          end
          else
            aCanvas.Draw(x, y,  aBgPicture.Picture.Graphic);

De plus, j' ai un autre problème pour les png sous Delphi 2009 :
en DesignTime, Picture.Graphic <> Nil fonctionne, mais en run-time non ...

A+

"De plus, j' ai un autre problème pour les png sous Delphi 2009 :
en DesignTime, Picture.Graphic <> Nil fonctionne, mais en run-time non ..."

Ce problème est résolu en mettant "pngimage" dans les uses ...
A+