Текущий архив: 2003.07.10;
Скачать: 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 вся ветка
Текущий архив: 2003.07.10;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.008 c
