谁实现过将bmp转换成ico图标，并去掉背景色？

Question

把bmp文件改成32*32的,然后改扩展名

Answer 1

var
  ic:TIcon;
  ico: TiconCanvas;
  b : tbitmap;
begin
  ic:= Ticon.Create;
  try
    b := TBitmap.create;
    try
      b.Assign(Image1.Picture.Bitmap);
      ic.Height := b.Height;
      ic.Width := b.Width;
      ico:= TiconCanvas.Create(m, 0);
      try
        ico.Draw(0, 0, b);
      finally
        ico.Free;
      end;
    finally
      b.Free;
    end;
    Image2.Picture.Assign(ic);
  finally
    ic.Free;
  end;
  Image2.Picture.SaveToFile('tmp.ico');
end;

Answer 2

Delphi 自带的 Image Editor就可以

Answer 3

很简单啊，用D6的IMAGE设置过滤颜色就行