|
Чтобы преобразовать 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;
|
|
Как создать BMP из ICO 3