ImageEnView1.IO.LoadFromFile('IE_Original_Image_WithAlpha.png');
ImageEnView1.SetAlphaRangePixelsColor(0, 0, CreateRGB(255,255,255));
ImageEnView1.Proc.Resample(240, 360, rfTriangle);
ImageEnView1.IO.SaveToFile('IE_Resized_with_IE2.png');

procedure SetAlphaRangePixelsColor(Bitmap:TIEBitmap);
var
  col, row: integer;
  px: PRGB;
  al: pbyte;
begin
  for row := 0 to Bitmap.Height - 1 do
  begin
    px := Bitmap.Scanline[row];
    al := Bitmap.AlphaChannel.ScanLine[row];
    for col := 0 to Bitmap.Width - 1 do
    begin
      if al^ = 0 then
        px^ := CreateRGB(255, 255, 255);  // set White when alpha is 0 (transparent pixel)
      inc(px);
      inc(al);
    end;
  end;
end;

quote:

---

Can you explain to me, why it works and why it is not the default way?

---