Image.Picture. SaveToFile()

← →
_mandrake_ (2003-06-25 15:05) [0]

Можна ли сохранить рисунок Image1.Picture.SaveToFile() в другом формате (не в bmp, а хотя б в ico), и изменить глубину цвета? Если да то как?

← →
ZEE (2003-06-25 15:12) [1]

bmp -> ico
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988625276&n=21
bmp -> jpeg
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988625147&n=21

← →
_mandrake_ (2003-06-25 15:36) [2]

> http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988625276&n=21 -
Просто сресайзить битмап до 32 на 32 или 64 на 64 и переменовать в .ico

Просто переменовать можно но попробуй потом запихнуть ее в application.icon
Можешь не пробовать ;-) Получиш Icon image is not valid (Не говоря уже о том что ее фиг откроеш такими прогами как стандартный борландовский Image Editor)

← →
anonymous (2003-06-26 15:16) [3]

В первой ссылке код работает немного криво, а именно из рисунка в формате bmp с любой глубиной цвета при сохранении (именно при сохранении, поскольку на форме все ок) получается иконка с глубиной в 16 цветов. Знает ли кто что делать чтоб сохраняло хотяб в 256? Вот код :

procedure TForm1.Button1Click(Sender: TObject); var BMP : TBitmap; IconInfo : TIconInfo; Icon : TIcon; begin IconSizeX := 32; IconSizeY := 32; BMP:= TBitmap.Create; BMP.Width := IconSizeX; BMP.Height := IconSizeY; BMP.LoadFromFile("1.bmp"); Form1.Canvas.Draw(IconSizeX * 2, IconSizeY, BMP); Icon := TIcon.Create; IconInfo.fIcon := true; IconInfo.xHotspot := 0; IconInfo.yHotspot := 0; IconInfo.hbmMask := BMP.Handle; IconInfo.hbmColor := BMP.Handle; Icon.Handle := CreateIconIndirect(IconInfo); BMP.Free; Icon.SaveToFile("1.ico"); Form1.Canvas.Draw(IconSizeX * 6, IconSizeY, Icon); {Assign the application icon} Application.Icon := Icon; {Force a repaint} InvalidateRect(Application.Handle, nil, true); {Free the icon} Icon.Free; end;

Image.Picture. SaveToFile() Найти похожие ветки