Советы по 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]



Содержание раздела