RetroNick2020 / TQoiImage

Delphi TGraphic support for QOI images

TQoiImage

Delphi TGraphic support for QOI images.

See https://github.com/phoboslab/qoi

Example:

uses Vcl.Imaging.QOI;
...
var
  qoi: TQoiImage;
begin
  qoi := TQoiImage.Create;
  try
    qoi.LoadFromFile('..\..\dice.qoi');
    //copy (draw) the qoi image onto a TImage component
    Image1.Canvas.Draw(0,0, qoi);
    qoi.SaveToFile('..\..\dice2.bmp');
  finally
    qoi.Free;
  end;

  qoi := TQoiImage.Create;
  try
    qoi.LoadFromFile('..\..\dice2.bmp');
    qoi.SaveToFile('..\..\dice2.qoi');
  finally
    qoi.Free;
  end;