Скачать: CL | DM;

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c