Советы по Delphi



Преобразование 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]




Содержание  Назад  Вперед