Преобразование ICO в BMP II советует:
Чтобы преобразовать Icon в Bitmap используйте TImageList. для обратного преобразования замените метод AddIcon на Add, и метод GetBitmap на GetIcon.
|
|
function Icon2Bitmap(Icon: TIcon): TBitmap; begin with TImageList.Create (nil) do beginAddIcon (Icon);Result := TBitmap.Create;GetBitmap (0, Result);Free;end;end; |
[000909]
Содержание раздела