COPIER CANVAS VERS UN AUTRE AVEC VRAI TRANSPARENCE!

procedure CANVAS_DRAW(Cnv_Src: TCanvas; Cnv_Dest: TCanvas; CorTransparente: TColor; Rect_Src: TRect; Dest_Top, Dest_Left: Integer);
var Bmp: TBitmap;
begin
  Bmp := TBitmap.Create;
  Bmp.PixelFormat := pf24bit;
  Bmp.Width := Rect_Src.Right - Rect_Src.Left;
  Bmp.Height := Rect_Src.Bottom - Rect_Src.Top;
  Bmp.Canvas.Brush.Color := CorTransparente;
  Bmp.Canvas.FillRect(classes.Rect(0, 0, Bmp.Width, Bmp.Height));
  Bmp.Canvas.CopyRect(classes.Rect(0, 0, Bmp.Width, Bmp.Height), Cnv_Src, Rect_Src);
  Bmp.TransparentColor := CorTransparente;
  Bmp.Transparent := True;
  Cnv_Dest.Draw(Dest_Left, Dest_Top, Bmp);
  Bmp.Free;
end;