Что с иконками?, я не понимаю...

← →
Borealis (2003-08-18 20:21) [0]

Было у меня с десяток красивых иконок (файлов с расширением .ico). В одном из своих проектов, я "загнал" эти иконки в TImageList. Спустя некоторое время, файлы иконок затерялись где-то в джунглях винчестера, и я решил восстановить их из старого проекта. Делаю примерно так:

procedure TForm1.Button1Click(Sender: TObject); var i: Integer; ico: TIcon; begin ImageList1.DrawingStyle := dsNormal; ico := TIcon.Create; for i := 0 to ImageList1.Count - 1 do begin ImageList1.GetIcon(i, ico); ico.SaveToFile("C:\Icons\" + IntToStr(i) + ".ico"); end; ico.Free; end;

Открываю каталог "C:\Icons"... Ой!.. Что это?.. Что это за жалкое зрелище? Впечатление, что иконки неделю колбасило в стиральной машине и они там бесжалостно полиняли... :(
(Я наверно что то не так сделал?)

← →
Fenik © (2003-08-19 00:00) [1]

PixelFormat?

← →
Borealis (2003-08-19 00:27) [2]

> Fenik © (19.08.03 00:00) [1]
> PixelFormat?
??? Это в чём? В TIcon или в TImageList? Так ни в том ни в том нет такого свойства.

Я знаю свойство PixelFormat есть у TBitmap, но он к моей проблеме не относится...

← →
Некрофил - затейник__ © (2003-08-19 07:10) [3]

2 Borealis
Ты разрешение не менял ? like 32 -> 16

← →
Borealis (2003-08-21 22:56) [4]

> Некрофил - затейник__ © (19.08.03 07:10) [3]
> 2 Borealis
> Ты разрешение не менял ? like 32 -> 16
В смысле разрешение экрана? Нет, у меня всегда стоит True Color.

Странная тишина. Либо никто не знает ответа, либо у всех нормально работает, либо никто не сталкивался с этой проблемой.

Я подготовил небольшой тест. Пожалуйста, уделите ему немного своего внимания...

Положите на форму два TImage ( Image1 и Image2) и TButton ( Button1). В обработчик события OnClick у кнопки скопируйте следующий код:

procedure TForm1.Button1Click(Sender: TObject); var bmp: TBitmap; ico: TIcon; iml: TImageList; // Здесь просто прорисовка картинки и не заслуживает вашего внимания. // Смотрите начиная с begin метода OnClick procedure DrawBitmap(); var X, Y: Integer; Xe, Ye, R: Extended; function SmoothColor(E: Extended; Color0, Color1: TColor): TColor; begin Result := RGB( Trunc(GetRValue(Color1) * E + GetRValue(Color0) * (1 - E)), Trunc(GetGValue(Color1) * E + GetGValue(Color0) * (1 - E)), Trunc(GetBValue(Color1) * E + GetBValue(Color0) * (1 - E))); end; begin bmp := TBitmap.Create; bmp.Width := 32; bmp.Height := 32; for X := 0 to 31 do for Y := 0 to 31 do begin Xe := (2 * (X - 3) / 26 - 1); Ye := (2 * (Y - 3) / 26 - 1); R := Sqrt(Xe * Xe + Ye * Ye); if R > 1 then bmp.Canvas.Pixels[X, Y] := SmoothColor(1 / (R * R * R), clBlack, clMaroon) else bmp.Canvas.Pixels[X, Y] := SmoothColor(cos(R * pi / 2), clMaroon, clYellow); end; end; begin // Сначала нужно создать и разрисовать иконку. // Так как у TIcon нет канвы, то рисовать приходится весьма загадочным способом: // (1) Создаю TBitmap и рисую на нём: DrawBitmap; // (2) Создаю TImageList и добавляю в него bmp: iml := TImageList.CreateSize(32, 32); iml.AddMasked(bmp, clBlack); bmp.Free; // (3) Наконец создаю TIcon и загружаю в него первое изображение из TImageList ico := TIcon.Create; iml.DrawingStyle := dsNormal; iml.GetIcon(0, ico); iml.Free; // Всё. Иконка создана. Теперь её можно отобразить: Image1.Picture.Icon := ico; ico.Free; // Теперь сохраняю иконку в файл... Image1.Picture.Icon.SaveToFile("c:\MyIcon.ico"); // ...и загружаю во второй TImage Image2.Picture.Icon.LoadFromFile("c:\MyIcon.ico"); // Сравните эти два изображения. Посмотрите файл MyIcon.ico. // Что я делаю не так? А если всё верно, то как обойти эту фичу? end;

Это скорее всего глюг толи TImageList, толи Винды. У меня такое было несколько раз. Я просто открываю ImageList, а там - грязь. Только удалить все иконки от туда и загрузить туда заново... :(

Что с иконками?, я не понимаю... Найти похожие ветки