VPF::TImageList.GetIcon глючит... - Форум программистов

aktuba

Дата 2.11.2006, 01:04 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

Такая проблема: в программе происходит проверка каталога на наличие иконок и добавление этих иконок в TImageList:

Код


  i := 1;
  if FindFirst(path + '*.ico', faAnyFile, SearchRec) = 0 then
    repeat
      Inc(i);
      lIcon := TIcon.Create;
      try
       lIcon.LoadFromFile(path + SearchRec.Name);
        AList.AddIcon(lIcon);
      finally
       lIcon.Free;
      end;
    until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);

после этого происходит отрисовка иконок из TImageList в TDrawGrid:

Код


il.Draw(dr.Canvas, Rect.Left + 3, Rect.Top + 3, IndexIcon, dr.Enabled);

далее, мне необходимо сохранить выбранную иконку в файл. делаю следующее:

Код


...
ilVT.GetIcon(lData^.IconIndex, lIcon);
SaveVTNode(lData^, lIcon, lMemStream);
...

procedure SaveVTNode(AData: TDataNode; AIcon: TIcon; AStream: TMemoryStream);
var
  Writer: TWriter;
  size, Index: Integer;
begin
  ...
  // Сохранение своих данных в поток
  ...
  SaveIcon(AIcon, AStream);
end;

...

procedure SaveIcon(AIcon: TIcon; AStream: TMemoryStream);
var
  size: Integer;
begin
  if Assigned(AIcon) then
    begin
      size := 1;
      AStream.Write(size, SizeOf(size));
    AIcon.SaveToStream(AStream);
    end else
     begin
       size := 0;
        AStream.Write(size, SizeOf(size));
      end;
end;

ИКОНКА СОХРАНЯЕТСЯ НЕ ПРАВИЛЬНО!!! Испорчены палитра и прозрачность...
Опытным путем проверенно, что виновата функция TImageList.GetIcon. Проверял так:

Код


lIcon.LoadFromFile(path + SearchRec.Name);
t := AList.AddIcon(lIcon);
AList.GetIcon(t, lIcon);
lIcon.SaveToFile(lFileName);

Уже так иконка сохраняется неправильно.

Как это исправить или что можно использовать вместо TImageList?

--------------------

Dynamic

Дата 2.11.2006, 09:05 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 372
Регистрация: 5.7.2004
Где: Салехард

Репутация: 12
Всего: 15

Цитата(aktuba @ 2.11.2006, 01:04

)

Такая проблема: в программе происходит проверка каталога на наличие иконок и добавление этих иконок в TImageList:

Цитата(aktuba @ 2.11.2006, 01:04

)

далее, мне необходимо сохранить выбранную иконку в файл

дык, запоминай имя файла и просто копируй его

Цитата(aktuba @ 2.11.2006, 01:04

)

Как это исправить или что можно использовать вместо TImageList?

исправить вряд ли, а вместо него можно обычный TList + TBitmap

--------------------

Было бы о чем молчать, а уж что сказать – всегда найдется...

aktuba

Дата 2.11.2006, 12:09 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

Нет, копировать имя не подходит, т.к. в случае удаления иконки из каталога иконка пропадет и из программы. Именно поэтому я сохраняю иконку в файл со своими данными. А TList+TBitmap - немного хлопотный путь. Нашел следующее решение: перед помещением иконки в TImageList преобразую иконку в TBitmap, а уже TBitmap помещаю в TImageList. Таким образом решил проблему с палитрой, но появилась проблема с прозрачностью...

--------------------

Sansa

Дата 2.11.2006, 18:05 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 173
Регистрация: 18.10.2006
Где: Королев

Репутация: 3
Всего: 6

Возможно, тебе подойдет библиотека Graphics Ex. Умеет читать и записывать большое количество типов файлов, в том числе и с поддержкой прозрачности

--------------------

- Здравствуйте, я Ваш патологоанатом

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »