unit SysUtils;
interface

{$MODE objfpc}
{$MODESWITCH OUT}
{ force ansistrings }
{$H+}

program Test1;

{$mode delphiunicode}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  Classes,
  SysUtils,
  graphtype,
  intfgraphics,
  lazcanvas,
  fpimage,
  fpcanvas,
  types
  { you can add units after this };

var
  i        : integer;
  RawImage : TRawImage;
  Img      : TLazIntfImage;
  CV       : TLazCanvas;
  Col      : TFPColor;
begin
  try
    WriteLn('Start');
    RawImage.Init;
    RawImage.Description.Init_BPP32_A8R8G8B8_BIO_TTB(1280, 1024);
    RawImage.CreateData(True);

    Img:=TLazIntfImage.Create(0,0);
    try
      Img.SetRawImage(RawImage);
      CV:=TLazCanvas.Create(img);
      try
        CV.Brush.FPColor:=colWhite;
        CV.FillColor(colTransparent);
        Col.Red:=65535;
        Col.Green:=0;
        Col.Blue:=0;
        for i:=50 to 200 do begin
          Col.Alpha:=(i+50)*255;
          CV.Pen.FPColor:=Col;
          CV.Line(i*2,50,i*2,450);
        end;
        Img.SaveToFile('1.bmp',TLazWriterBMP.Create);
        WriteLn('1.bmp written');
        Img.SaveToFile('1.png',TLazWriterPNG.Create);
        WriteLn('1.png written');
      finally
        CV.Free;
      end;
    finally
      Img.Free;
    end;
  except
    on E: Exception do begin
      WriteLn('Error: '+E.Message);
    end;
  end;
  ReadLn;
end.

        Png:=TLazWriterPNG.Create;
        Png.UseAlpha:=True;
        Img.SaveToFile('1.png',Png);