Copie d'une image dans une autre avec transparence

Version imprimable

06/09/2012, 17h01
Jon Shannow

Copie d'une image dans une autre avec transparence

Bonjour,

Tout ou presque est dans le titre.

J'ai 2 images (TImage) que j'ai appelé réspectivement (TimgFond et TImgDecors) et une 3eme (TImgResult).

Je voudrais mettre dans TImgResult, TImgFond en... fond :mrgreen: et placer par dessus TImgDecors MAIS (ben oui sinon je serais pas là) en décidant qu'une couleur de TImgDecors ne soit pas copier (effet de transparence).

Est-ce que quelqu'un voit un moyen simple de faire ça, ou c'est forcément usine à gaz ?

Merci d'avance

JS

Bonjour,

Citation:

Envoyé par Jon Shannow

Est-ce que quelqu'un voit un moyen simple de faire ça, ou c'est forcément usine à gaz ?

Comme cela par exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure CanvasDraw(X, Y: Integer; Src, Dest: TCanvas; TransparentColor: TColor);
var
  Bmp: TBitmap;
  ARect: TRect;
begin
  Bmp := TBitmap.Create;
  try
    ARect := Rect(0, 0, Src.Width, Src.Height);
    Bmp.PixelFormat := pf24bit;
    Bmp.Width := Src.Width;
    Bmp.Height := Src.Height;
    Bmp.Canvas.Brush.Color := TransparentColor;
    Bmp.Canvas.FillRect(ARect);
    Bmp.Canvas.CopyRect(ARect, Src, ARect);
    Bmp.TransparentColor := TransparentColor;
    Bmp.Transparent := True;
    Dest.Draw(X, Y, Bmp);
  finally
    Bmp.Free;
  end;
end;

11/09/2012, 08h30
Jon Shannow

Merci,

Je regarde ça de prêt. Plus simple tu meurs... :mouarf:
[MODE BOULET DE PREMIERE]Mais pourquoi n'y ai je pas pensé ?[/MODE BOULET DE PREMIERE]

JS