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