请问如何将BMP图片转换为.lcon图标形式,也就是Delphi用的图标?

Question

请问如何将BMP图片转换为.lcon图标形式,也就是Delphi用的图标?

Answer 1

function BitmapToIcon(Bitmap: TBitmap): TIcon;
var
  IconSizeX, IconSizeY : integer;
  IconInfo: TIconInfo;
  IconBitmap, MaskBitmap: TBitmap;
  x, y: Integer;
  TransparentColor: TColor;
begin
  IconSizeX := GetSystemMetrics(SM_CXICON);
  IconSizeY := GetSystemMetrics(SM_CYICON);
  IconBitmap:= TBitmap.Create;
  IconBitmap.Width:= IconSizeX;
  IconBitmap.Height:= IconSizeY;
  IconBitmap.Canvas.StretchDraw(Rect(0, 0, IconSizeX, IconSizeY),
Bitmap);
  IconBitmap.TransparentColor:= Bitmap.TransparentColor;
  TransparentColor:= IconBitmap.TransparentColor and $FFFFFF;
  MaskBitmap:= TBitmap.Create;
  MaskBitmap.Assign(IconBitmap);
  for y:= 0 to IconSizeY - 1 do
    for x:= 0 to IconSizeX - 1 do
      if IconBitmap.Canvas.Pixels[x, y] = TransparentColor then
        IconBitmap.Canvas.Pixels[x, y]:= clBlack;
  IconInfo.fIcon:= True;
  IconInfo.hbmMask:= MaskBitmap.MaskHandle;
  IconInfo.hbmColor:= IconBitmap.Handle;
  Result:= TIcon.Create;
  Result.Handle:= CreateIconIndirect(IconInfo);
  MaskBitmap.Free;
  IconBitmap.Free;
end;
--