Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Как из BMP или JPG сделать ICO?

Автор: ACMilian 19.4.2007, 11:10

Не могу сделать иконку. персмотрел факи там, нашёл это:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
winDC, srcdc, destdc: HDC;
oldBitmap: HBitmap;
iinfo: TICONINFO;
begin
GetIconInfo(Image1.Picture.Icon{bitmap}.Handle, iinfo);
WinDC := getDC(handle);
srcDC := CreateCompatibleDC(WinDC);
destDC := CreateCompatibleDC(WinDC);
oldBitmap := SelectObject(destDC, iinfo.hbmColor);
oldBitmap := SelectObject(srcDC, iinfo.hbmMask);
BitBlt(destdc, 0, 0, Image1.picture.icon.width,
   Image1.picture.icon.height,
   srcdc, 0, 0, SRCPAINT);
Image2.picture.bitmap.handle := SelectObject(destDC, oldBitmap);
DeleteDC(destDC);
DeleteDC(srcDC);
DeleteDC(WinDC);
image2.Picture.icon{Bitmap}.savetofile(ExtractFilePath(Application.ExeName) + 'myfile.ico');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
image1.picture.bitmap.loadfromfile('D:\SExpress\FutStat\SOCCER.BMP');
end;

но оно не работае. может кто знает как сделать иконку из BMP или JPG?

Автор: Alexeis 19.4.2007, 11:59

Правильно не работает ведь загружается битмапка, а работа производиться с иконкой, это же разные объекты!
ACMilian, вынужден разочаровать, но даже при правильной работе этого кода иконка будет сохраняться в 16 цветах, такой уж убогий этот компонент. Единственное решение это разбор поочередная запись всех нужных структур иконки (т.е. разбор битмапника заполнение заголовком ICO и запись всех этих данных в файл.) В одной теме я уже производил разбор ICO для создания ресурса, если очень нужно могу и собрать smile

Автор: ama_kid 19.4.2007, 12:02

ACMilian,
Попробуй такой код, может будет полезным:

Код

procedure TForm1.Button1Click(Sender: TObject);
var
 tIcn:TIcon;
 tBmp:Graphics.TBitmap;
 tIml:TImageList;
begin
  tIcn:=TIcon.Create;
  tBmp:=Graphics.TBitmap.Create;
  tBmp.LoadFromFile('myico.bmp');
  tIml:=TImageList.Create(Self);
  tIcn.Width:=16; tIcn.Height:=16;
  tIml.Add(tBmp,tBmp);
  tIml.GetIcon(0,tIcn);
  tIcn.SaveToFile('myico.ico');
end;

Автор: ACMilian 19.4.2007, 12:23

всем спасиба, последний код пригодлися. =)