Convert bmp to ico

[ssimop]

I wrote the following macro to convert a .bmp file to its 16x16 .ico file. I would welcome any comments to improve it. Many thanks in advance.

Macro temp01
Trigger SF7     

Code:

Copy      Help

FiBitmap x.Load(FIMG.FIF_BMP "C:\tmp\CIM16.bmp")
FiBitmap x2.Attach(FIMG.FreeImage_Rescale(x 16 16 FIMG.FILTER_BSPLINE))
x2.Save(FIMG.FIF_BMP "C:\tmp\CIM16.ico")

,