CreateAvatar.pas

function CreateAvatar(Source: TGraphic; Mask: TPngImage): TPngImage;
  var
    BMPSmooth: TBitmap;
    Av: TPngImage;
  begin
    BMPSmooth := SmoothStrechDraw(Source, TSize.Create(Mask.Width, Mask.Height));
    Result := TPngImage.CreateBlank(COLOR_RGB, 16, Mask.Width, Mask.Height);
    Result.Canvas.Draw(0, 0, BMPSmooth);
    with TDirect2DCanvas.Create(Result.Canvas, Rect(0, 0, Mask.Width, Mask.Height)) do
    begin
      BeginDraw;
      Brush.Style := bsClear;
      Pen.Width := 3;
      Pen.Color := $0081B543;
      Ellipse(Rect(0, 0, Mask.Width - 1, Mask.Height - 1));
      EndDraw;
      Free;
    end;
    BMPSmooth.Free;
    Result.CreateAlpha;
    ApplyMask(0, 0, Mask, Result);
  end;