Convertir casi cualquier decendiente de TGraphic a TIcon
g puede ser un TBitMap, un TJPEGImage, un TGifImage, etc.
Código Delphi
[-]
function ToICO(g: TGraphic): TIcon;
var BMP : TBitmap;
CIL : TCustomImageList;
begin
try
BMP:=TBitmap.Create;
CIL:=TCustomImageList.Create(nil);
BMP:=ToBMP(g); CIL.Width:=BMP.Width;
CIL.Height:=BMP.Height;
CIL.Add(BMP,BMP);
BMP.Free;
Result:=TIcon.Create;
CIL.GetIcon(0,Result);
Result.Transparent:=True;
CIL.Free;
except
Result:=nil;
end;
end;