Randpixel von Icons glätten oder Imagelist mit PNG?

[chaosben]

so funktioniert das bei mir:

Delphi-Quellcode:

procedure TForm1.btn_Button1Click(Sender: TObject);
var
  Gif : TGIFImage;
  bmp : TBitmap;
begin
  gif:=TGIFImage.Create;
  gif.LoadFromFile('c:\test.gif');
  bmp:=TBitmap.Create;
  bmp.Width:=gif.Width;
  bmp.Height:=gif.Height;
  bmp.PixelFormat:=pf24bit;
  bmp.Canvas.Brush.Color:=clRed;
  bmp.Canvas.FillRect(bmp.Canvas.ClipRect);
  bmp.Canvas.Draw(0,0, gif);
  Image1.Picture.Graphic:=bmp;
  gif.Free;
  bmp.Free;
end;