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