конвертировать bmp в ico.

[DomiNick]

Проверил... TIcon при сохранении почему-то изменяет битность картинки на 4... о__О
Ну или только одну из масок сохраняет... В общем касяк какой-то... Наверное обнаружился ещё один баг VCL...

Надо будет подумать на этим... Возможно "Придётся вручную..." (c)

[x128]

Сообщение от StartMis

з пост- если честно то непонял как его заточить под мои нужды. на с чет 4 поста - потеря качества.

3 и 4 одинаковые! разница в том, что в 3 битовая маска создается в процессе, а в 4 подразумевается альфаканал в самом битмапе. Это самый правильный вариант преобразования битмапа в иконку, т.ч. разбирайся.

[DomiNick]

Это самый правильный вариант преобразования битмапа в иконку

Преобразуется-то всё правильно... А вот TIcon.SaveToFile() что-то совсем не то делает...

[StartMis]

а как можно без TIcon.SaveToFile() т.е вручную.

[x128]

Сообщение от DomiNick

Преобразуется-то всё правильно... А вот TIcon.SaveToFile() что-то совсем не то делает...

Не знаю, может мой шаманский бубен другой конструкции
Прикрепить пример не удалось, что-то на форуме видать сломалось, вот ссылка на пример, там можно даже таскать картинку в качестве курсора.

Сообщение от StartMis

а как можно без TIcon.SaveToFile() т.е вручную.

Формат ICO простой, можно все руками разобрать и собрать. В этом есть смысл если нужно разобрать многоформатную иконку, в противном случае TIcon вполне подходит.

[DomiNick]

Хм..... А значок-то какой..... Delphi 2010?

Перескомпилировал в Делфи7 - сохраняет кошмар: > ссыль <

[StartMis]

на Делфи6 и 7 как уже писалось сохраняет кошмар. скомпилированный exe в архиве сохраняет нормально. помогите как все сохранить вручную чтобы на д7 работало.

[DomiNick]

На неделе смогу получить доступ к компу с Delphi2010... Возможно получится вытащить сохранение оттуда или хотя бы выяснить в чём там дело (попытка не пытка ©)...

[x128]

Сообщение от DomiNick

Хм..... А значок-то какой..... Delphi 2010?

Перескомпилировал в Делфи7 - сохраняет кошмар

У меня Delphi 2006, мне интересно, если таскать картинку, курсор нормальный или такой же как при записи?

Обновил пример, теперь иконка записывается без использования TIcon. Надеюсь будет работать в делфи 7.
сама процедура:

procedure SaveIcon(fname: string);
type
  TIconRec = packed record
    Width: byte;
    Height: byte;
    Colors: byte;
    Reserved: byte;
    Planes: word;
    BPP: word;
    DIBSize: dword;
    DIBOffset: dword;
  end;
var
  i: integer;
  ico: file of byte;
  hdr: TCursorOrIcon;
  irec: TIconRec;
  binfo: TBitmapInfoHeader;
  mask: TBitmap;
begin
  hdr.Reserved:=0;
  hdr.wType:=1;
  hdr.Count:=1;
  AssignFile(ico, fname);
  Rewrite(ico);
  BlockWrite(ico, hdr, SizeOf(hdr));

  if bmp.Width<256 then irec.Width:=bmp.Width else irec.Width:=0;
  if bmp.Height<256 then irec.Height:=bmp.Height else irec.Height:=0;
  irec.Colors:=0;
  irec.Reserved:=0;
  irec.Planes:=0;
  irec.BPP:=32;
  irec.DIBSize:=(bmp.Width*bmp.Height*4)+(bmp.Width*bmp.Height div 8);
  irec.DIBOffset:=SizeOf(hdr)+SizeOf(irec);
  BlockWrite(ico, irec, SizeOf(irec));

  binfo.biSize:=SizeOf(binfo);
  binfo.biWidth:=bmp.Width;
  binfo.biHeight:=bmp.Height*2;
  binfo.biPlanes:=1;
  binfo.biBitCount:=32;
  binfo.biCompression:=BI_RGB;
  binfo.biSizeImage:=bmp.Width*bmp.Height*4;
  binfo.biXPelsPerMeter:=0;
  binfo.biYPelsPerMeter:=0;
  binfo.biClrUsed:=0;
  binfo.biClrImportant:=0;
  BlockWrite(ico, binfo, SizeOf(binfo));
  for i:=bmp.Height-1 downto 0 do BlockWrite(ico, bmp.ScanLine[i]^, bmp.Width*4);

  mask:=TBitmap.Create;
  mask.Monochrome:=true;
  mask.SetSize(bmp.Width, bmp.Height);
  mask.Canvas.Brush.Color:=clBlack;
  mask.Canvas.FillRect(mask.Canvas.ClipRect);
  for i:=mask.Height-1 downto 0 do BlockWrite(ico, mask.ScanLine[i]^, mask.Width div 8);
  mask.Destroy;

  CloseFile(ico);
end;

[StartMis]

нет когда таскаеш все нормально. а в procedure SaveIcon(fname: string); ругается на TCursorOrIcon (и без него следовательно не сохраняет вовсе). а также ругается на SetSize в строке mask.SetSize(bmp.Width, bmp.Height);