Convenience procedure AssignImage32ToFmxCanvas

[andre2007]

Maybe this convenience procedure makes sense here https://github.com/AngusJohnson/Image32/blob/a9af17222423f235ed6d86dd8d96707be0dbe008/source/Img32.FMX.pas#L43

procedure AssignImage32ToFmxCanvas(Img32: TImage32;
  canvas: TCanvas);
var
  bmp: TBitmap;
  rec: TRectF;
begin
  bmp := TBitmap.Create;
  try
    AssignImage32ToFmxBitmap(Img32, bmp);
    rec := RectF(0, 0, bmp.Width, bmp.Height);
    canvas.BeginScene();
    canvas.Lock;
    canvas.DrawBitmap(bmp, rec, rec, 1.0);
    canvas.Unlock;
    canvas.EndScene();
  finally
    bmp.Free;
  end;
end;

Usages example:

  Img32 := TImage32.Create;
  Img32.LoadFromStream(ms);
  AssignImage32ToFmxCanvas(Img32, Image1.Canvas);