Discussion :

[Jon Shannow]

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

[Ph. B.]

Bonjour,

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

Comme cela par exemple :

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

[Jon Shannow]

Merci,

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

JS