ICO в картинку

[m0nr]

Привет, возникла необходимость конвертировать ICO в любую картинку на ходу, потому-что в TImage у ico не работает свойство Stretch. А мне оно надо =)

Иконка получается из ресурсов программы, на диск не сохраняется.

Надо конвентировать на ходу в компоненте TImage

HELP)

[Аватар]

http://www.programmersforum.ru/showthread.php?t=17719

[m0nr]

Сообщение от Аватар

http://www.programmersforum.ru/showthread.php?t=17719

Я же указал что не сохраняя на диск)

[Аватар]

Так не сохраняй, кто мешает? Bitmap есть и делай с ним что хош, хоть в имедж, хоть выброси

Из HIcon TIcon: Icon.Handle := HIcon

[m0nr]

Я решил по пробовать способ с сохранением. Это не смертельно опасно, но не совсем так как я хотел)

Var
Icon   : TIcon;
Bitmap : TBitmap;
begin
  sImage1.Picture.SaveToFile('c:\picture.ico');
  Icon   := TIcon.Create;
  Bitmap := TBitmap.Create;
  Icon.LoadFromFile('c:\picture.ico');
  Bitmap.Width := Icon.Width;
  Bitmap.Height := Icon.Height;
  Bitmap.Canvas.Draw(0, 0, Icon);
  Bitmap.SaveToFile('c:\picture.bmp');
  Icon.Free;
  Bitmap.Free;
end;

Проблемка в том, что при сохранении picture.bmp Она выходит обрезана.


----

На маленьких с маленьким размером работает на УРА. А вот с иконками по больше обрезает..

----

Проведя несколько тестов, установил, что размеры icon.Width icon.Height 32x32 Значит косяк в этом...


-----



Спасибо, проблему решил вот так)

Bitmap.Width := sImage1.Picture.Graphic.Width;
  Bitmap.Height := sImage1.Picture.Graphic.Height;